Прескочи на основното съдържание

 Как да стартирате макрос, като щракнете върху хипервръзки в Excel?

Автор: Xiaoyang Последна промяна: 2020-05-19

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

Усъвършенствайте уменията си за 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