Definícia hypertextového odkazu VBA

Hyperlink sa bežne používa s webovými stránkami na navigáciu z jednej stránky na druhú alebo z jednej webovej stránky na druhú na internete. Podobným spôsobom môžeme ovládať pohyby aj v excelovom pracovnom hárku. Rôzne operácie, ktoré je možné vykonávať v Exceli, sú:

  • Presun na konkrétne miesto v aktuálnom zošite.
  • Otváranie rôznych dokumentov a výber spomenutej oblasti v dokumente.
  • Prechádzanie na webové stránky z pracovného hárka.
  • Posielanie e-mailov na definovanú adresu.

Hyperlink je ľahko rozpoznateľný kvôli jeho zmene farby, väčšinou v modrej farbe. Existujú rôzne metódy na vytvorenie hypertextového odkazu vo formáte Excel a nechať pomocou VBA.

Ako vytvoriť hypertextový odkaz v Exceli pomocou kódu VBA?

Môžete použiť hypertextový odkaz na text alebo jeden hárok na iný pracovný hárok v Exceli pomocou vlastnosti pridať hypertextový odkaz. Po tomto formáte je potrebné uviesť, kde sa má vytvoriť hypertextový odkaz a navigačná adresa URL atď.

Formát pre VBA Hyperlink Add

Formát ukazuje parametre, ktoré je potrebné poskytnúť, aby sa hypertextový odkaz na pracovný hárok pridal.

  • Anchor: Definuje bunku, ktorú chcete vytvoriť hypertextový odkaz.
  • Adresa: URL, na ktoré by sa mala navigácia presunúť.
  • (Subadresa): Subadresa adresy URL.
  • (ScreenTip): Hodnota ukazovateľa myši, ktorá sa má zobraziť pri umiestňovaní ukazovateľa myši.
  • (Text na zobrazenie): Text musí byť zobrazený v bunke.

Na pridanie hypertextového odkazu použite vlastnosť aktívnej bunky.

Zo zoznamu vyberte metódu pridania

Príklady vytvorenia hypertextových odkazov v programe Excel VBA

Nižšie sú uvedené rôzne príklady vytvorenia hypertextových odkazov vo formáte Excel pomocou kódu VBA.

Túto šablónu VBA Hyperlink Excel si môžete stiahnuť tu - VBA Hyperlink Excel Template

Príklad č. 1 - Vytvorenie hypertextového odkazu z pracovného listu na webovú stránku

Chceme vytvoriť hypertextový odkaz z pracovného hárku s názvom sub na web pomocou kódu VBA v Exceli.

Nižšie sú uvedené kroky na vytvorenie hypertextového odkazu v programe Excel VBA:

Krok 1: Vytvorte funkciu s názvom hyper a pridajte hypertextový odkaz.

kód:

 Private Sub hyper () End Sub

Krok 2: Na otvorenie metódy pridania hypertextového odkazu použite objekt aktívnej bunky.

