VBA Address expression

expression.Address(RowAbsolute, ColumnAbsolute, ReferenceStyle, External, RelativeTo)

expression      必需。该表达式返回上面的对象之一。

RowAbsolute      Variant 类型，可选。如果为 True，则以绝对引用方式返回对行的引用。 默认值为 True。

ColumnAbsolute      Variant 类型，可选。如果为 True，则以绝对引用方式返回对列的引用。默认值为 True。

ReferenceStyle      XlReferenceStyle 类型，可选。

XlReferenceStyle 可为以下 XlReferenceStyle 常量之一。

xlA1 默认值。如果用 xlA1，则返回 A1 样式的引用。

xlR1C1。如果用 xlR1C1，则返回 R1C1 样式的引用。

External      Variant 类型，可选。如果为 True，则返回外部引用。如果为 False，则返回局部引用。默认值为 False。

RelativeTo      Variant 类型，可选。如果 RowAbsolute 和 ColumnAbsolute 为 False, ReferenceStyle 为 xlR1C1, 则必须指定相对引用的起始点。本参数即为定义起始点的 Range 对象。

说明

如果引用包含多个单元格，RowAbsolute 和 ColumnAbsolute 将应用于所有的行和列。

示例

下面的示例对工作表 Sheet1 中的同一单元格地址使用了四种不同的表达方式。示例中的注释为将要显示于消息框中的地址。

Set mc = Worksheets("Sheet1").Cells(1, 1)
MsgBox mc.Address()                              ' $A$1
MsgBox mc.Address(RowAbsolute:=False)            ' $A1
MsgBox mc.Address(ReferenceStyle:=xlR1C1)        ' R1C1
MsgBox mc.Address(ReferenceStyle:=xlR1C1, _
    RowAbsolute:=False,     _
    ColumnAbsolute:=False,  _
    RelativeTo:=Worksheets(1).Cells(3, 3))        ' R[-2]C[-2]

转载于:https://www.cnblogs.com/nchxmoon/archive/2013/01/24/2874267.html