Note: The other languages of the website are Google-translated. Back to English

 Як запустити макрос, клацнувши гіперпосилання в Excel?

Макрокод може бути дуже корисним для нас для вирішення деяких складних завдань в Excel, як правило, ми можемо виконати його в Microsoft Visual Basic для програм вікно, клацнувши прогін кнопку або натискання F5 ключ. Але чи пробували ви коли-небудь запускати макроси, натискаючи відповідні гіперпосилання на аркуші?

Запустіть або запустіть макрос, клацнувши гіперпосилання з кодом VBA


стрілка синя права міхур Запустіть або запустіть макрос, клацнувши гіперпосилання з кодом VBA

Нам може бути цікаво запустити макрос, клацнувши гіперпосилання в Excel, наступний метод може допомогти вам крок за кроком виконати це завдання:

1. Створіть гіперпосилання, які потрібно використовувати для виконання макрокодів. Клацніть клітинку та створіть гіперпосилання для посилання на себе, див. Знімок екрана:

doc запустити макрос з гіперпосилання 1

2. Повторіть вищевказаний крок, щоб створити інші гіперпосилання, які ви хочете використовувати, як показано на наведеному нижче знімку екрана:

doc запустити макрос з гіперпосилання 2

3. Потім клацніть правою кнопкою миші вкладку аркуша, яка містить гіперпосилання, які ви хочете використовувати, а потім виберіть Переглянути код з контекстного меню та у відкритому вікні Microsoft Visual Basic для програм вікно, скопіюйте та вставте наступний код у порожній модуль:

Код VBA: Запуск макрокодів з гіперпосилань:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Address = "$B$6" Then
        Call Macro1
        End If
         If Target.Range.Address = "$B$8" Then
        Call Macro2
         End If
End Sub

doc запустити макрос з гіперпосилання 3

примітки: У наведеному вище коді, B6 і B8 - комірки містять гіперпосилання, які ви хочете використовувати, і Макро1 і Макро2 це назви кодів макросів, будь ласка, змініть їх відповідно до ваших потреб.

4. Потім збережіть і закрийте вікно коду, відтепер, коли ви клацаєте гіперпосилання, конкретний код макросу буде виконуватися відразу.


Статті по темі:

Як запустити макрос, коли значення комірки змінюється в Excel?

Як запустити макрос на основі значення комірки в Excel?

Як запустити макрос на основі значення, вибраного зі спадного списку в Excel?

Як запустити макрос автоматично перед друком у Excel?

Як запустити макрос, коли аркуш вибрано з книги?


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (5)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт
Це дуже зручно, дякую, але це працює, лише якщо ви перебуваєте в клітинці $B$8. Я хочу створити те саме гіперпосилання, яке виконує ту ж функцію макросу, але в кожному рядку внизу аркуша.
тобто. У мене є дві вкладки, аркуш 1 і аркуш 2. Користувач перебуває на аркуші 1, і запускається макрос, який вводить дані в аркуш 1 і аркуш 2 на основі рядка за рядком. Це добре працює, але тоді мені потрібен макрос, щоб користувач міг натиснути посилання в наступній клітинці, і він повернув їх до початкового рядка на аркуші 1, зміщуючи кілька клітинок. Я можу зробити це, використовуючи вищенаведене, АЛЕ лише якщо користувач знаходиться в рядку набору на аркуші 2 (наприклад, $B$8). Як я можу зробити так, щоб макрос працював, коли вони знаходяться на аркуші 2 B9, B10, B11....?
Цей коментар був мінімізований модератором на сайті
Це призначить стовпець sheet1 J, рядок 2 до 35 з гіперпосиланням до власної клітинки з текстовою назвою

Sub anyName()
Для i = 2 до 35 Крок 1
ActiveCell.FormulaR1C1 = "ім'я"
Діапазон ("J" і i).Виберіть
ActiveSheet.Hyperlinks.Add Anchor:=Вибір, Адреса:="", Підадреса:= _
"'sheet1'!J" & i, TextToDisplay:="ім'я"
Далі

End Sub
Цей коментар був мінімізований модератором на сайті
Ола,

Um dos poucos locais onde encontrei essa solução. Muito obrigado! Estou quase lá. Não estou usando uma célula para o hiperlink, mas uma imagem que inseri na planilha e indicando uma célula qualquer como referência. Fiz como indicado, mas não funciona (Só para verificação, fiz com uma célula e deu certo). Чи можна змінити функцію макроса?
Цей коментар був мінімізований модератором на сайті
Мене продаж без помилки:

Помилка компіляції:
Функція Sub o не визначена
Цей коментар був мінімізований модератором на сайті
працює добре
There are no comments posted here yet

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL