下载此文档

Excel VBA Range对象等基本操作应用示例.doc


文档分类:IT计算机 | 页数:约10页 举报非法文档有奖
1/10
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/10 下载此文档
文档列表 文档介绍
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<

Excel VBA Range对象等基本操作应用示例 来自淘豆网www.taodocs.com转载请标明出处.

非法内容举报中心
文档信息
  • 页数10
  • 收藏数0 收藏
  • 顶次数0
  • 上传人小辰GG1
  • 文件大小166 KB
  • 时间2021-12-06