更改在Excel中的多个工作表上显示的公式

时间:2018-11-05 09:39:51

标签: excel vba excel-vba

我有一个Excel文件,大约有100张纸,每个纸都包含相同的“主”按钮。此按钮(实际上是超链接)链接到Excel文件的主工作表。单击按钮时,将打开主工作表并选择单元格A1。问题在于单元格A1和A2包含图像,并且当选择A1时,此选择部分在图像的“顶部”。从功能上讲,这不是问题,但从外观上看并不太好。这使我想到以下问题:

  • 是否可以选择超链接,例如A1到F61?
  • 如果是,是否有办法自动将其应用于每个工作表按钮上的“ main”?

3 个答案:

答案 0 :(得分:1)

因此,您已经知道如何更改一个链接。要更改所有内容,您可以使用以下宏:

  1. 迭代所有工作表
  2. 迭代工作表中的所有形状
  3. 检查链接是否是您要更改的链接,
  4. 更改

如下所示:

Sub ChangeHyperlinks()
    Dim w As Worksheet, s As Shape, h As Hyperlink
    For Each w In ActiveWorkbook.Worksheets
        For Each s In w.Shapes
            Set h = Nothing
            On Error Resume Next
            Set h = s.Hyperlink
            On Error GoTo 0
            If Not h Is Nothing Then
                If h.Address = "" And h.SubAddress = "Your_Main_Worksheet_Name!A5:B6" Then
                    h.SubAddress = "Your_Main_Worksheet_Name!A1:F61"
                End If
            End If
        Next
    Next
End Sub

答案 1 :(得分:0)

  • 突出显示您的形状(按钮)
  • 选择超链接
  • 在左侧,选择“在此文档中放置”
  • 键入引用:Main!F61

答案 2 :(得分:0)

您要实现的解决方案非常简单。只需按照以下步骤

  1. 打开要链接到的工作表(“主工作表”)。
  2. 选择要超链接的单元格范围。
  3. 在“名称”框中(显示单元格地址的左上角),尝试输入一个单词或任何其他单词 名称,然后按Enter。
  4. 选择按钮(“设计模式”),转到“插入”选项卡,单击超链接或链接(取决于Office版本)按钮。
  5. 在对话框的“链接到”中,选择“在此文档中放置”,然后在“定义的名称”组中,您将看到为该范围指定的单词或名称。
  6. 选择它,然后单击“确定”按钮。

完成...

希望这会有所帮助!