4、关于该编辑器,以后再详细说明,先将注意力集中到显示的代码上。代码如下:(日期和姓名会有不同) Sub 改变颜色() ' ' 改变颜色 Macro ' xw 记录的宏 2000-6-10 ' ' With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End Sub 将来会十分熟悉这种代码,虽然现在它们看上去像一种奇怪的外语。学习VBA或编程语言在某种程度上比较像在学习一种外语。 Sub 改变颜色():这是
6、否可称作:3号警戒,嗯?)有兴趣的话,你将3改为其他数字试试看。 .Pattern = xlSolid:设置该区域的内部图案。由于是录制宏,所以,虽然你并未设置这一项,宏仍然将其记录下来(因为在“图案”选项中有此一项,只是你为曾设置而已)。xlSolid表示纯色。 .PatternColorIndex = xlAutomatic:表示内部图案底纹颜色为自动配色。 End With:结束With 语句。 End Sub:整个宏的结束语 1.6 编辑录制的代码 在上一节,我们录制了一个宏并查看了代码,代码中有两句实际上并不起作用。哪两句?现在,在宏中作
7、一个修改,删除多余行,直到和下面代码相同: Sub 改变颜色() ' ' 改变颜色 Macro ' xw 记录的宏 2000-6-10 ' ' With Selection.Interior .ColorIndex = 3 End With End Sub 完成后,在工作表中试验一下。你会发现结果和修改前的状况一样。在With 语句前加入一行: Range("A5").Select 试着运行该宏,则无论开始选择哪个单元格,宏运行结果都是使A5单元格变红. 现在可以看到,编辑录制的宏同样非常简单。需要编辑宏是因为以下三个方面的原因。一:在录制中出错而