VBA中使用名称引用
如下表格区域,如果经常需要对北京对应的区域进行求和求平均等。
我们可以选择A2:A13,进行命名操作。
如下图,选择区域,名称框中输入"BJ",回车。
"
以后就可以直接=SUM(BJ),具体的操作以前也有详细教程,可以在后台回复关键词:名称引用。
今天介绍用VBA来定义名称。
以下代码可以实现为区域命名。
Private Sub CommandButton1_Click()
Sheets("Sheet1").Names.Add Name:="BJ", RefersTo:=Range("A2:A13")
End Sub
如果B列对应的区域想命名为 "BJ",也可以换另外一种方法。
Private Sub CommandButton1_Click()
Sheets("Sheet1").Range("b2:b13").Name = "SH"
End Sub
上面两种方法均可以命名。
你可以在公式名称管理器中进行查看。
名字均设置好了,可以看到如下效果。
已经取好名字了,可以全部列举出名字。
主要列举三个,一个是编号,一个是名字,一个是对应的区域。
假设将相关内容列举到E列
使用以下代码:
Private Sub CommandButton2_Click()
Dim i As Integer
Dim myobject As Object
i = 1
For Each myobject In ActiveWorkbook.Names
Cells(i, 5) = myobject.Index
Cells(i, 6) = myobject.Name
Cells(i, 7) = "'" & myobject.RefersTo
i = i + 1
Next
End Sub
如果要删除某个名字。
直接上以下代码
Private Sub CommandButton3_Click()
ActiveWorkbook.Names("SH").Delete
End Sub
子曰:用之则行,不用则藏。
意思是说,如果你用我的这些建议,就马上行动,知行合一,如果你不用,就赶紧收藏,以绝后患。
赞 (0)