ExcelVBARange对象基本操作应用技术示例.doc

ExcelVBARange对象基本操作应用示例  2011-03-0211:41:43|  分类:Excel技巧|  标签:|举报|字号大中小 订阅[示例01]赋值给某单元格[示例01-01]Subtest1()Worksheets("Sheet1").Range("A5").Value=22MsgBox"工作表Sheet1内单元格A5中的值为"_&Worksheets("Sheet1").Range("A5").ValueEndSub[示例01-02]Subtest2()Worksheets("Sheet1").Range("A1").Value=_Worksheets("Sheet1").Range("A5").ValueMsgBox"现在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")'="=RAND()"=TrueEndSub示例说明:可以设置Range对象变量来引用单元格区域,然后对该变量所代表的单元格区域进行操作。--------------------------------------[示例03]清除单元格[示例03-01]清除单元格中的内容(ClearContents方法)SubtestClearContents()MsgBox"清除指定单元格区域中的内容"Worksheets(1).Range("A1:H8").ClearContentsEndSub[示例03-02]清除单元格中的格式(ClearFormats方法)SubtestClearFormats()MsgBox"清除指定单元格区域中的格式"Worksheets(1).Range("A1:H8").ClearFormatsEndSub[示例03-03]清除单元格中的批注(ments方法)ments()MsgBox"清除指定单元格区域中的批注"Worksheets(1).Range("A1:H8").mentsEndSub[示例03-04]清除单元格