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 IntegerDim myobject As Objecti = 1For Each myobject In ActiveWorkbook.Names Cells(i, 5) = myobject.Index Cells(i, 6) = myobject.Name Cells(i, 7) = "'" & myobject.RefersTo i = i + 1NextEnd Sub

如果要删除某个名字。

直接上以下代码

Private Sub CommandButton3_Click() ActiveWorkbook.Names("SH").DeleteEnd Sub

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。

赞 (0)

相关推荐