XL97: 无菜单选项中选择所有超链接

注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。

点击这里察看该文章的英文版: 156353
本文已归档。它按“原样”提供,并且不再更新。
症状
Microsoft Excel 97 有没有使您得以选择一个工作表中的所有超链接的菜单选项。
替代方法
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它是可以循环通过所有工作表中的超链接,并执行特定工序上每个超链接使用一个 Microsoft Visual Basic 的应用程序子例程。例如对于您可以删除所有在的超链接,或者您可能只是报告每个超链接的位置。

  1. 在 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. 在文件菜单上单击关闭并返回到 Excel。
如果您将一些超链接插入到工作表中,您可以尝试运行不同的宏,指向工具菜单上的宏并单击宏。然后,选择要运行,宏的名称,然后单击运行。
更多信息
在 Excel 中定位条件对话框使您能够在几个不同的组合工作表中选择单元格或对象。例如对于您可以选择一个的工作表中的所有对象,或都选择所有包含条件格式或批注的单元格。

若要用于定位条件对话框,请按照下列步骤操作:

  1. 在编辑菜单上单击转到。
  2. 单击特殊。
但定位条件对话框不提供选择中选择包含超链接的所有单元格。因此,使用大量的超链接时,您可能会遇到一些困难 ; 例如对于要从您的工作表中删除所有超链接是否有任何方法可以在不使用宏的情况下执行此操作。
参考
有关超级链接的详细信息的单击帮助菜单上的目录和索引,请单击索引选项卡,在 Microsoft Excel 帮助中的,键入以下文本
超链接创建
,然后双击所选的文本以转至"创建超链接"主题。如果您找不到所需的信息询问 Office 助手。
链接 URL"select.special"specialcells 例行子例程

属性

文章 ID:156353 - 上次审阅时间:10/01/2013 04:36:30 - 修订版本: 2.4

Microsoft Excel 97 标准版

  • kbnosurvey kbarchive kbmt kbdtacode kbprb kbualink97 KB156353 KbMtzh
反馈