Excel VBA编程  分析宏代码
一般宏过程都以关键词“Sub”开始，并以关键词“End Sub”结束。在关键词“Sub”之后是宏的的名称，然后紧跟着是一对括号。在关键词Sub 和End Sub之间是每次运行宏时，要执行的语句。
程序是从关键词Sub行开始执行，以从上到下方式读取语句，中间忽略那些语句前带单引号的语句（注释语句），执行到End Sub时停止。
如宏“设置单元格”，其中代码如下：
Sub 设置单元格()
    '选择单元格B1
    Range("B1").Select
    '设置指定行的公式或内容
    ActiveCell.FormulaR1C1 = "Text"
vba编程免费教程    '将指定单元格内部设置为红
    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.PatternColorIndex = xlAutomatic

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。