Hypertextové odkazy VBA Ako vytvoriť hypertextový odkaz v programe Excel pomocou kódu VBA?

Hypertextové odkazy sú URL pripojené k hodnote, ktorá je viditeľná, keď na ňu umiestnime kurzor myši a keď na ňu klikneme, URL sa otvorí, vo VBA máme zabudovanú vlastnosť na vytváranie hypertextových odkazov vo VBA a na použitie tejto vlastnosti použijeme metódu Add spolu s príkaz hypertextového odkazu na vloženie hypertextového odkazu do bunky.

Hypertextové odkazy v programe Excel VBA

Aj keď máme klávesovú skratku Page Up & Page Down v programe Excel na presun medzi jednotlivými listami, stáva sa to zložitým, keď musíme presúvať medzi 10 a viacerými pracovnými listami. To je miesto, kde vynikne krása „Hypertextových odkazov v programe Excel“. Hypertextový odkaz je vopred určená adresa URL, ktorá vás prevedie na príslušnú bunku alebo pracovný hárok tak, ako je priradený.

Všetci vieme, ako vytvoriť hypertextové odkazy v hárku, aby ste sa rýchlo presunuli z jedného hárka na druhý a môžete tiež prejsť na ktorýkoľvek iný hárok. Ale v dnešnom článku si ukážeme, ako vytvárať hypertextové odkazy pomocou kódovania VBA.

Vzorec hypertextových odkazov VBA

Pozrime sa na vzorec hypertextových odkazov v programe Excel VBA.

  • Kotva: V ktorej bunke chcete vytvoriť hypertextový odkaz.
  • Adresa: Aká je adresa URL hypertextového odkazu, ktorý sa má navigovať?
  • (Podadresa): Aké je umiestnenie stránky?
  • (Tip na obrazovke): Aká je hodnota, ktorá sa má zobraziť, keď umiestnite kurzor myši na názov hypertextového odkazu alebo na bunku?
  • (Text na zobrazenie): Aký je test, ktorý sa má zobraziť v bunke? Napríklad názov pracovného hárka.

Ako vytvoriť hypertextové odkazy v programe Excel VBA?

Predpokladajme, že chcete vytvoriť hypertextový odkaz VBA na hárok s názvom „Hlavný hárok“ z druhého hárku „Príklad 1“.

V pracovnom hárku „Príklad 1“ a v bunke A1 vytvorím hypertextový odkaz pomocou kódu vo VBA.

Krok 1: Najskôr vyberte bunku A1 listu príkladu 1.

Kód:

Sub Hyperlink_Example1 () Pracovné hárky („Príklad 1“). Vyberte rozsah („A1“). Vyberte End Sub

Krok 2: Teraz pomocou objektu Aktívna bunka otvorte hypertextové odkazy. Pridajte metódu.

Kód:

Sub Hyperlink_Example1 () pracovné hárky („Príklad 1“). Vyberte rozsah („A1“). Vyberte ActiveCell.Hyperlinks.Add (End Sub

Krok 3: Prvý argument je „Kotva“, tj. V ktorej bunke by sme vytvorili odkaz, aby sa vytvoril hypertextový odkaz VBA. V tomto prípade bunka A1 a keďže sme už vybrali bunku A1, aby sme ju spomenuli ako „Výber“.

Kód:

Sub Hyperlink_Example1 () Pracovné hárky („Príklad 1“). Vyberte rozsah („A1“). Vyberte ActiveCell.Hyperlinks.Add (výber, koniec sub

Krok 4: Nevytvárame tu žiadnu adresu, takže adresu odteraz ignorujte.

Kód:

Sub Hyperlink_Example1 () pracovné hárky („Príklad 1“). Vyberte rozsah („A1“). Vyberte ActiveCell.Hyperlinks.Add Anchor: = výber, adresa: = "", koncový sub

Krok 5: Ďalej je podadresa. Tu musíme spomenúť, na ktorý hárok máme na mysli a prvú bunku tohto hárku.

Kód:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Select Range ("A1"). Select ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Main Sheet'! A1", End Sub

Názov listu som uviedol ako „Hlavný list“ a v tejto bunke je adresa bunky „A1“.

Krok 6: Rovnako ignorujte aj tip na obrazovke. Ak chcete zobraziť text, uveďte názov hárka.

Kód:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Select Range ("A1"). Select ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Main Sheet'! A1", TextToDisplay : = "Hlavný list" Koncový pod

Dobre, spustite tento kód pomocou klávesu F5 alebo ručne. Potom vytvorí hypertextový odkaz v bunke A1 v hárku „Príklad 1“.

Keď kliknete na hypertextový odkaz na „Hlavný hárok“, presmeruje sa na hlavný hárok.

Hypertextové odkazy na viac hárkov so slučkami

Videli sme vytváranie hypertextových odkazov VBA pre jeden hárok. Keď máme veľa hárkov, nie je ľahké vytvoriť hypertextový odkaz VBA pre každý hárok s rovnakým riadkom kódu pre každý hárok.

Predpokladajme, že máte 11 pracovných listov, ako je znázornené na obrázku nižšie.

Pre každý hárok v indexovom hárku chcete vytvoriť hypertextový odkaz pomocou kódu VBA.

Krok 1: Definujte premennú ako pracovný hárok.

Kód:

Sub Create_Hyperlink () Dim Ws ako pracovný hárok End Sub

Krok 2: Prvá vec je vybrať pracovný hárok Register a vybrať bunku A1.

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

Krok 9: Ak chcete uložiť hypertextový odkaz každého hárku do inej bunky, vždy, keď sa vytvorí hypertextový odkaz pre jeden hárok, musíme sa presunúť o jednu bunku nižšie z aktívnej bunky.

Kód:

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 ActiveCell.Offset (1, 0). Vyberte Ďalej Ws End Sub

Týmto sa vytvorí hypertextový odkaz na všetky hárky v indexovom hárku. Tento kód je dynamický vždy, keď dôjde k pridaniu alebo vymazaniu hárkov. Tento kód musíme spustiť, aby sme mali aktualizovaný hypertextový odkaz.

Zaujímavé články...