Excel_VBA_Range对象等基本操作应用示例.docExcel VBA Range对象等基本操作应用示例 第一大类:示例 一、 赋值给某单元格 Sub test 10 WorksheetsC^Sheetr1) Range(nA5M).\ahie = 22 MsgBox ”工作表Sheet 1内单元格A5中的值为” _ & Worksheets(MSheetr,).Range(MA5tt)Aalue End Sub 2、 Sxib test20 Worksheets(MSheetrt).Range(nArf)Aalue = _ Worksheets(MSheetrt).Range(HA5H)Aalue MsgBox ”现在Al单元格中的值也为"& _ Worksheets(MSheetlH) Range(nA5H)Aahie End Sub 3、 Sub test30 MsgBox ”用公式填充单元格,本例为随机数公式” Range(nAl :H8n).Fonnula = n=Rand()M End Sub 4、 Sub test4() Worksheets(l).Cells(l, l)Aalue = 24 MsgBox ”现在单元格Al的值为24“ End Sub 5、 Sub test50 MsgBox ”给单元格设宜公式,求B2至B5单元格区域之和” (2, 1) Fonnula = H=Sum(Bl:B5)H End Sub 6、 Sub test60 MsgBox ”设置单元格C5中的公式•” Worksheets( 1) Range(HC5:Cl0H).Cells( 1, 1) Foriimla = H=Rand()H End Sub 二、 引用单元格 Sub RandomO Dim myRange As Range ,设置对单穴;格区域的引用 Set myRange = Worksheets("Sheet 1") Raiige("A1:D5") ,对 Range 对象进彳 j操作 = M=RAND()M Bold = Tnie End Sub 示例说明:町以设置Range对象变最来引用单元格区域,然后对该变最所代表的单尤格区 域进行操作。 三、 清除单元格 1、 清除单元格中的内容(ClearContents方法) Sub testClearContents() MsgBox”清除指定单元格区域中的内容” Worlaheets(l).Range(nAl:H8,<,ontents End Sub 2、 清除单元格中的格式(ClearFormats方法) Sub testClearForinats() MsgBox ”清除指定单元格区域中的格式” Worksheets(l) Range(HAl :H8n).ClearFon«ats End Sub 3、 清除单元格中的批注(CleaiComments方法) Sub testClearConimentsO MsgBox ”清除指定单元格区域中的批注” Worksheets( 1 ).Range(HAl :H8,,).Cleai<