ExcelVBARange对象基本操作应用示例.docx

文档介绍：精品文档
精品文档
1
精品文档
ExcelVBARange对象基本操作应用示例
2011-03-0211:41:43| 分类： Excel技巧 |标签： |举报 |字号大中小 订阅
[示例01]赋值给某单元格
[示例01-01]
Subtest1()
Worksheets("Sheet1").Range("A5").Value=22
MsgBox"工作表Sheet1内单元格 A5中的值为"_
Worksheets("Sheet1").Range("A5").ValueEndSub
[示例01-02]Subtest2()
Worksheets("Sheet1").Range("A1").Value=_Worksheets("Sheet1").Range("A5").Value
MsgBox"现在A1单元格中的值也为"&_Worksheets("Sheet1").Range("A5").ValueEndSub
[示例01-03]Subtest3()
MsgBox"用公式填充单元格,本例为随机数公式"Range("A1:H8").Formula="=Rand()"
EndSub
[示例01-04]Subtest4()
Worksheets(1).Cells(1,1).Value=24MsgBox"现在单元格A1的值为24"EndSub
[示例01-05]Subtest5()
MsgBox"给单元格设置公式,求B2至B5单元格区域之和"(2,1).Formula="=Sum(B1:B5)"
EndSub
[示例01-06]Subtest6()
MsgBox"设置单元格C5中的公式."
Worksheets(1).Range("C5:C10").Cells(1,1).Formula="=Rand()"EndSub
--------------------------------------
[示例02]引用单元格
SubRandom()
DimmyRangeAsRange
'设置对单元格区域的引用
SetmyRange=Worksheets("Sheet1").Range("A1:D5")
'对Range对象进行操作
="=RAND()"
=True
EndSub
精品文档
精品文档
2
精品文档
示例说明：可以设置

Range对象变量来引用单元格区域，

然后对该变量所代表的单元格区域
精品文档
精品文档
14
精品文档
进行操作。
精品文档
精品文档
14
精品文档
--------------------------------------
[示例03]清除单元格
[示例03-01]清除单元格中的内容 (ClearContents
SubtestClearContents()
MsgBox"清除指定单元格区域中的内容 "
Worksheets(1).Range("A1:H8").ClearContents
EndSub

方法)
精品文档
精品文档
14
精品文档
[示例

03-02]清除单元格中的格式

(ClearFormats方法)
精品文档
精品文档
14
精品文档
SubtestClearFormats()
精品文档
精品文档
14
精品文档
MsgBox"清除指定单元格区域中的格式

"
精品文档
精品文档
14
精品文档
Worksheets(1).Range("A1:H8").ClearFormats
EndSub
精品文档
精品文档
14
精品文档
[示例

03-03]清除单元格中的批注

(ClearComments

方法)
精品文档
精品文档
14
精品文档
SubtestClearComments()
精品文档
精品文档
14
精品文档
MsgBox"清除指定单元格区域中的批注

"
精品文档
精品文档
14
精品文档
Worksheets(1).Range("A1:H8").ClearComments
EndSub
精品文档
精品文档
14
精品文档
[示例03-04]清除单元格中的全部，包括内容、格式和批注
SubtestClear()
MsgBox"彻底清除指定单元格区域 "
Worksheets(1).Range("A1:H8").Clear
EndSub
------------------