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

ExcelVBARange对象基本操作应用示例.docxExcelVBARange对象基本操作应用示例
ExcelVBARange对象基本操作应用示例
1
ExcelVBARange对象基本操作应用示例
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")
ExcelVBARange对象基本操作应用示例
ExcelVBARange对象基本操作应用示例
2
ExcelVBARange对象基本操作应用示例
'对Range对象进行操作
="=RAND()"
=True
EndSub
ExcelVBARange对象基本操作应用示例
ExcelVBARange对象基本操作应用示例
3
ExcelVBARange对象基本操作应用示例
示例说明：可以设置

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

尔后对该变量所代表的单元格地域
ExcelVBARange对象基本操作应用示例
ExcelVBARange对象基本操作应用示例
14
ExcelVBARange对象基本操作应用示例
进行操作。
ExcelVBARange对象基本操作应用示例
ExcelVBARange对象基本操作应用示例
14
ExcelVBARange对象基本操作应用示例
--------------------------------------
[示例03]除去单元格
[示例03-01]除去单元格中的内容 (ClearContents
SubtestClearContents()
MsgBox"除去指定单元格地域中的内容 "
Worksheets(1).Range("A1:H8").ClearContents
EndSub

方法)
ExcelVBARange对象基本操作应用示例
ExcelVBARange对象基本操作应用示例
14
ExcelVBARange对象基本操作应用示例
[示例

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

(ClearFormats方法)
ExcelVBARange对象基本操作应用示例
ExcelVBARange对象基本操作应用示例
14
ExcelVBARange对象基本操作应用示例
SubtestClearFormats()
ExcelVBARange对象基本操作应用示例
ExcelVBARange对象基本操作应用示例
14
ExcelVBARange对象基本操作应用示例
MsgBox"除去指定单元格地域中的格式

"
ExcelVBARange对象基本操作应用示例
ExcelVB