實例61 單元格鏈接

【技巧說明】 光標從一個單元格跳轉至另一個單元格。

【案例介紹】 將光標定位于B4，需要單擊單元格時跳轉至單元格A1。

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

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

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

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

Sub鏈接至A1()
    Range("B4").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:
         ="Sheet1!A1", ScreenTip:="跳轉至a1", TextToDisplay:="到a1"
    'Anchor表示位置，SubAddress表示鏈接到的目標區(qū)域，TextToDisplay表示單元格
        顯示值,ScreenTip表示屏幕提示
End Sub

[4] 關閉VBE窗口返回到工作表。

[5] 將光標定位于任意單元格，用快捷鍵Alt+F8調出運行宏窗口，然后單擊“執(zhí)行”按鈕，D4單元格將產(chǎn)生鏈接功能與鏈接提示，如圖2.58所示。單擊后光標定位于單元格A1，如圖2.59所示。

圖2.58 添加鏈接

圖2.59 單擊鏈接后跳轉至A1

【相關知識說明】

Hyperlinks：代表工作表或區(qū)域的超鏈接的集合，利用Add方法可以向單元格添加鏈接。Hyperlinks的語法如下：

Hyperlinks.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

Hyperlinks各參數(shù)功能見表2.3。

表2.3 Hyperlinks各參數(shù)功能列表

實例62 工作表鏈接

【技巧說明】 光標從一個單元格跳轉至另一個工作表。

【案例介紹】 在工作表C3∶C6中輸入當前工作簿的所有工作表名稱，單擊名稱則跳轉至相應工作表。

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

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

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

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

Sub添加鏈接()
    Dim i, rng As Range
    For i=1 To 4
    Set rng=Cells(i+2, 3)
      ActiveSheet.Hyperlinks.Add Anchor:=rng, Address:="", SubAddress:=
            rng.Text & "!A1", ScreenTip:=rng.Text & "!A1", TextToDisplay:=
            rng.Text
    Next
End Sub

[4] 關閉VBE窗口返回到工作表。

[5] 用快捷鍵Alt+F8調出運行宏窗口，然后單擊“執(zhí)行”按鈕，C3∶C6區(qū)域的工作表名稱將產(chǎn)生鏈接功能，并且提示鏈接目標區(qū)域地址，如圖2.60所示。

圖2.60 添加鏈接

【相關知識說明】

（1）單元格已有超鏈接功能時，單擊單元格將激活鏈接目標，如果此時需要選擇單元格，則在單擊單元格時按住鼠標不動，三秒鐘后自動變激活鏈接為選擇。

（2）如果要刪除本例方式添加的超鏈接，有兩種方法：

● 在任一空白單元格輸入1，復制該單元格，然后選擇需要取消鏈接的區(qū)域，單擊鼠標右鍵，選擇菜單【選擇性粘貼】，在“選擇性粘貼”對話框中選擇“乘”，單擊“確定”按鈕即可。

● 也可以用代碼來刪除：

Sub刪除鏈接()
Selection.Hyperlinks.Delete
End Sub

實例63 刪除工作表中數(shù)據(jù)鏈接

【技巧說明】 刪除與其他工作簿的數(shù)據(jù)鏈接。

【案例介紹】 工作表中有很多公式，其中有鏈接到其他工作簿數(shù)據(jù)的公式，若目錄工作簿移動位置或者被刪除，則公式結果將出錯。現(xiàn)需將這種引用了其他工作簿數(shù)據(jù)的公式轉換成數(shù)值，其他公式則保留。數(shù)據(jù)表如圖2.61所示。

圖2.61 引用了其他工作簿數(shù)據(jù)的工作表

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

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

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

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

Sub刪除與其他工作簿之數(shù)據(jù)鏈接()
    Dim Cell As Range, FirstAddress As String
    Application.ScreenUpdating=False
    With ActiveSheet.UsedRange
      Set Cell=.Find("=*!", LookIn:=xlFormulas, searchorder:=xlByRows,
            LookAt:=xlPart, MatchCase:=True)
      On Error GoTo err
      FirstAddress=Cell.Address
      Do
        Cell=Cell.Value
        Set Cell=.FindNext(Cell)
    Loop Until Cell Is Nothing Or Cell.Address=FirstAddress
  End With
  Application.ScreenUpdating=True
err:
End Sub

[4] 關閉VBE窗口返回到工作表。

[5] 利用快捷鍵Alt+F8調出運行宏窗口，然后單擊“執(zhí)行”按鈕，第三列公式全部轉換成值，第二列公式不變，分別如圖2.62和圖2.63所示。

圖2.62 引用其他工作簿的公式已轉換成值

圖2.63 普通公式已保留

【相關知識說明】

（1）FindNext：表示在使用Find方法時繼續(xù)以原方式搜索，查找匹配相同條件的下一個單元格，并返回表示該單元格的Range對象。該操作不影響選定內容和活動單元格。

（2）Do…Loop：當條件為True時，或直到條件變?yōu)門rue時，重復執(zhí)行一個語句塊中的命令。

實例64 刪除工作表自動添加的網(wǎng)址及mail地址鏈接

【技巧說明】 刪除工作表自動添加的網(wǎng)址及mail地址鏈接。

【案例介紹】 在工作表中輸入網(wǎng)址或者E-mail地址時，工作表將自動產(chǎn)生鏈接，如圖2.64所示。現(xiàn)需刪除該鏈接功能，讓輸入字符不產(chǎn)生提示及自動鏈接。

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

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

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

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

Sub刪除工作表自動添加的超鏈接()
Dim mycell As Range
For Each mycell In ActiveSheet.UsedRange
  mycell.Hyperlinks.Delete
End Sub

Next

[4] 關閉VBE窗口返回到工作表。

[5] 利用快捷鍵Alt+F8調出運行宏窗口，然后單擊“執(zhí)行”按鈕，網(wǎng)址和E-mail地址都已去除鏈接功能，如圖2.65所示。

圖2.64 工作表自動產(chǎn)生鏈接

圖2.65 刪除了鏈接功能的地址

【相關知識說明】

Hyperlinks.Delete：刪除超鏈接。