Ugrás a tartalomra

 Hogyan lehet futtatni a makrót az Excel hiperhivatkozásaira kattintva?

A makrokód nagyon hasznos lehet számunkra az Excel néhány bonyolult feladatának megoldásához, általában a Microsoft Visual Basic alkalmazásokhoz ablakra kattintva futás gombot vagy nyomja meg F5 kulcs. De megpróbálta már futtatni a makrókat úgy, hogy a munkalapon a relatív hiperhivatkozásokra kattintott?

Futtassa vagy hajtsa végre a makrót a VBA kóddal ellátott hiperhivatkozásra kattintva


nyíl kék jobb buborék Futtassa vagy hajtsa végre a makrót a VBA kóddal ellátott hiperhivatkozásra kattintva

Érdekes lehet számunkra egy makró aktiválása az Excel hiperhivatkozására kattintva, a következő módszer segítségével lépésről lépésre elérheti ezt a feladatot:

1. Hozzon létre hiperhivatkozásokat, amelyeket használni szeretne a makrókódok végrehajtásához. Kattintson egy cellára, és hozzon létre egy hiperhivatkozást az önmagához való hivatkozáshoz, lásd a képernyőképet:

doc futtassa a makrót az 1. hiperhivatkozásból

2. Ismételje meg a fenti lépést más hiperhivatkozások létrehozásához, amelyeket a következő képernyőképen szeretne használni:

doc futtassa a makrót az 2. hiperhivatkozásból

3. Ezután kattintson a jobb gombbal a használni kívánt hiperhivatkozásokat tartalmazó lapfülre, majd válassza a lehetőséget Kód megtekintése a helyi menüből és a megnyitottból Microsoft Visual Basic alkalmazásokhoz ablakba másolja és illessze be a következő kódot az üres modulba:

VBA-kód: makrókódok futtatása hiperhivatkozásokból:

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 futtassa a makrót az 3. hiperhivatkozásból

Megjegyzések: A fenti kódban B6 és a B8 tartalmazzák-e a sejtek a használni kívánt hiperhivatkozásokat, és Macro1 és a Macro2 a makrókódnevek, kérjük, változtassa meg az igényeinek megfelelően.

4. Ezután mentse el és zárja be a kódablakot, mostantól kezdve, amikor a hiperhivatkozásra kattint, az adott makrokód egyszerre végrehajtásra kerül.


Kapcsolódó cikkek:

Hogyan lehet futtatni a makrót, amikor a cellák értéke megváltozik az Excelben?

Hogyan futtatható a makró az cellák értéke alapján az Excelben?

Hogyan lehet futtatni a makrót az Excel legördülő listájából kiválasztott érték alapján?

Hogyan lehet automatikusan futtatni a makrót az Excel nyomtatása előtt?

Hogyan lehet futtatni a makrót, ha a lapot kiválasztjuk egy munkafüzetből?

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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