’
’ 改变颜色 Macro ’ xw 记录的宏 2000-6-10 ’ ’
With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid
.PatternColorIndex = xlAutomatic End With End Sub
将来会十分熟悉这种代码,虽然现在它们看上去像一种奇怪的外语。学习VBA或编程语言在某种程度上比较像在学习一种外语。
Sub 改变颜色():这是宏的名称。
中间的以“ ’”开头的五行称为“注释”,它在录制宏时自动产生。
以With 开头到End With 结束的结构是With结构语句,这段语句是宏的主要部分。注意单词“selection”,它代表“突出显示的区域”(即:选定区域)。With Selection.Interior :它读作“选择
区域的的内部”.这整段语句设置该区域内部的一些“属性”。 其中:
.ColorIndex = 3: 将该内部设为红色。注意:有一小圆点,它的作用在于简化语句,小圆点代替出现在With后的词,它是With结构的一部分。另外:红色被数字化为3.(红色警戒是否可称作:3号警戒,嗯?)有兴趣的话,你将3改为其他数字试试看。
.Pattern = xlSolid:设置该区域的内部图案。由于是录制宏,所以,虽然你并未设置这一项,宏仍然将其记录下来(因为在“图案”选项中有此一项,只是你为曾设置而已)。xlSolid表示纯色。
.PatternColorIndex = xlAutomatic:表示内部图案底纹颜色为自动配色。
End With:结束With 语句。
End Sub:整个宏的结束语
1.6 编辑录制的代码
在上一节,我们录制了一个宏并查看了代码,代码中有两句实际上并不起作用。哪两句?现在,在宏中作一个修改,删除
多余行,直到和下面代码相同:
Sub 改变颜色() ’
’ 改变颜色 Macro ’ xw 记录的宏 2000-6-10 ’ ’
With Selection.Interior .ColorIndex = 3 End With End Sub
完成后,在工作表中试验一下。你会发现结果和修改前的状况一样。在With 语句前加入一行: Range(\
试着运行该宏,则无论开始选择哪个单元格,宏运行结果都是使A5单元格变红.
现在可以看到,编辑录制的宏同样非常简单。需要编辑宏是
因为以下三个方面的原因。一:在录制中出错而不得不修改。二:录制的宏中有多余的语句需要删除,提高宏的运行速度。三:希望增加宏的功能。比如:加入判断或循环等无法录制的语句。
1.7 录制宏的局限性
希望自动化的许多excel过程大多都可以用录制宏来完成.但是宏记录器存在以下局限性.通过宏记录器无法完成的工作有: 1)录制的宏无判断或循环能力.
2)人机交互能力差,即用户无法进行输入,计算机无法给出提示.
3)无法显示excel对话框. 4)无法显示自定义窗体.
1.8 小结
本学时中,你已经掌握了VBA的一些基础知识,你会录制宏、编辑宏而且了解了录制宏的局限性.你很努力.并且已经为将来学习VBA甚至VB等编程语言打下了基础.关键是你已经了解了一个谜底,就是说,你了解了什么是编程.下面是些小练习,做完后才可以去玩哟.
思考:
1)VBA只能用于excel吗?
2)VBA是基于哪种语言? 3)说说excel和VBA的关系. 4)为什么要用宏?
原文发表时间:未知
<[dvnews_page=(2):处理录制的宏] 2.1 为宏指定快捷键
你也许希望为经常使用的宏指定快捷键。快捷键是指键的组合,当其按下时执行一条命令。例如:CTRL+C
在许多程序中代表“复制”命令。当给宏指定了快捷键后,就可以用快捷键来执行宏,而不必通过“工具”菜单。
注意:当包含宏的工作簿打开时间,为宏指定快捷键会覆盖excel默认的快捷键。例如:把CTRL+C指定给某个宏,那么CTRL+C就不再执行复制命令。用以下方法可以打印出excel的快捷键清单(用A4纸打印共有24页之多):