Измените формулу, которая появляется на нескольких листах в Excel

Question

У меня есть файл Excel, который содержит около 100 листов и содержит одну и ту же «главную» кнопку. Эта кнопка (которая на самом деле является гиперссылкой) ссылается на основной лист файла Excel. При нажатии на кнопку открывается основной рабочий лист и выделяется ячейка A1. Проблема состоит в том, что ячейки A1 и A2 содержат изображение, и когда A1 выбран, этот выбор частично «сверху» изображения. С функциональностью это не проблема, но оптически это выглядит не так хорошо. Это приводит меня к следующим вопросам:

• Можно ли выбрать гиперссылку, например, от А1 до F61?
• Если это так, есть ли способ автоматически применить это значение к «главной» на каждой кнопке рабочего листа?

Answer 1

Решение, которое вы пытаетесь достичь, довольно простое. Просто выполните следующие шаги

1. Откройте лист, на который вы хотите сослаться («Основной лист»).
2. Выберите диапазон ячеек, на которые вы хотите создать гиперссылку.
3. В поле «Имя» (вверху слева, где отображается адрес ячейки) попробуйте написать слово или любой другой имя и затем нажмите Enter.
4. Выберите кнопку (режим разработки), перейдите на вкладку «Вставка», нажмите кнопку с гиперссылкой или ссылкой (зависит от версии для офиса).
5. В диалоговом окне в «Ссылка» выберите «Поместить в этот документ», затем в группе «Определенные имена» вы увидите то слово или имя, которое вы дали диапазону.
6. Выберите это и нажмите кнопку ОК.

Совершено ...

Надеюсь, это поможет!

Answer 2

Итак, вы уже знаете, как изменить одну ссылку. Чтобы изменить все, вы можете использовать макрос, который:

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

Answer 3

• Рихт нажми на свою фигуру (кнопка)
• Выберите гиперссылку
• Слева выберите «место в этом документе»
• Введите ссылку: Main! F61