zoukankan      html  css  js  c++  java
  • Excel 2003 中如何用VBA 代码访问单元格里的值及操作单元格

    在Excel 中编写VBA 代码,最常做的事可能就是操作表单中单元格里的数据。 我这里总结一下如何从VBA 代码中操作单元格的数据。

    在VBA 代码中操作单元格需要用到Range 对象,Range 是Excel 库(即Excel.exe文件)提供的一个类,封装了对表单中单元格的所有操作。Range 对象可以是一个单元格,一行单元格,一列单元格,或者四方的连续的单元格范围,甚至是几个单元格范围组合在一起。至于一个具体的Range 对象到底代表什么,就看我们怎么构造它了。(注,Range 类不支持New 操作符,在VBA 代码中声明的Range 变量只能是已有的Range 对象的引用。)

    在Excel VBA 中给Range 变量赋值时,等号左边是一个Range 对象的引用名,右边是能返回Range 对象的属性或方法。某些能返回Range 对象的属性体现了(构造)函数的多态性。当然,返回值不一定非要赋给某个引用变量名。

    Application,Worksheet 等对象的Range 属性可以返回Range 对象。Range 属性的一种形态是: 
    Range(String arg)       传递的参数是个字符串。

    例如,Worksheets("Sheet1").Range("A5") 表示“Sheet1”表单上的A5 单元格。 
    字符串参数的表达方式是很灵活的,除了像上面的例子表示单一的单元格外,还可以表示一块连续的单元格范围。 
    例如,Worksheets("Sheet1").Range("A1:B5") 表示“Sheet1”表单上A1到B5 的一块连续的单元格范围。

    此外,字符串参数还可以表示不连续的单元格范围组合在一起。 
    例如,Worksheets("Sheet1").Range("A1:A10,C1:C10,E1:E10") 表示“Sheet1”表单上A1到A10,C1到C10,E1到E10 三块单元格范围的集合。

    注意:在用字符串表示单元格或单元格范围的地址时,要用A1表示法,不能用R1C1表示法。关于Excel 单元格或单元格范围的几种地址表示法,可以看一下我的另一篇文章。

    Range 属性的字符串参数不仅可以表示单元格或单元格范围的地址,如果你在表单里定义了单元格或单元格范围的名称,我们还可以用已定义的名称来访问表单上的单元格。

    例如,我们在“Sheet1”表单上选择A1到B5这样一块连续单元格,在“Name Box”里输入Sample,这样就给A1:B5 这个范围起了个名字“Sample”。此时,使用 Worksheets("Sheet1").Range("Sample") 表示的单元格或范围跟使用 Worksheets("Sheet1").Range("A1:B5") 是等价的。

    Range 属性也是类的成员,因此,我们可以省略它的限制符,写成:

    Range("A1:B5") ,Range("Sample") ,Range("A5") 等等。

    当不加对象限制符时,Range 属性返回活动表单上的单元格或范围。如果活动表单不是工作表(Worksheet)的话,比如是Chart Sheet ,这条语句就会出错。加上对象限制符是良好的编程习惯。

    Range 属性的另一种形态是: 
    Range(Range Cell1, Rang Cell2)        cell1 和 cell2 两个参数都是 Range 对象,表示一块连续单元格中位于对角线两头的单元格,即左上角和右下角的两个单元格。

    例如,Range(Range("A1"), Range("C5")) 表示 A1:C5 的单元格范围,跟 Range("A1:C5") 是等价的。所以,我们通常不把 Range 属性这样嵌套起来用,下面讲的Cells 属性经常跟 Range 的这种实现结合在一起用。

    Application,Worksheet,Range 等对象的Cells 属性返回的也是 Range 对象,但是Cells 属性返回的是单一的单元格。Excel 库中并没有Cell 这个类,表示单一的单元格和一块单元格范围都并在 Range 这个类中了,就看我们把它初始化成多大。Cells 属性的语法是:

    Cells(rowcolumn)        row 表示单元格位于第几行,column 表示单元格位于第几列。

    Worksheets(1).Cells(1, 1).Value = 24 ——这行代码把A1 单元格的值设成24

    Cells 属性也是类的成员,我们也可以省略它的限制符,默认为活动表单上的单元格。

    Cells(2, 1).Formula = "=Sum(B1:B5)"   ——设置活动表单上 A2 单元格的公式

    Range("A1")和 Cells(1,1) 都表示单元格A1,但是Cells 属性在编程上有优势,它的行和列参数可以是变量。虽然我们可以通过字符串连接给 Range 属性传递参数,到底是麻烦一些。

    Range 属性和Cells 属性结合起来的例子,Range(Cells(1, 1), Cells(5, 3)),表示A1:C5 连续的一块单元格范围,跟 Range("A1:C5") 是等价的。再看个例子:

    With Worksheets(1)
        .Range(.Cells(1, 1), .Cells(10, 10)).Borders.LineStyle = xlThick
    End With

    注意每个Cells 属性前的句点,此时,返回的单元格是第一张工作表上的单元格。如果去掉句点,返回的则是活动表单上的单元格。(第一张工作表不一定是活动表单) 

    假设 rowindex 和 columindex 是例程里的两个变量,下面一段代码根据用户输入的行数和列数,从A1单元格一直到 rowindex 和columindex 交叉处的单元格,从1 开始,按行每格递增1填上数字。

    rowindex = Val(InputBox("Please enter row number.", , 1))
    columnindex = Val(InputBox("Please enter column number.", , 1))
    For i = 1 To rowindex
        For j = 1 To columnindex
            Cells(i, j) = (i - 1) * columnindex + j
        Next j
    Next i

    Cells 属性用在Range 对象时,行数和列数的参照系是Range 对象,也就是说,行和列是相对于Range 对象左上角的单元格开始数的。

    例如,Worksheets(1).Range("C5:C10").Cells(2, 1) 指的是第一张表单上的C6 单元格。

    Range 对象的 Offset 属性返回当前 Range 对象偏移指定的行数和列数后的一个Range 对象,大小不变,只是位置发生变化。语法:

    Offset( row, column)     row 和 column 是行和列的偏移数

    Application 和类的方法成员 Union(range1, range2, ...) 可以把多个单元格范围组合在一起作为一个Range 对象。

  • 相关阅读:
    干掉 LaTeX !用BookDown写本书
    Java面试指北!13个认证授权常见面试题/知识点总结!| JavaGuide
    写了个简洁的Typora+Markdown简历模板
    有哪些可以提高代码质量的书籍推荐?
    京东数科面试真题:常见的 IO 模型有哪些?Java 中的 BIO、NIO、AIO 有啥区别?
    国内有哪些顶级技术团队的博客值得推荐?
    两万字长文总结,梳理 Java 入门进阶那些事
    藏在栈里的金丝雀
    surging 如何使用流媒体服务
    低代码平台--基于surging开发微服务编排流程引擎构思
  • 原文地址:https://www.cnblogs.com/IvanChen/p/4488567.html
Copyright © 2011-2022 走看看