DetailPage-MSS-KB

知識庫

文章編號: 156353 - 上次校閱: 2006年11月23日 - 版次: 2.4

 

徵狀

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

其他可行方案

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

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

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

如需有關可用的支援選項,以及有關如何連絡 Microsoft 的詳細資訊,請造訪下列 Microsoft 網站: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms) 很可能使用的應用程式副程式的 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
    
          '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
    						
  5. 在檔案] 功能表上按一下 [關閉] 和 Microsoft Excel 的 [返回。
如果某些超連結插入您的工作表您可以請指向 [工具] 功能表上的 [巨集],然後按一下 [巨集來執行不同的巨集。然後,選取所要執行,巨集名稱,然後按一下 [執行]。

其他相關資訊

在 Microsoft Excel 中的特殊移到] 對話方塊可讓您在數個不同組合的工作表中選取儲存格] 或 [物件。例如您可以選取工作表中所有的物件,或選取包含條件化格式或註解的所有儲存格。

若要使用特殊移到] 對話方塊,請依照下列步驟執行:

  1. 在 [編輯] 功能表上按一下 [到]。
  2. 按一下 [特殊]。
但若要選擇性移至對話方塊未提供的選取包含超連結的所有儲存格選擇。有鑑於此,使用大量的超連結時可能會遇到一些困難 ; 比方說如果想從您的工作表中刪除所有的超連結沒有沒有這項作業的執行方法而不使用巨集。

参考

如需有關超連結的詳細資訊,[說明] 功能表上按一下 [目錄及索引、 按一下 [索引] 索引標籤,Microsoft Excel 說明中的,鍵入下列文字
建立的超連結
然後再連按兩下所選取的文字,以移至 [建立超連結] 的主題。如果您找不到您需要的資訊詢問 Office 小幫手。

這篇文章中的資訊適用於:
  • Microsoft Excel 97 Standard Edition
關鍵字: 
kbmt kbdtacode kbprb kbualink97 KB156353 KbMtzh
機器翻譯機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:156353  (http://support.microsoft.com/kb/156353/en-us/ )
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。
淘汰的知識庫文章依現狀不再更新的知識庫內容免責聲明
本文旨在說明 Microsoft 不再提供支援的產品。因此,本文係依「現狀」提供,不會再更新。
共用
其他支援選項
Microsoft Community 支援論壇
直接與我們連絡
尋找 Microsoft 認證合作夥伴
Microsoft 市集