在使用EXCEL时首先接触的便是单元格,在单元格里输入字符和数字然后可以调节它们的格式,例如颜色,字体,居中。但是这种设置需要你用手动去完成。在工作量较大的时候常常让人觉得无法忍受,尤其是编辑不相邻的多个单元格时更显不便,其实EXCEL中通过编程的方法可以做到定制文本格式甚至可以办到随时随地的控制格式。
1、打开VISUAL BASIC编辑器,在工程中插入类模块。在此类模块中写入如下代码:
public withevents aaa as worksheet
public sub aaa_selectionchange(byval target as range)
target.font.colorindex=3 ‘ 设置文字颜色为红色
End sub
2接着在VBAProject工程中插入一个模块,在此模块中写入如下代码:
Dim tt as 类1
Sub changecolor()
Set tt=new 类1
Set tt.aaa=activesheet
End sub
Sub endchangecolor()
Set tt=nothing
End sub
这样就完成了,当你想让格式成为所想那样的时候,可以运行名为changecolor的宏。
这样在任意单元格输入的字符总是红色的。而如果要结束这种设定时可以运行名为endchangecolor的宏回复正常状态
这里给出的只是一个简单的类模块的雏形,稍加变通后可以实现很复杂的格式设置,只需在类模块中进行修改或添加语句,而changecolor与endchangecolor不用改变