實例91 對區(qū)域及圖片、圖表命名

【技巧說明】 對區(qū)域及圖片、圖表命名。

【案例介紹】 單元格區(qū)域本身只能以有效格式的地址表示，只有定義名稱后才能使用其他字符表示；而圖片、圖表等一般都以“圖片1”、“圖表2”等方式表示，不夠形象，也不夠具體化。本例則對三個類型進(jìn)行名稱的修改，數(shù)據(jù)如圖2.109所示，現(xiàn)需要將B2∶B8命名為“成績”，將圖表命名為“成績柱形圖表”，將圖片命名為“影星朱茵”。

【案例實現(xiàn)】 參見以下步驟：

[1] 使用快捷鍵Alt+F11進(jìn)入VBE（Visual Basic Editor）環(huán)境。

[2] 單擊菜單【插入】\【模塊】，打開模塊代碼窗口。

[3] 在右邊代碼窗口輸入以下代碼：

Sub命名()
Sheet1.Range("B2:B8").Name="成績"
Sheet1.Shapes("圖表 1").Name="成績柱形圖表"
Sheet1.Shapes("圖片 1").Name="影星朱茵"
MsgBox "命名完成！", 64, "OK"
End Sub

[4] 關(guān)閉VBE窗口返回到工作表。

[5] 利用快捷鍵Alt+F8調(diào)出運行宏窗口，然后單擊“執(zhí)行”按鈕，結(jié)果如圖2.110所示。

圖2.109 默認(rèn)名稱

圖2.110 修改后的名稱

【相關(guān)知識說明】

（1）Name：返回或設(shè)置一個String值，代表對象的名稱。

（2）Shape：代表工作表上的所有形狀。

實例92 顯示與隱藏名稱

【技巧說明】 顯示與隱藏名稱。

【案例介紹】 在名稱管理器中可以顯示及修改工作簿中所有名稱，如圖2.111所示。可以通過代碼將之完全隱藏或者顯示。

【案例實現(xiàn)】 參見以下步驟：

[1] 使用快捷鍵Alt+F11進(jìn)入VBE（Visual Basic Editor）環(huán)境。

[2] 單擊菜單【插入】\【模塊】，打開模塊代碼窗口。

[3] 在右邊代碼窗口輸入以下代碼：

Sub隱藏名稱()
    Dim mystr As Name
    For Each mystr In ThisWorkbook.Names
    mystr.Visible=False
    Next mystr
    MsgBox "名稱已完全隱藏！", 64, "提示"
 End Sub
Sub顯示名稱()
    Dim mystr As Name
    For Each mystr In ThisWorkbook.Names
    mystr.Visible=True
    Next mystr
    MsgBox "名稱已完全顯示！", 64, "提示"
 End Sub

[4] 關(guān)閉VBE窗口返回到工作表。

[5] 利用快捷鍵Alt+F8調(diào)出運行宏窗口，選擇“隱藏名稱”，然后單擊“執(zhí)行”按鈕，結(jié)果如圖2.112所示。

圖2.111 工作簿中的名稱管理器

圖2.112 所有名稱已隱藏

【相關(guān)知識說明】

（1）ThisWorkbook：表示正在運行當(dāng)前宏代碼的工作簿。

（2）Visible：返回或設(shè)置一個Boolean值，它確定對象是否可見。可讀/寫。

實例93 將包含指定名稱的對象隱藏

【技巧說明】 將名稱中包含“箭頭”二字的對象隱藏。

【案例介紹】 工作表中有很多圖形對象，如圖2.113所示，現(xiàn)需要將所有帶有箭頭的對象隱藏。

【案例實現(xiàn)】 參見以下步驟：

[1] 使用快捷鍵Alt+F11進(jìn)入VBE（Visual Basic Editor）環(huán)境。

[2] 單擊菜單【插入】\【模塊】，打開模塊代碼窗口。

[3] 在右邊代碼窗口輸入以下代碼：

Sub隱藏對象()
    Dim mystr  As Shape
    For Each mystr In Sheet1.Shapes
      If mystr.Name Like "*箭頭*" Then
          mystr.Visible=False
      End If
    Next
    MsgBox "所有箭頭已完全隱藏！", 64, "提示"
End Sub

[4] 關(guān)閉VBE窗口返回到工作表。

[5] 利用快捷鍵Alt+F8調(diào)出運行宏窗口，然后單擊“執(zhí)行”按鈕，結(jié)果如圖2.114所示。

圖2.113 工作簿中圖形

圖2.114 隱藏箭頭后的圖形

實例94 利用名稱動態(tài)求和

【技巧說明】 利用名稱動態(tài)求和。

【案例介紹】 如圖2.115所示，B、C、D三列存放成績數(shù)據(jù)，單元格E2存放求和項目。現(xiàn)需要對三個科目進(jìn)行動態(tài)求和，即求和數(shù)據(jù)跟隨E2選擇的求和項目變化，并且人員數(shù)目增加或者減少時求和數(shù)據(jù)也同樣能適應(yīng)變化。

【案例實現(xiàn)】 參見以下步驟：

[1] 使用快捷鍵Alt+F11進(jìn)入VBE（Visual Basic Editor）環(huán)境。

[2] 使用快捷鍵Ctrl+R，顯示工程資源管理器。

[3] 雙擊左邊列表中的“Sheet1”，打開工作表代碼窗口。

[4] 在右邊代碼窗口輸入以下代碼：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address="$E$2" Then
 ActiveWorkbook.Names.Add Name:="語文", RefersToR1C1:="=Sheet1!" &
      Range([b2], Range("b1048576").End(xlUp)).Address(, , xlR1C1)
 ActiveWorkbook.Names.Add Name:="數(shù)學(xué)", RefersToR1C1:="=Sheet1!" &
      Range([c2], Range("c1048576").End(xlUp)).Address(, , xlR1C1)
 ActiveWorkbook.Names.Add Name:="地理", RefersToR1C1:="=Sheet1!" &
      Range([d2], Range("d1048576").End(xlUp)).Address(, , xlR1C1)
MsgBox Target & "合計為：" & WorksheetFunction.Sum(Range(Target.Text))
End If
End Sub

[5] 關(guān)閉VBE窗口返回到工作表。

[6] 在單元格E2下拉框中選擇一個求和項目，程序?qū)棾鲈擁椖康膮R總數(shù)據(jù)，如圖2.116所示。

圖2.115 成績表

圖2.116 選擇求和項目并動態(tài)求和

【相關(guān)知識說明】

Names.Add：添加一個名稱。