文档介绍：精品文档
精品文档
1
精品文档
Excel_VBA_编程教程(完整版)excel高级教程
VBA-Excel编程观点之:【单元格和地区】一、怎样引用单元格和地区
使用VisualBasic的普通任务是指定单元格或)
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
在命名地区中的单元格上循环
精品文档
精品文档
9
精品文档
下例用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用作Cells属性的行号。
SubCycleThrough( )
DimcounterAsInteger
Forcounter=1To20
Worksheets("Sheet1").Cells(counter,3).Value=counter*5Nextcounter
EndSub
用Range对象引用单元格
如果将对象变量设置为Range对象，即可用变量名方便地操作单元格地区。
下述过程创立了对象变量myRange，然后将活动工作簿中Sheet1上的单元格地区A1:D5赋予该变量。随后的语句用该变量代替该地区对象，以改正该地区的属性。
精品文档
精品文档
10
精品文档
SubRandom( )
DimmyRangeAsRange
SetmyRange=Worksheets("Sheet1").Range("A1:D5")="=RAND( )"=True
EndSub
引用工作表上的所有单元格
如果对工作表应用Cells属性时不指定编号，该属性将返回代表工作表上所有
单元格的Range对象。下述Sub过程除掉活动工作簿中Sheet1上的所有单元格的内容。
SubClearSheet( )
Worksheets("Sheet1").
EndSub
引用多个单元格地区
使用适合的方