六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

总结Excel之VBA编程之引用单元格、区域的各种方法下篇

Admin | 2010-6-14 13:06:49 | ReadNums | 10022 | 标签 六合开奖结果现场直播 | 打印本页
     

  Excel单元格引用、区域的引用,在VBA编程中,有着重要的意义。掌握单元格、区域的引用方法,可方便我们对数据进行相应的处理。下面,是单元格、区域的引用方法之总结,希望对您有帮助。

  接上篇…

  ⑦相对于其他单元格来引用单元格

  处理相对于另一个单元格的某一单元格的常用方法是使用 Offset 属性。下例中,将位于活动工作表上活动单元格下一行和右边三列的单元格的内容设置为双下划线格式。

  ActiveCell.Offset(1, 3).Font.Underline = xlDouble

  注意 可录制使用 Offset 属性(而不是绝对引用)的宏。在“工具”菜单上,指向“宏”,再单击“录制新宏”,然后单击“确定”,再单击录制宏工具栏上的“相对引用”按钮。

  若要在单元格区域中循环,请在循环中将变量与 Cells 属性一起使用。下例以 5 为步长,用 5 到 100 之间的值填充第三列的前 20 个单元格。变量 counter 用作 Cells 属性的行号。

  Dim counter As Integer
  For counter = 1 To 20
   Worksheets("Sheet1").Cells(counter, 3).Value = counter * 5
  Next counter

  ⑧用Range对象引用单元格

  如果将对象变量设置为 Range 对象,即可用变量名方便地操作单元格区域。

  下述过程创建了对象变量 myRange,然后将活动工作簿中 Sheet1 上的单元格区域 A1:D5 赋予该变量。随后的语句用该变量代替该区域对象,以修改该区域的属性。

  Dim myRange As Range
  Set myRange = Worksheets("Sheet1").Range("A1:D5")
  myRange.Formula = "=RAND()"
  myRange.Font.Bold = True

  ⑨引用工作表上的所有单元格

  如果对工作表应用 Cells 属性时不指定编号,该属性将返回代表工作表上所有单元格的 Range 对象。下述 Sub 过程清除活动工作簿中 Sheet1 上的所有单元格的内容。

  Worksheets("Sheet1").Cells.ClearContents

  ⑩引用多个单元格区域

  使用适当的方法可以很容易地同时引用多个单元格区域。可用 Range 和 Union 方法引用任意组合的单元格区域;用 Areas 属性可引用工作表上选定的一组单元格区域。

  使用 Range 属性

  通过在两个或多个引用之间放置逗号,可使用 Range 属性来引用多个单元格区域。下例清除了 Sheet1 上三个单元格区域的内容。

  Worksheets("Sheet1").Range("C5:D9,G9:H16,B14:D18"). _
  ClearContents

  命名区域使得用 Range 属性处理多个单元格区域更为容易。下例可在三个命名区域处于同一工作表时运行。

  Range("MyRange, YourRange, HisRange").ClearContents

  使用 Union 方法

  用 Union 方法可将多个单元格区域组合到一个 Range 对象中。下例创建了名为 myMultipleRange 的 Range 对象,并将其定义为单元格区域 A1:B2 和 C3:D4 的组合,然后将该组合区域的字体设置为加粗。

  Dim r1, r2, myMultipleRange As Range
  Set r1 = Sheets("Sheet1").Range("A1:B2")
  Set r2 = Sheets("Sheet1").Range("C3:D4")
  Set myMultipleRange = Union(r1, r2)
  myMultipleRange.Font.Bold = True

  使用 Areas 属性

  可用 Areas 属性引用选定的单元格区域或多块选定区域中的区域集合。下述过程计算选定区域中的块数目,如果有多个块,就显示一则警告消息。

  If Selection.Areas.Count > 1 Then
   MsgBox "Cannot do this to a multiple selection."
  End If


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日