Ex...
在Excel工作表中,通过顶部行的字母标识和左侧列的数字标识,我们能够很直观地看出单元格或单元格区域的地址,即通常我们所说的单元格A1、单元格区域A1:B5等。
Excel对象模型也提供了Address属性,让我们通过VBA代码知道单元格或单元格区域的地址。下面,我们举几个简单的代码示例。
代码:
ActiveCell.Address
返回当前工作表中当前单元格的地址。
代码:
Selection.Address
返回当前工作表中所选区域的地址。
代码:
Range(“A1”).CurrentRegion.Address
返回当前工作表中单元格A1所在单元格区域的地址。
代码:
ActiveSheet.UsedRange.Address
返回当前工作表中已使用单元格区域的地址。
上述代码的运行结果如下图所示。
Address属性的语法如下:
Range对象 .Address(RowAbsolute, ColumnAbsolute,ReferenceStyle, External, RelativeTo)
说明:
所有参数均为可选项。
参数RowAbsolute设置为True,则返回的地址行部分为绝对引用。默认值为True。
Excel VBA 句点怎么设置
在前面的内容中,我们看到了通过在对象之间加上句点可以逐步得到想要的对象,以及引用对象的省略写法。 在获得对象之后,我们就要对这个对象进行相应的操作。例如,给对象赋值,让对象做相应的动作,这些就要用到对象的属性和方法。 如何使用对象的属性和方法呢?仍然是用句点,例如: Worksheets.Add 表示添加工作表
参数ColumnAbsolute设置为True,则返回的地址的列部分为绝对引用。默认值为True。
参数ReferenceStyle设置返回的地址的引用样式,可以设置为xlA1(A1样式)或xlR1C1(R1C1样式)。默认值为xlA1。
参数External设置为True,返回的地址包含工作簿名和工作表名。设置为False,返回本地地址(即不带工作簿名和工作表名)。默认值为False。
如果参数RowAbsolute和ColumnAbsolute设置为False,参数ReferenceStyle设置为xlR1C1,那么必须将参数RelativeTo设置为相对的起始单元格对象。
下面为我们设置Address属性的参数的示例代码和运行结果:
Sub AddressTest()
MsgBox “不带参数的结果:” &_
ActiveCell.Address & vbCrLf& _
“设置RowAbsolute参数的结果:”& _
ActiveCell.Address(RowAbsolute:=False) & vbCrLf & _
“设置ColumnAbsolute参数的结果:”& _
ActiveCell.Address(ColumnAbsolute:=False)& vbCrLf & _
“前面两个参数均设置的结果:”& _
ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False) &vbCrLf & _
“设置ReferenceStyle参数的结果:”& _
ActiveCell.Address(RowAbsolute:=False,ColumnAbsolute:=False, ReferenceStyle:=xlR1C1,RelativeTo:=Range(“C1”)) & vbCrLf & _
“设置External参数的结果:”& _
ActiveCell.Address(External:=True)
End Sub
代码的示例工作表和运行结果如下图所示:
excel图表VBA 神奇的句点
阳光花园是一个很大的住宅小区,布置有25栋楼房,每栋楼由高18层的4个单元楼组成,每个单元楼住有2户,每户按楼层编有门牌号。梦梦同学住在9栋4单元601室。 今天,老师要到梦梦家里家访。进入阳光花园小区后,老师要先找到9号楼,再找到4单元,乘座电梯到6楼,找到601室,就到了梦梦家里。 简化一下表示,我们用句点来代