kód:

 Súkromná sub hyper () ActiveCell.Hyperlinks.Add (End Sub

Krok 3: Poskytnite hodnoty parametrov metóde pridania hypertextového odkazu.

kód:

 Súkromná sub hyper () ActiveCell.Hyperlinks.Add Anchor: = Tabuľky ("sub"). Range ("A1"), Address: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "je to hypertextový odkaz", TextToDisplay: = "Excel Training" End Sub
  • Kotva: názov pracovného hárka
  • Adresa: Hypertextový odkaz na miesto, kde má byť navigácia ovládaná, vzhľadom na adresu webovej stránky
  • Popis obrazovky: Text ukazovateľa myši
  • TextToDisplay: Ku ktorému textu sa má priradiť hypertextový odkaz

Krok 4: Stlačte F5 alebo Run tlačidlo pod VBE, aby ste spustili tento kód a videli výstup.

Vybratý je rozsah buniek A1 a text je označený hypertextovým odkazom, po kliknutí na text „Výcvik v Exceli“ sa presmeruje na webovú stránku https://www.educba.com/. Keď presuniete ukazovateľ myši vedľa textu, zobrazí sa text ukazovateľa myši.

Príklad č. 2 - Hyperlink na pripojenie dvoch pracovných hárkov

Máme dva pracovné hárky s názvom Domov a pod . Pokúsme sa vytvoriť hypertextový odkaz z jedného miesta na druhý pomocou kódu VBA.

Postupujte podľa krokov uvedených nižšie a vytvorte hypertextový odkaz z jedného pracovného listu na druhý v rámci toho istého zošita pomocou kódu VBA.

Krok 1: Vytvorte funkciu, kde napíšeme všetky kódy na vykonanie akcie. Ak chcete vybrať hárok „sub“ pomocou metódy výberu z pracovného hárka, napíšte kód.

kód:

 Súkromné ​​pracovné listy hyper hyper (1)

Pretože sa ovládací prvok pohybuje v hárku, je potrebné vybrať pracovný hárok, v ktorom vytvárate hypertextový odkaz.

Krok 2: Vyberte rozsah buniek v hárku, kde chcete vytvoriť hypertextový odkaz.

kód:

 Pracovné hárky súkromných sub hyper1 () ("sub"). Vyberte rozsah ("A1"). Vyberte End Sub

Krok 3: Teraz pridajme hypertextový odkaz pomocou aktívnej vlastnosti bunky.

kód:

 Súkromné ​​pracovné listy Sub hyper1 () ("sub"). Vyberte rozsah ("A1"). Vyberte položku ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Home'! A1", TextToDisplay: = "Kliknutím presuniete domovský hárok" End Sub

Pretože pracovný hárok je už vybratý, Anchor sa zadá ako „Výber“. Hypertextový odkaz je určený ako hárok „Domov“ a rozsah A1.

Krok 4: Spustite kód a podstránku s listom, zobrazí sa hypertextový odkaz, ako je uvedené nižšie.

Krok 5: Po kliknutí na text sa ovládací prvok presunie na hárok „ Domov “. A bunka A1 bude vybraná.

Príklad č. 3 - Hyperlink s viacerými pracovnými listami

Ak chcete vytvoriť hypertextový odkaz na viacerých pracovných hárkoch, je to tiež možné. V tomto príklade máme viac listov v rámci toho istého zošita. Existuje iný typ vynikajúcich funkcií, takže z hlavného pracovného listu „Funkcie“. Skúsme vytvoriť hypertextový odkaz na rôzne pracovné hárky s rôznymi funkciami pomocou kódu VBA:

Viac pracovných hárkov je uvedených nižšie s rôznymi názvami funkcií programu Excel

Pretože chceme vytvoriť hypertextový odkaz na každý pracovný hárok, je ťažké tento kód zopakovať. Podľa nižšie uvedených krokov vytvorte hypertextový odkaz pomocou kódu VBA v Exceli:

Krok 1: Vytvorte premennú, ktorá vám uľahčí prácu s pracovným listom.

kód:

 Private Sub hyper2 () Dim ws As Worksheet End Sub

Krok 2: Teraz chceme vybrať hlavnú stránku, ktorá funguje ako indexová stránka, a vybrať oblasť buniek A1.

kód:

 Private Sub hyper2 () Dim ws As Worksheet Worksheet ("Functions"). Vyberte Range ("A1"). End End Sub

Krok 3: Pre pohyb vo viacerých pracovných hárkoch a hypertextových odkazoch vytvárame pre každú slučku. A1 je už vybratý ako aktívna bunka, a preto z neho vytvára hypertextový odkaz.

kód:

 Private Sub hyper2 () Dim ws As Worksheet Worksheet ("Functions"). Vyberte Range ("A1"). Vyberte For Ws v ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell Next ws End Sub

Krok 4: Zadajte hodnoty parametrov a vytvorte hypertextový odkaz pre každý pracovný hárok. Pretože hypertextový odkaz začína od aktívnej bunkovej kotvy = aktívna bunka, adresa je uvedená ako „“ .

kód:

 Súkromná sub hyper2 () Dim ws ako pracovné hárky ("funkcie"). Vyberte rozsah ("A1"). Vyberte pre každú ws v ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "" Next ws End náhradník

Krok 5: Hypertextový odkaz prechádza cez pracovný list, takže by sme mali dať podadresu ako názvy hárkov. Na získanie názvov hárkov môžeme použiť premennú ws a rozsah buniek ako A1. Názov hárku bude obsahovať jedinú ponuku. Názov a rozsah hárka budú špecifikované a tiež uzavreté jedinou ponukou.

kód:

 Súkromná sub hyper2 () Dim ws ako pracovné hárky ("funkcie"). Vyberte rozsah ("A1"). Vyberte pre každú ws v ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "" Ďalší ws End Sub

Krok 6: Ak chcete získať hypertextový odkaz s názvom hárka, dáva TextToDisplay ako ws.Name

kód:

 Súkromná sub hyper2 () Dim ws ako pracovné hárky ("funkcie"). Vyberte rozsah ("A1"). Vyberte pre každú ws v ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Next ws End Sub

Tento kód uloží hypertextový odkaz pre každý pracovný hárok v tej istej bunke A1.

Krok 7: Ak chcete tento list zmeniť na inú bunku, potom jednu bunku od aktívnej bunky.

kód:

 Súkromná sub hyper2 () Dim ws ako pracovné hárky ("funkcie"). Vyberte rozsah ("A1"). Vyberte pre každú ws v ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0) .Vyberte ďalší ws End Sub

Krok 8: Spustite program a každý názov hárku sa zobrazí na hárku „Funkcie“ a po kliknutí naň sa ovládací prvok presunie na príslušný hárok.

Čo je potrebné pamätať

  • Vlastnosť hypertextového prepojenia aktívnej bunky použitá na vytvorenie hypertextových odkazov vo VBA.
  • Hypertextový odkaz umožňuje jednoduchý pohyb v rámci zošita.

Odporúčané články

Toto je sprievodca hypertextovými odkazmi VBA. Tu sa dozvieme, ako vytvoriť hypertextové odkazy v pracovnom hárku pomocou kódu VBA na rýchly presun z jedného hárka na druhý hárok spolu s niekoľkými praktickými príkladmi a šablónou Excel na stiahnutie. Môžete si tiež prečítať naše ďalšie navrhované články -

  1. Úvod do slučiek VBA
  2. Odstráňte hypertextové odkazy v Exceli
  3. VBA Break for Loop
  4. Nájsť externé odkazy v Exceli

Kategórie:

VBA