No.1

Address是Range对象的一个重要属性，而用好这个属性也是学习vba编程一个必修课。

本章介绍关于Address的一些参数功能，对于全面了解和学习Range地址寻址方面十分必要。

Address英译为地址。

对于二维表操作，地址定位十分关键，也是对数据进行检索的途径。

下图为Address语法和参数：

通常情况下，我们只要对Address属性以默认方式使用就足够使用。

RowAbsolute TRUE 绝对引用性
ColumnAbsolute TRUE 绝对引用列
ReferenceStyle -4150 引用样式
External FALSE 本地引用

但是想使用不同的方式来表现地址，就需要对以上参数进行设置。

下图为设置不同参数进行的一个地址显示。

No.2

可以看到上图为默认值A1样式显示地址。

下图为 R1C1 样式显示址。

很显然是有所不同的。在编程过程中分别区分这两种样式，根据不同的需要进行设置。

设置参数为：ReferenceStyle:=xlA1和ReferenceStyle:=xlR1C1

No.3

示例代码

下图为本节示例代码

显示地址按钮代码

Private Sub CommandButton1_Click()
Dim r As Range, ad As String
Set r = ThisWorkbook.ActiveSheet.Range("C3")
With ThisWorkbook.ActiveSheet.Select
    MsgBox "Address属性选择：" & VBA.vbCrLf _
    & "ReferenceStyle:" & r.Offset(3, 0).Value & VBA.vbCrLf _
    & "Rowabsolute:" & r.Offset(1, 0) & VBA.vbCrLf _
    & "Columnabsolute:" & r.Offset(2, 0) & VBA.vbCrLf _
    & "External:" & r.Offset(4, 0)
    ad = Selection.Address(ReferenceStyle:=r.Offset(3, 0).Value _
    , Rowabsolute:=r.Offset(1, 0).Value _
    , columnabsolute:=r.Offset(2, 0).Value _
    , external:=r.Offset(4, 0).Value)
   ThisWorkbook.ActiveSheet.Range("A9") = ad
End With
End Sub

Address属性使用很普遍，在编程过程中也不可避免。

所以，要全面掌握这个属性以及参数的的使用方法，对熟悉使用地址进行编程是一个十分重要的内容。

通过以上例子可以很方便地对不同的参数有一个明确的了解。

欢迎关注、收藏

王剑编程网

分享专业编程知识与实战技巧

Address属性介绍，vba编程学习基础知识

No.1

No.2

No.3