range对象基本操作应用示例05

《range对象基本操作应用示例05》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、ExcelVBA>>ExcelVBA编程入门范例>>Range对象(fanjy)第五章Range对象基本操作应用示例Range对象可能是VBA代码中最常用的对象，Range对象可以是某一单元格、某一单元格区域、某一行、某一列、或者是多个连续或非连续的区域组成的区域。下面介绍Range对象的一些属性和方法。[示例05-01]赋值给某单元格[示例05-01-01]Subtest1()Worksheets("Sheet1").Range("A5").Value=22MsgBox"工作表Sheet1内单元格A

2、5中的值为"_&Worksheets("Sheet1").Range("A5").ValueEndSub[示例05-01-02]Subtest2()Worksheets("Sheet1").Range("A1").Value=_Worksheets("Sheet1").Range("A5").ValueMsgBox"现在A1单元格中的值也为"&_Worksheets("Sheet1").Range("A5").ValueEndSub[示例05-01-03]Subtest3()MsgBox"用公式填充单

3、元格,本例为随机数公式"Range("A1:H8").Formula="=Rand()"EndSub[示例05-01-04]Subtest4()Worksheets(1).Cells(1,1).Value=24MsgBox"现在单元格A1的值为24"EndSub[示例05-01-05]Subtest5()MsgBox"给单元格设置公式,求B2至B5单元格区域之和"ActiveSheet.Cells(2,1).Formula="=Sum(B1:B5)"EndSub[示例05-01-06]Subtest6

4、()MsgBox"设置单元格C5中的公式."Worksheets(1).Range("C5:C10").Cells(1,1).Formula="=Rand()"EndSub[示例05-02]引用单元格SubRandom()DimmyRangeAsRange'设置对单元格区域的引用-1-http://fanjy.blog.excelhome.netExcelVBA>>ExcelVBA编程入门范例>>Range对象(fanjy)SetmyRange=Worksheets("Sheet1").Range(

5、"A1:D5")'对Range对象进行操作myRange.Formula="=RAND()"myRange.Font.Bold=TrueEndSub示例说明：可以设置Range对象变量来引用单元格区域，然后对该变量所代表的单元格区域进行操作。[示例05-03]清除单元格[示例05-03-01]清除单元格中的内容(ClearContents方法)SubtestClearContents()MsgBox"清除指定单元格区域中的内容"Worksheets(1).Range("A1:H8").ClearCon

6、tentsEndSub[示例05-03-02]清除单元格中的格式(ClearFormats方法)SubtestClearFormats()MsgBox"清除指定单元格区域中的格式"Worksheets(1).Range("A1:H8").ClearFormatsEndSub[示例05-03-03]清除单元格中的批注(ClearComments方法)SubtestClearComments()MsgBox"清除指定单元格区域中的批注"Worksheets(1).Range("A1:H8").ClearC

7、ommentsEndSub[示例05-03-04]清除单元格中的全部，包括内容、格式和批注(Clear方法)SubtestClear()MsgBox"彻底清除指定单元格区域"Worksheets(1).Range("A1:H8").ClearEndSub[示例05-04]Range和CellsSubtest()'设置单元格区域A1:J10的边框线条样式WithWorksheets(1).Range(.Cells(1,1),_.Cels(10,10)).Borders.LineStyle=xlThick

8、EndWithEndSub示例说明：可用Range(cell1,cell2)返回一个Range对象，其中cell1和cell2为指定起始和终止位置的Range对象。[示例05-05]选取单元格区域(Select方法)SubtestSelect()'选取单元格区域A1:D5Worksheets("Sheet1").Range("A1:D5").Select-2-http://fanjy.blog.excelhome.netExcelVBA>>ExcelV