如下表格區(qū)域,如果經(jīng)常需要對北京對應的區(qū)域進行求和求平均等。 我們可以選擇A2:A13,進行命名操作。 如下圖,選擇區(qū)域,名稱框中輸入"BJ",回車。 " 以后就可以直接=SUM(BJ),具體的操作以前也有詳細教程,可以在后臺回復關鍵詞:名稱引用。 今天介紹用VBA來定義名稱。 以下代碼可以實現(xiàn)為區(qū)域命名。 Private Sub CommandButton1_Click() Sheets("Sheet1").Names.Add Name:="BJ", RefersTo:=Range("A2:A13") End Sub 如果B列對應的區(qū)域想命名為 "BJ",也可以換另外一種方法。 Private Sub CommandButton1_Click() Sheets("Sheet1").Range("b2:b13").Name = "SH" End Sub 上面兩種方法均可以命名。 你可以在公式名稱管理器中進行查看。 名字均設置好了,可以看到如下效果。 已經(jīng)取好名字了,可以全部列舉出名字。 主要列舉三個,一個是編號,一個是名字,一個是對應的區(qū)域。 假設將相關內(nèi)容列舉到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 子曰:用之則行,不用則藏。 意思是說,如果你用我的這些建議,就馬上行動,知行合一,如果你不用,就趕緊收藏,以絕后患。 |
|