XL2000: 沒有功能表指令以選取工作表內的所有超連結

文章翻譯 文章翻譯
文章編號: 213790 - 檢視此文章適用的產品。
本文已封存。本文係以「現狀」提供且不會再更新。
全部展開 | 全部摺疊

在此頁中

徵狀

Microsoft Excel 2000 具有可讓您選取工作表內的所有超連結沒有功能表命令。

其他可行方案

Microsoft 僅,為了說明提供程式設計範例,不提供任何明示或默示的保證,包括但不是限於適售性以及適合某特定用途之默示擔保責任。本文假設您已熟悉我們所示範的程式設計語言,以及用來建立和偵錯程序的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能,但它們不會修改這些範例以提供附加功能或建構程序,以符合您的特定需求。
如果您有限制程式設計經驗,您可以連絡 Microsoft 認證合作夥伴或 Microsoft 諮詢服務。如需詳細資訊請造訪下列 Microsoft] 網站:

Microsoft 認證合作夥伴-https://partner.microsoft.com/global/30000104

Microsoft 摘要報告服務-http://support.microsoft.com/gp/advisoryservice

如需有關可用的支援選項,以及有關如何連絡 Microsoft 的詳細資訊,請造訪下列 Microsoft 網站: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS如果要解決這個問題,使用 [選取包含超連結的所有儲存格的 [巨集]。
  1. 在 Microsoft Excel 中建立新的活頁簿。
  2. 在 [工具] 功能表上指向 [巨集,然後按一下 [Visual Basic 編輯器]。
  3. 在 Visual Basic 編輯器,在 [插入] 功能表上按一下 [模組]。
  4. 下列程式碼輸入此模組:
    'This Sub procedure selects all cells in the worksheet that contain
    'hyperlinks. You can then clear the selected cells to delete all of
    'the hyperlinks.
    Sub SelectAllHyperlinkCells()
        FirstCell = 1
        For Each xLink In ActiveSheet.Hyperlinks
            If FirstCell = 1 Then
                Set xRange = xLink.Range
                FirstCell = 0
            Else
                Set xRange = Application.Union(xRange, xLink.Range)
            End If
        Next xLink
        xRange.Select
    End Sub
    					

其他相關資訊

若要使用的超連結的其他巨集

您可以使用的應用程式副程式的 Microsoft Visual Basic 循環所有工作表內的超連結,以及執行每個超連結上的特定作業。比方說您可以刪除全部的超連結,或是您可以只是報告每個超連結的位置。

注意: 有些幾行程式碼已經過修改,以符合此文件的行接續字元 (_)。
  1. 在 Microsoft Excel 中建立新的活頁簿。
  2. 在 [工具] 功能表上指向 [巨集,然後按一下 [Visual Basic 編輯器]。
  3. 在 Visual Basic 編輯器,在 [插入] 功能表上按一下 [模組]。
  4. 下列程式碼輸入此模組:
    'This Sub procedure deletes all hyperlinks in the active worksheet.
    
    Sub DeleteAllHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            xLink.Delete
        Next xLink
    End Sub
    
    'This Sub procedure displays a series of message boxes indicating
    'the location of each hyperlink in the active worksheet.
    Sub ReportHyperlinkLocations()
       For Each xLink In ActiveSheet.Hyperlinks
            MsgBox xLink.Range.Address
        Next xLink
    End Sub
    
    'This Sub procedure identifies each hyperlink and asks if you want
    'to delete it. If you click Yes, the hyperlink is deleted.
    Sub ReportAndDeleteHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            Response = MsgBox("Delete hyperlink in cell " & _
                xLink.Range.Address & " ?", vbYesNo)
            If Response = vbYes Then xLink.Delete
        Next xLink
    End Sub
    					
  5. 在 [檔案] 功能表上按一下 [關閉],並返回 [Microsoft Excel]。
如果某些超連結插入您的工作表可以藉由指向 [在 [工具] 功能表上的 [巨集],然後按一下 [巨集 執行不同的巨集。選取要執行,巨集名稱,然後按一下 [執行]。

DeleteAllHyperlinks() 巨集刪除該範圍,但不是超連結文字的 [超連結] 屬性。它會保留超連結文字的背景。

?考

如需有關超連結,在 Visual Basic 編輯器] 中,按一下 [說明] 功能表上的 [Microsoft Visual Basic 說明],並在 「 Office 小幫手 」 或 「 解答精靈 」 中輸入 超連結物件 然後按一下 [搜尋] 以檢視主題。

屬性

文章編號: 213790 - 上次校閱: 2013年10月14日 - 版次: 3.5
這篇文章中的資訊適用於:
  • Microsoft Excel 2000 Standard Edition
關鍵字:?
kbnosurvey kbarchive kbmt kbdtacode kbprb KB213790 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:213790
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com