082_Excel条件格式化工具

3 Excel条件格式化工具的具体实现
3.1插件接口方法
当VB运行时，在Add-In菜单中装载组件以后，VB就会调用组件中IDTExtensibility对象中的OnConnection方法。在OnConnection方法里定义Application对象变量，并调用CommandBars.Add方法，就可在程序运行时加载工具栏。
在“引用”对话框中选择“Microsoft Office 8.0 Object library”复选框，可以通过“对象浏览器”访问并浏览各种命令条对象。
因为菜单和工具栏属于相同的对象库，它们都将通过CommandBarControl对象被引用。一个菜单条命令条可以包括几个菜单项，每个菜单项本身也是一个命令条，而且它又可以包括若干个菜单命令，每条命令依然是一个命令条。利用这种模式可以很容易地在开发环境中放置外接程序。
使用commandBars集合对象用外接程序来添加命令栏和控件。在OnConnection事件过程定义Application、commandbars对象变量，此过程创建新的命令条按钮，并返回对它的对象变量,并定义commandbar上按键的事件。 【买计算机毕业论文就到计算机毕业论文网】

[资料来源：http://think58.com]

3.2 Excel插件的实现
3.2.1插件实现的功能
（1）在Excel中建立3列：姓名，平时，考试。并输入模拟数据。
（2）选择所有学生姓名单元；
（3）点击插件的按键，出现对话框。
（4）在其中输入格式化的条件（类似于Excel的公式，只是将相对单元
位置的表示方式，加了一个@符号。如：sum(@A1:@D1)>=4， 表示
将A1到D1单元的数据相加，判断其和是否大于等于4。相对的含义是：对当前单元而言，求和的是A1到D1。如果当前单元的行列加了1，则求和的将是B2到E2。（即，求和的单元相对于当前单元的偏移量不变）。本例中输入：B2*30/100+C2*70/100<60
（5）点击字体按键，选择字体、颜色等；
（6）点击填充按键，选择填充色和模式；
（7）点击“格式化”按键。
3.2.2具体功能实现
3.2.2.1设计器

图7 设计器
3.2.2.2 窗体的实现

图8 窗体 [资料来源：http://THINK58.com]

设置字体按钮：

图9 设置字体按钮
选择字体
Private Sub cmdSetFont_Click()
选择一个临时单元
Dim rng As Range
Set rng = mExcelApp.Selection
保存其原有字体设置
Dim size, italic, underline, strikethrough, bold, color, style, name
size = rng.Font.size
italic = rng.Font.italic
underline = rng.Font.underline
strikethrough = rng.Font.strikethrough
bold = rng.Font.bold
color = rng.Font.color
style = rng.Font.FontStyle
name = rng.Font.name
使用Excel的标准对话框设置其字体
mExcelApp.Dialogs(xlDialogFontProperties).Show
保存其字体设置
mFontsize = rng.Font.size
mFontitalic = rng.Font.italic
mFontunderline = rng.Font.underline
mFontstrikethrough = rng.Font.strikethrough
mFontBold = rng.Font.bold
mFontColor = rng.Font.color
mFontStyle = rng.Font.FontStyle
mFontName = rng.Font.name
恢复其原有字体设置
rng.Font.size = size
rng.Font.italic = italic

think58.com

[资料来源：http://think58.com]

rng.Font.underline = underline
rng.Font.strikethrough = strikethrough
rng.Font.bold = bold
rng.Font.color = color
rng.Font.FontStyle = style
rng.Font.name = name
End Sub
本文来自think58