文档介绍：wordExcelVBA编程教案excel高级教案==
wordExcelVBA编程教案excel高级教案==
1
wordExcelVBA编程教案excel高级教案==
Excel_VBA_编程教程(完整版)excel高级xcelVBA编程教案excel高级教案==
若要同时处理若干行或列，请创建一个对象变量并使用Union方法，将对
wordExcelVBA编程教案excel高级教案==
wordExcelVBA编程教案excel高级教案==
13
wordExcelVBA编程教案excel高级教案==
Rows属性或Columns属性的多个调用组合起来。下例将活动工作簿中第一张工作表上的第一行、第三行和第五行的字体设置为加粗。
SubSeveralRows( )
Worksheets("Sheet1").Activate
DimmyUnionAsRange
SetmyUnion=Union(Rows(1),Rows(3),Rows(5))
=True
EndSub
wordExcelVBA编程教案excel高级教案==
wordExcelVBA编程教案excel高级教案==
13
wordExcelVBA编程教案excel高级教案==
用快捷记号引用单元格
可用方括号将A1引用样式或命名区域括起来，作为Range属性的快捷方式。
这样就不必键入单词“Range”或使用引号，如下例所示。
SubClearRange( )
Worksheets("Sheet1").[A1:B5].ClearContents
EndSub
SubSetValue( )
[MyRange].Value=30
EndSub
引用命名区域
用名称比用A1样式记号更容易标识单元格区域。若要命名选定的单元格区域，
请单击编辑栏左端的名称框，键入名称，再按Enter。
引用命名区域
下例引用了名为“”工作簿中的名为“MyRange”的单元格区域。
SubFormatRange( )
Range("!MyRange").=True
EndSub
下例引用名为“”工作簿中的特定工作表单元格区域“Sheet1!Sales。”
SubFormatSales( )
Range("[]Sheet1!Sales").BorderAroundWeight:=xlthin
EndSub
若要选定命名区域，请用GoTo方法，该方法将激活工作簿和工作表，然后选定该区域。
SubClearRange( )
:="!MyRange"
EndSub
下例显示对于活动工作簿将如何编写相同的过程。
SubClearRange( )
:="MyRange"
EndSub
在命名区域中的单元格上循环
wordExcelVBA编程教案excel高级教案==
wordExcelVBA编程教案excel高级教案==
9
wordExcelVBA编程教案excel高级教案==
下例用ForEach...Next循环语句在命名区域中的每一个单元格上循环。如果该区域中的任一单元格的值超过limit的值，就将该单元格的颜色更改为黄色。
SubApplyColor( )
ConstLimitAsInteger=25
ForEachcInRange("MyRange")
>LimitThen
=27
EndIf
Nextc
EndSub
相对于其他单元格来引用单元格
处理相对于另一个单元格的某一单元格的常用方法是使用Offset属性。下例中，将位于活动工作表上活动单元格下一行和右边三列的单元格的内容设置为双下
划线格式。
SubUnderline( )
(1,3).=xlDouble
EndSub
注意可录制使用Offset属性（而不是绝对引用）的宏。在“工具”菜单上，指向“宏”，再单击“录制新宏”，然后单击“确定”，再单击录制宏工具栏上的“相对引用”按钮。
若要在单元格区域中循环，请在循环中将变量与Cells属性一起使用。下例以5为步长，用5到100之间的值填充第三列的前20个单元格。变量counter用