vba之range对象在excel单元格赋值示例

《vba之range对象在excel单元格赋值示例》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA之Range对象在Excel单元格赋值示例单元格赋值示例－－－－－－－－－－－－－－－－－－－示例一Subtest1()Worksheets("Sheet1").Range("A5").Value=22MsgBox"工作表Sheet1内单元格A5中的值为"_&Worksheets("Sheet1").Range("A5").ValueEndSub示例二Subtest2()Worksheets("Sheet1").Range("A1").Value=_Worksheets("Sheet1").Range("A5")

2、.ValueMsgBox"现在A1单元格中的值也为"&_Worksheets("Sheet1").Range("A5").ValueEndSub示例三Subtest3()MsgBox"用公式填充单元格,本例为随机数公式"Range("A1:H8").Formula="=Rand()"EndSub示例四Subtest4()Worksheets(1).Cells(1,1).Value=24MsgBox"现在单元格A1的值为24"EndSub示例五Subtest5()MsgBox"给单元格设置公式,求B2至B5单元格区域之和

3、"ActiveSheet.Cells(2,1).Formula="=Sum(B1:B5)"EndSub示例六Subtest6()MsgBox"设置单元格C5中的公式."Worksheets(1).Range("C5:C10").Cells(1,1).Formula="=Rand()"EndSub单元格引用示例－－－－－－－－－－－－－－－－－－－SubRandom()DimmyRangeAsRange'设置对单元格区域的引用SetmyRange=Worksheets("Sheet1").Range("A1:D5")'对

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

5、单元格中的格式(ClearFormats方法)SubtestClearFormats()MsgBox"清除指定单元格区域中的格式"Worksheets(1).Range("A1:H8").ClearFormatsEndSub示例三清除单元格中的批注(ClearComments方法)SubtestClearComments()MsgBox"清除指定单元格区域中的批注"Worksheets(1).Range("A1:H8").ClearCommentsEndSub示例四清除单元格中的全部，包括内容、格式和批注(Clear方

6、法)SubtestClear()MsgBox"彻底清除指定单元格区域"Worksheets(1).Range("A1:H8").ClearEndSub其他示例－－－－－－－－－－－－－－－－－－－Range和Cells的用法Subtest()'设置单元格区域A1:J10的边框线条样式WithWorksheets(1).Range(.Cells(1,1),_.Cells(10,10)).Borders.LineStyle=xlThickEndWithEndSub示例说明：可用Range(cell1,cell2)返回一个R

7、ange对象，其中cell1和cell2为指定起始和终止位置的Range对象。选取单元格区域(Select方法)SubtestSelect()'选取单元格区域A1:D5Worksheets("Sheet1").Range("A1:D5").SelectEndSub基于所选区域偏离至另一区域(Offset属性)SubtestOffset()Worksheets("Sheet1").ActivateSelection.Offset(3,1).SelectEndSub示例说明：可用Offset(row,column)(其中r

8、ow和column为行偏移量和列偏移量)返回相对于另一区域在指定偏移量处的区域。如上例选定位于当前选定区域左上角单元格的向下三行且向右一列处单元格区域。选取距当前单元格指定行数和列数的单元格SubActiveCellOffice()MsgBox"显示距当前单元格第3列、第2行的单元格中的值"MsgBoxActiveCell.Off