Ecel VBA编程 分析宏代码.docxVIP

Excel VBA 编程 分析宏代码 一般宏过程都以关键词“Sub”开始，并以关键词“End Sub”结束。在关键词“Sub”之后是宏的的名称，然后紧跟着是一对括号。在关键词Sub 和End Sub之间是每次运行宏时，要执行的语句。 程序是从关键词Sub行开始执行，以从上到下方式读取语句，中间忽略那些语句前带单引号的语句（注释语句），执行到End Sub时停止。 如宏“设置单元格”，其中代码如下： Sub 设置单元格() Sub 设置单元格() 选择单元格B1 Range(B1).Select 设置指定行的公式或内容ActiveCell.FormulaR1C1 = Text 将指定单元格内部设置为红色With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End Sub 宏代码中的语句“Range(B1).Select”。Range()是一个对象，返回一个单元格或单元格区域。Select是Range()对象的一个方法。整个语句指的是选择单元格“B1”。 代码“ActiveCell.FormulaR1C1 = Text”。其中ActiveCell属性，返回一个Range 对象，它代表当前工作表中活动单元格。FormulaR1C1属性，是指返回或设置指定对象的公式，使用宏语言R1C1 格式符号表示。整个语句指工作表中所选单元格的值为“Text”。 代码“With?End With”中的语句，with语句指在一个单一对象或一个用户定义类型上执行一系列的语句，以End With结束。其中“Selection.Interior”是指选定对象（单元格或单元格区域）的内部。语句“.ColorIndex = 3 ”指内部的颜色为“红色”；语句“.Patterm = xlsolid ”指内部的填充图案为“实心”；语句“.PatternColorIndex = xlAutomatic”指内部的图案颜色为 “xlAutomatic”。 With语句块的代码还可以写成如下代码： Selection.Interior.ColorIndex = 3 Selection.Interior.Pattern = xlSolid Selection.Interior.ColorIndex = 3 Selection.Interior.Pattern = xlSolid Selection.Interior.PatternColorIndex = xlAutomatic