1 / 13
文档名称:

wordExcelVBA编程教案excel高级教案==.docx

格式:docx   大小:50KB   页数:13页
下载后只包含 1 个 DOCX 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

文档介绍:精品文档
精品文档

1
精品文档

Excel_VBA_编程教程(完整版)excel高级教程


VBA-Excel编程观点之:【单元格和地区】一、怎样引用单元格和地区


使用VisualBasic的普通任务是指定单元格或)
Worksheets("Sheet1").[A1:B5].ClearContents
EndSub

SubSetValue( )
[MyRange].Value=30
EndSub

引用命名地区

用名称比用A1样式记号更容易表记单元格地区。若要命名选定的单元格地区,
请单击编写栏左端的名称框,键入名称,再按Enter。

引用命名地区
下例引用了名为“MyBook.xls的”工作簿中的名为“MyRange”的单元格地区。

SubFormatRange( )
Range("MyBook.xls!MyRange").Font.Italic=True
EndSub
下例引用名为“Report.xls的”工作簿中的特定工作表单元格地区“Sheet1!Sales。”

SubFormatSales( )
Range("[Report.xls]Sheet1!Sales").BorderAroundWeight:=xlthin
EndSub
若要选定数名地区,请用GoTo方法,该方法将激活工作簿和工作表,然后选定该地区。

SubClearRange( )
Application.GotoReference:="MyBook.xls!MyRange"
Selection.ClearContents
EndSub
下例显示关于活动工作簿将怎样编写相同的过程。

SubClearRange( )
Application.GotoReference:="MyRange"
Selection.ClearContents
EndSub
在命名地区中的单元格上循环
精品文档
精品文档

9
精品文档



下例用ForEach...Next循环语句在命名地区中的每一个单元格上循环。如果该地区中的任一单元格的值超过limit的值,就将该单元格的颜色更改为黄色。

SubApplyColor( )
ConstLimitAsInteger=25
ForEachcInRange("MyRange")
Ifc.Value>LimitThen
c.Interior.ColorIndex=27
EndIf
Nextc
EndSub

相关于其他单元格来引用单元格

办理相关于另一个单元格的某一单元格的常用方法是使用Offset属性。下例中,将位于活动工作表上活动单元格下一行和右边三列的单元格的内容设置为双下
划线格式。

SubUnderline( )
ActiveCell.Offset(1,3).Font.Underline=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")myRange.Formula="=RAND( )"myRange.Font.Bold=True
EndSub

引用工作表上的所有单元格

如果对工作表应用Cells属性时不指定编号,该属性将返回代表工作表上所有
单元格的Range对象。下述Sub过程除掉活动工作簿中Sheet1上的所有单元格的内容。

SubClearSheet( )
Worksheets("Sheet1").Cells.ClearContents
EndSub

引用多个单元格地区

使用适合的方

分享好友

预览全文

wordExcelVBA编程教案excel高级教案==.docx

上传人:花双韵芝 2022/5/17 文件大小:50 KB

下载得到文件列表

wordExcelVBA编程教案excel高级教案==.docx

相关文档