- 1、本文档共18页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Excel VB 中的 Range 和 Cells 用法说明
Range对象基本操作应用示例(1)Range对象可能是VBA代码中最常用的对象,Range对象可以是某一单元格、某一单元格区域、某一行、某一列、或者是多个连续或非连续的区域组成的区域。下面介绍Range对象的一些属性和方法。- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
[示例05-01] 赋值给某单元格[示例05-01-01]Sub test1()Worksheets(Sheet1).Range(A5).Value = 22MsgBox 工作表Sheet1内单元格A5中的值为 _ Worksheets(Sheet1).Range(A5).ValueEnd Sub[示例05-01-02]Sub test2()Worksheets(Sheet1).Range(A1).Value = _Worksheets(Sheet1).Range(A5).ValueMsgBox 现在A1单元格中的值也为 _Worksheets(Sheet1).Range(A5).ValueEnd Sub[示例05-01-03]Sub test3()MsgBox 用公式填充单元格,本例为随机数公式Range(A1:H8).Formula = =Rand()End Sub[示例05-01-04]Sub test4()Worksheets(1).Cells(1, 1).Value = 24MsgBox 现在单元格A1的值为24End Sub[示例05-01-05]Sub test5()MsgBox 给单元格设置公式,求B2至B5单元格区域之和ActiveSheet.Cells(2, 1).Formula = =Sum(B1:B5)End Sub[示例05-01-06]Sub test6()MsgBox 设置单元格C5中的公式.Worksheets(1).Range(C5:C10).Cells(1, 1).Formula = =Rand()End Sub- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
[示例05-02] 引用单元格Sub Random()Dim myRange As Range设置对单元格区域的引用Set myRange = Worksheets(Sheet1).Range(A1:D5)对Range对象进行操作myRange.Formula = =RAND()myRange.Font.Bold = TrueEnd Sub示例说明:可以设置Range对象变量来引用单元格区域,然后对该变量所代表的单元格区域进行操作。- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
[示例05-03] 清除单元格[示例05-03-01]清除单元格中的内容(ClearContents方法)Sub testClearContents()MsgBox 清除指定单元格区域中的内容Worksheets(1).Range(A1:H8).ClearContentsEnd Sub[示例05-03-02]清除单元格中的格式(ClearFormats方法)Sub testClearFormats()MsgBox 清除指定单元格区域中的格式Worksheets(1).Range(A1:H8).ClearFormatsEnd Sub[示例05-03-03]清除单元格中的批注(ClearComments方法)Sub testClearComments()MsgBox 清除指定单元格区域中的批注Worksheets(1).Range(A1:H8).ClearCommentsEnd Sub[示例05-03-04]清除单元格中的全部,包括内容、格式和批注(Clear方法)Sub testClear()MsgBox 彻底清除指定单元格区域Worksheets(1).Range(A1:H8).ClearEnd Sub- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
[示例05-04] Range和CellsSub test()设置单元格区域A1:J10的边框线条样式With Worksheets(1).Range(.Cells(1, 1), _.Cells
文档评论(0)