A hiperhivatkozások olyan URL-hez vannak csatolva, amely akkor látható, amikor az egérrel az egérrel az egér fölé mutatunk, és amikor rákattintunk, az URL megnyílik, a VBA-ban van egy beépített tulajdonságunk, amely hiperhivatkozásokat hoz létre a VBA-ban, és hogy ezt a tulajdonságot az Add metódussal együtt használjuk a hiperhivatkozás utasítás egy hiperhivatkozás cellába illesztéséhez.
Hiperhivatkozások az Excel VBA-ban
Annak ellenére, hogy az Excel-ben van a Page Up & Page Down gyorsbillentyű az egyik lapról a másikra való váltáshoz, de bonyolultabbá válik, ha 10 és több munkalap között kell lépnünk. Itt jelenik meg a képen a „Hiperhivatkozások az Excelben” szépség. A hiperhivatkozás egy előre meghatározott URL, amely a hozzárendelt cellához vagy munkalaphoz vezet.
Mindannyian tudjuk, hogyan hozhatunk létre hiperhivatkozásokat a munkalapon, hogy gyorsan átkerülhessünk az egyik munkalapról a másikra, és mehetünk bármely más munkalapra is. De a mai cikkben megmutatjuk, hogyan lehet hiperhivatkozásokat létrehozni a VBA kódolással.
A VBA hiperhivatkozások képlete
Nézzük meg az Excel VBA hiperhivatkozásainak képletét.
- Horgony: Melyik cellában szeretne létrehozni egy hiperhivatkozást.
- Cím: Mi az a hiperhivatkozás URL-je, amelyben navigálni kell?
- (Alcím): Mi az oldal helye?
- (Képernyőtipp): Mi az az érték, amelyet meg kell mutatni, amikor az egérmutatót a hiperhivatkozás nevére vagy cellájára helyezi?
- (Megjelenítendő szöveg): Mi a teszt, amelyet meg kell jeleníteni a cellában? Például Munkalap neve.
Hiperhivatkozások létrehozása az Excel VBA-ban?
Tegyük fel, hogy egy VBA hiperhivatkozást szeretne létrehozni a „Fő lap” nevű lapra a másik „1. példa” lapból.
Az „1. példa” munkalapon és az A1 cellában létrehozom a hiperhivatkozást a VBA kóddal.
1. lépés: Először válassza ki az 1. példa A1 celláját.
Kód:
Alhiperhivatkozás_Example1 () munkalapok ("1. példa"). Válassza ki a tartományt ("A1"). Válassza az End Sub lehetőséget
2. lépés: Most az Active Cell objektummal nyissa meg a hiperhivatkozásokat. Add metódus.
Kód:
Alhiperhivatkozás_Example1 () munkalapok ("1. példa"). Válassza ki a tartományt ("A1"). Válassza az ActiveCell.Hyperlinks.Add (End Sub
3. lépés: Az első érv a „Horgony”, azaz melyik cellába kapcsolnánk a VBA hiperhivatkozás létrehozásához. Ebben az esetben az A1 cellát, és mivel már kiválasztottuk az A1 cellát, hogy megemlítsük „Kiválasztásként”.
Kód:
Hiperhivatkozás_Example1 () munkalapok ("1. példa"). Válassza ki a tartományt ("A1"). Válassza az ActiveCell.Hyperlinks.Add (Selection, End Sub
4. lépés: Itt nem hozunk létre címet, ezért most már hagyja figyelmen kívül a Címet.
Kód:
Hiperhivatkozás_Example1 () munkalapok ("1. példa"). Válassza ki a tartományt ("A1"). Válassza az ActiveCell.Hyperlinks.Add Anchor elemet: = Selection, Address: = "", Sub Sub
5. lépés: A következő az alcím. Itt kell megemlítenünk, hogy melyik lapra hivatkozunk, és ennek a lapnak az első celláját.
Kód:
Alhiperhivatkozás_Example1 () munkalapok ("1. példa"). Válassza ki a tartományt ("A1"). Válassza az ActiveCell.Hyperlinks.Add Anchor elemet: = Kiválasztás, Cím: = "", Alcím: = "'Fő lap'! A1", Vége Alatti
A lap nevét „Main Sheet” néven említettem, és ebben a lapban a cellacím „A1”.
6. lépés: Hagyja figyelmen kívül a képernyő tippjét is. A szöveg megjelenítéséhez említse meg a lap nevét.
Kód:
Hiperhivatkozás_Example1 () munkalapok ("1. példa"). Válassza ki a tartományt ("A1"). Válassza az ActiveCell.Hyperlinks.Add Anchor elemet: = Kiválasztás, Cím: = "", Alcím: = "'Fő lap'! A1", TextToDisplay : = "Main Sheet" End Sub
Rendben, futtassa ezt a kódot az F5 billentyűvel vagy manuálisan. Ezután létrehoz egy hiperhivatkozást az „1. példa” lap A1 cellájában.
Ha rákattint a Hyperlink “Main Sheet” elemére, az átirányítja a fő lapra.
Hiperhivatkozások több lapról hurokkal
Láthattunk VBA hiperhivatkozást létrehozni egy lap számára. Ha sok lapunk van, nem könnyű minden egyes lapra létrehozni egy VBA hiperhivatkozást, ugyanazon kódsorral minden laphoz.
Tegyük fel, hogy 11 munkalapja van, az alábbi képen látható módon.
Hiperhivatkozást szeretne létrehozni az Index lap minden egyes lapjára a VBA kód használatával.
1. lépés: Határozza meg a változót munkalapként.
Kód:
Sub Create_Hyperlink () Dim Ws mint munkalap vége
2. lépés: Az első dolog az, hogy válassza ki a munkalap Indexet, és válassza ki az A1 cellát.
Kód:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select End Sub
Step 3: Now open For Each Loop in VBA.
Code:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets Next Ws End Sub
Step 4: Since we have already selected the cell A1 it is now an active cell. So start the hyperlink with the active cell.
Code:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add( Next Ws End Sub
Step 5: Anchor is a hyperlink cell. So it is the active cell.
Code:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Next Ws End Sub
Step 6: Address is nothing mention it as “.
Code:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell,Address:="", Next Ws End Sub
Step 7: Subaddress is when we loop through the sheet, it should be the sheet name. To refer to the sheet name, we need a single quote, “’” with sheet name and “! Cell Address,” and close the sheet name with a single quote “’.”
Code:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell,Address:="",SubAddress:=""& Ws.Name&"!A1"&"", Next Ws End Sub
Step 8: Ignore Screen tip, and for Text to display, you can enter the worksheet name.
Code:
Sub Create_Hyperlink() Dim Ws As Worksheet Worksheets("Index").Select Range("A1").Select For Each Ws In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="" & Ws.Name & "!A1" & "", ScreenTip:="", TextToDisplay:=Ws.Name Next Ws End Sub
9. lépés: Minden lap hiperhivatkozásának más cellában történő tárolásához minden egyes alkalommal, amikor egy lapra hiperhivatkozást hozunk létre, le kell mozdulnunk egy cellával az aktív celláról.
Kód:
Sub Create_Hyperlink () tompítsa a munkalapokat munkalap-munkalapokként ("Index"). Válassza ki a tartományt ("A1"). Válassza ki az egyes munkaterületeket az ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, cím: = "", alcím: = "" & Ws.Name & "! A1" & "", Képernyőtipp: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0). Válassza a Next Ws End Sub
Ez létrehoz egy hiperhivatkozást az Index lap összes lapjáról. Ez a kód dinamikus, amikor a lapok hozzáadódnak vagy törlésre kerülnek. Frissített hiperhivatkozáshoz futtatnunk kell ezt a kódot.
