Перейти до основного матеріалу

 Як запустити макрос, клацнувши гіперпосилання в 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 AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
works well
This comment was minimized by the moderator on the site
Me sale un error:

Error de compilación:
No se ha definido Sub o Function
This comment was minimized by the moderator on the site
Olá,

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). Há alguma modificação a ser feita na macro?
This comment was minimized by the moderator on the site
Hello
This is very handy, thank you, however this only works if you are in the cell $B$8. I want to create the same hyperlink, which performs the same macro function, but in every row down the sheet.
ie. I have two tabs, sheet 1 and sheet 2. The user is in Sheet 1, and a macro is run which enters data in sheet 1 and sheet 2 on a row-by-row basis. This works fine, but then i want a macro so that the user can click a link in the next cell and it takes them back to their original row in sheet 1, offset a few cells. I can do this using the above, BUT only if the user is in a set row in sheet 2 (eg $B$8). How can i make it so the macro works when they are in sheet 2 B9, B10, B11....?
This comment was minimized by the moderator on the site
This will assign sheet1 column J, row 2 to 35 with a hyperlink to it's own cell with the text name

Sub whateverName()
For i = 2 To 35 Step 1
ActiveCell.FormulaR1C1 = "name"
Range("J" & i).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'sheet1'!J" & i, TextToDisplay:="name"
Next

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations