A VBA hiperhivatkozás meghatározása

A hiperhivatkozást általában a webhelyeknél használják az egyik oldalról a másikra vagy az egyik webhelyről a másikra való navigációra az interneten. Hasonló módon az Excel munkalapon belüli mozgásokat is vezérelhetjük. Az Excelben végrehajtható különféle műveletek a következők:

  • Mozgatás egy meghatározott helyre az aktuális munkafüzetben.
  • Nyisson meg különféle dokumentumokat, és válassza ki a dokumentumon belül egy említett területet.
  • Navigálás a munkalapok weblapjaira.
  • E-mail küldése egy megadott címre.

A hiperhivatkozás színe megváltozása miatt könnyen felismerhető, főleg kék színű. Különböző módszerek léteznek egy hiperhivatkozás létrehozására az Excelben, és a VBA használatának engedélyezésére.

Hogyan hozhatunk létre hiperhivatkozást az Excel programban a VBA kód használatával?

Hiperhivatkozást adhat hozzá egy szöveghez vagy egy lapot egy másik munkalaphoz az excel-en belül a hiperhivatkozás hozzáadása tulajdonság használatával. A formátumot követnie kell annak meghatározásával, hogy hol kell létrehozni a hiperhivatkozást, valamint a navigációs URL-t stb.

A VBA Hyperlink Add formátuma

A formátum azt mutatja, hogy milyen paramétereket kell megadni egy hiperhivatkozás hozzáadásához a munkalaphoz.

  • Horgony: Meghatározza a hiperhivatkozás létrehozásához használni kívánt cellát.
  • Cím: Az az URL, ahová a navigációnak át kell lépnie.
  • (Alcím): Az URL alcíme .
  • (ScreenTip): Az egérmutató mutatója, amelyet meg kell mutatni az egérmutató elhelyezésekor.
  • (Megjelenítendő szöveg): A szöveget meg kell jeleníteni a cellában.

Használja az Aktív cella tulajdonságot egy hiperhivatkozás hozzáadásához.

Válassza ki a hozzáadási módszert a listából

Példák hiperhivatkozások létrehozására az Excel VBA alkalmazásban

Az alábbiakban bemutatjuk azokat a különféle példákat, amelyekkel létrehozhatunk hiperhivatkozásokat az Excel fájlba VBA kód használatával.

Itt letöltheti ezt a VBA hiperhivatkozási sablont - VBA hiperhivatkozási sablon

1. példa - Hiperhivatkozás létrehozása a munkalapból egy weboldalra

Hibahivatkozást akarunk létrehozni az al nevű munkalapból egy weboldalra, az VBA kód használatával, excel formátumban.

Az alábbiakban bemutatjuk a hiperhivatkozás létrehozásának lépéseit az Excel VBA alkalmazásban:

1. lépés: Hozzon létre egy hyper nevû függvényt a hiperhivatkozás hozzáadásához.

Kód:

 Privát Sub hiper () Vége Sub

2. lépés: Az Active cell objektum segítségével nyissa meg a hiperhivatkozás hozzáadásának módszerét.

Kód:

 Private Sub hyper () ActiveCell.Hyperlinks.Add (Sub Sub vége)

3. lépés: Adja meg a paraméterértékeket a hiperhivatkozás hozzáadásának módszeréhez.

Kód:

 Privát Sub hiper () ActiveCell.Hyperlinks.Add Anchor: = Sheets ("sub"). Range ("A1"), Address: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "ez hiperhivatkozás", TextToDisplay: = "Excel képzés" Vége al
  • Horgony: a munkalap neve
  • Cím: Hiperhivatkozás arra a helyre, ahol a vezérlőt navigálni kell, a webhely címe alapján
  • Képernyő: Az egérmutató szövege
  • TextToDisplay: melyik szöveghez kell hozzárendelni a hiperhivatkozást

4. lépés: Nyomja meg az F5 vagy a Futtatás gombot a VBE alatt a kód futtatásához és a kimenet megtekintéséhez.

Az A1 cellatartományt ki kell választani, és a szöveget hiperhivatkozással kell hozzárendelni, miután rákattint az „Excel Training” szövegre, az átirányítja a https://www.educba.com/ webhelyre. Ha az egérmutatót a szöveg mellé mozgatja, akkor az megjeleníti az egérmutatót.

2. példa - Hiperhivatkozás két munkalap összekapcsolásához

Két Home and sub munkalapunk van. Próbáljuk meg létrehozni egy hiperlinket alról otthonra VBA kód használatával.

Kövesse az alábbi lépéseket egy hiperhivatkozás létrehozásához az egyik munkalapról a másikra ugyanazon a munkafüzeten belül, a VBA kód használatával.

1. lépés: Hozzon létre egy függvényt, amelybe az összes kódot felírjuk a művelet végrehajtásához. Írja be a kódot a munkalap „al” kiválasztásához a munkalap kiválasztási módszerével.

Kód:

 Privát Sub hyper1 () Munkalapok ("sub") Válassza a Befejezés alpontot

Mivel a vezérlés a lapon belül mozog, ki kell választani azt a munkalapot, amelyben a hiperhivatkozást hozza létre.

2. lépés: Válassza ki a cellatartományt azon a lapon belül, amelyben a hiperhivatalt létre kívánja hozni.

Kód:

 Privát Sub hyper1 () Munkalapok ("sub"). Válassza ki a Range ("A1") lehetőséget

3. lépés: Most adjuk hozzá a hiperhivatkozást az aktív cella tulajdonság használatával.

Kód:

 Privát Sub hyper1 () munkalapok ("sub"). Válasszon tartományt ("A1"). Válassza az ActiveCell.Hyperlinks.Add Horgony: = Kiválasztás, Cím: = "", Alcím: = "'Otthon'! A1", TextToDisplay: = "Kattintson a kezdőlap áthelyezésére" Vége Al

Mivel a munkalap már ki van választva, az Anchor 'Kiválasztás' lesz. A hiperhivatkozás „Kezdőlap” lapként van megadva és az A1 tartomány.

4. lépés: Futtassa a kódot, és a lapon az alábbiak szerint jelenik meg a hiperhivatkozás.

5. lépés: Miután rákattint a szövegre, a vezérlőt áthelyezik a ' Kezdőlap ' lapra. És az A1 cellát választjuk ki.

3. példa - Hiperhivatkozás több munkalap segítségével

Ha hiperhivatkozást szeretne létrehozni több munkalapon, akkor az is lehetséges. Ebben a példában több lap található ugyanabban a munkafüzetben. Különböző típusú excel függvények léteznek, így a 'Funkciók' fő munkalapon. Próbáljuk meg létrehozni egy hiperhivatkozást a különféle funkciókkal elnevezett különféle munkalapokra, VBA-kóddal:

A több munkalapot az alábbiak szerint nevezzük el, különféle excel függvénynevekkel

Mivel hiperhivatkozást akarunk létrehozni minden munkalaphoz, nehéz megismételni a kódot. Kövesse az alábbi lépéseket egy hiperhivatkozás létrehozásához az VBA kód használatával az Excelben:

1. lépés: Hozzon létre egy változót a munkalap könnyű kezeléséhez.

Kód:

 Private Sub hyper2 () Dim mint Munkalap vége Sub

2. lépés: Most ki akarjuk választani a fő oldalt, amely indexoldalként működik, és ki kell választanunk az A1 cellatartományt.

Kód:

 Private Sub hyper2 () Dim ws mint Munkalap Munkalapok ("Funkciók"). Válassza ki a Range ("A1") lehetőséget.

3. lépés: Ha több munkalapon és hiperhivatkozáson szeretne mozogni, minden hurkot létrehozunk. Az A1 már aktív cellaként van kiválasztva, így ebből hiperhivatkozást hoz létre.

Kód:

 Private Sub hyper2 () Dim ws mint Munkalap-munkalapok ("Funkciók". Válasszon tartományt ("A1"). Válassza ki az egyes ws-ekhez az ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Helyezze fel: = ActiveCell Next ws End Sub

4. lépés: Adjon meg paraméterértékeket, hogy hiperhivatkozást hozzon létre az egyes munkalapokhoz. Mivel a hiperhivatkozás az aktív cellahorgonyból indul = Aktív cella, a címet „“ jelöli.

Kód:

 Privát Sub hyper2 () Dim ws mint Munkalap-munkalapok ("Funkciók". Válasszon tartományt ("A1"). Válassza az egyes ws-eket az ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Horgony: = ActiveCell, Cím: = "" Következő ws vége Alatti

5. lépés: A hiperhivatkozást áthúzza a munkalapra, így az alcímet laponként kell megadni. A lapnevek megszerzéséhez a ws és a cell tartomány változót használhatjuk A1-ként. A lap neve egyetlen idézettel hivatkozik. A lap nevét és tartományát meghatározzuk, és egyetlen idézettel lezárjuk.

Kód:

 Private Sub hyper2 () Dim ws mint Munkalap-munkalapok ("Funkciók". Válasszon tartományt ("A1"). Válassza ki az egyes ws-eket az ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Horgony: = ActiveCell, Cím: = "", Alcím: = "" & ws.Name & "! A1" & "" Next ws End Sub

6. lépés: Ahhoz, hogy a hiperhivatkozást megkapja a lapnévvel, a TextToDisplay ws.Name néven jelenik meg

Kód:

 Private Sub hyper2 () Dim ws mint Munkalap-munkalapok ("Funkciók". Válasszon tartományt ("A1"). Válassza ki az egyes ws-eket az ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Horgony: = ActiveCell, Cím: = "", Alcím: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Következő ws End Sub

Ez a kód minden munkalap hiperhivatkozását tárolja ugyanabban az A1 cellában.

7. lépés: Ennek az egyes lapoknak a megváltoztatása különböző cellákra egy cellát lefelé az aktív cellától.

Kód:

 Private Sub hyper2 () Dim ws mint Munkalap-munkalapok ("Funkciók". Válasszon tartományt ("A1"). Válassza ki az egyes ws-eket az ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Horgony: = ActiveCell, Cím: = "", Alcím: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0) .Válassza a Next ws End Sub menüpontot

8. lépés: Futtassa a programot, és minden lap neve megjelenik a 'Funkciók' lapon, és a rákattintás közben a vezérlő a megfelelő lapra lép.

Dolgok, amikre emlékezni kell

  • Az aktív cella hiperhivatkozási tulajdonsága a VBA hiperhivatkozások létrehozásához.
  • A hiperhivatkozás segít a munkafüzetben történő könnyű mozgásban.

Ajánlott cikkek

Ez egy útmutató a VBA hiperhivatkozásokhoz. Itt megtanuljuk, hogyan lehet a munkalapon hiperhivatkozásokat létrehozni a VBA kód használatával, hogy gyorsan át tudjon mozogni az egyik lapról a másikra, néhány gyakorlati példával és letölthető Excel sablonnal együtt. Megnézheti más javasolt cikkeinket -

  1. Bevezetés a VBA hurkokba
  2. Távolítsa el a hiperhivatkozásokat az Excel programból
  3. VBA szünet a Loop számára
  4. Keressen külső linkeket az Excel programban

Kategória:

VBA