Definice hypertextového odkazu VBA

Hyperlink se běžně používá u webových stránek pro navigaci z jedné stránky na druhou nebo z jedné webové stránky na druhou na internetu. Podobným způsobem můžeme také ovládat pohyby v excelovém pracovním listu. Různé operace, které lze provádět v Excelu, jsou:

  • Přesun na konkrétní místo v aktuálním sešitu.
  • Otevření různých dokumentů a výběr zmíněné oblasti v dokumentu.
  • Navigace na webové stránky z listu.
  • Odesílání e-mailů na definovanou adresu.

Hyperlink je snadno rozpoznatelný kvůli jeho změně barvy, většinou v modré barvě. Existují různé způsoby, jak vytvořit hypertextový odkaz ve formátu Excel a nechat používat VBA.

Jak vytvořit hypertextový odkaz v Excelu pomocí kódu VBA?

Pomocí vlastnosti přidat hypertextový odkaz můžete přidat text nebo jeden list na jiný list v Excelu pomocí hypertextového odkazu. Po formátu musí následovat určení, kde by měl být vytvořen hypertextový odkaz a navigační URL atd.

Formát pro VBA Hyperlink Add

Formát ukazuje parametry, které je třeba zadat, aby bylo možné přidat hypertextový odkaz do listu.

  • Anchor: Definuje buňku, kterou chcete vytvořit hypertextový odkaz.
  • Adresa: URL, na které by se měla navigace přesunout.
  • (Subadresa): Subadresa adresy URL.
  • (ScreenTip): Hodnota ukazatele myši, která se má zobrazit při umístění ukazatele myši.
  • (Text k zobrazení): Text musí být zobrazen v buňce.

Chcete-li přidat hypertextový odkaz, použijte vlastnost Aktivní buňka.

Vyberte metodu přidání ze seznamu

Příklady vytvoření hypertextových odkazů v aplikaci Excel VBA

Níže jsou uvedeny různé příklady vytváření hypertextových odkazů ve formátu Excel pomocí kódu VBA.

Tuto šablonu VBA Hyperlink Excel si můžete stáhnout zde - VBA Hyperlink Excel Template

Příklad č. 1 - Vytvoření hypertextového odkazu z listu na web

Chceme vytvořit hypertextový odkaz z listu s názvem sub na web pomocí kódu VBA v Excelu.

Níže jsou uvedeny kroky k vytvoření hypertextového odkazu v aplikaci Excel VBA:

Krok 1: Vytvořte funkci s názvem hyper a přidejte hypertextový odkaz.

Kód:

 Private Sub hyper () End Sub

Krok 2: Pomocí objektu Aktivní buňka otevřete metodu přidání hypertextového odkazu.

Kód:

 Private Sub hyper () ActiveCell.Hyperlinks.Add (End Sub

Krok 3: Zadejte hodnoty parametrů metodě přidání hypertextového odkazu.

Kód:

 Soukromá sub hyper () ActiveCell.Hyperlinks.Add Anchor: = Tabule ("sub"). Range ("A1"), Address: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "je to hypertextový odkaz", TextToDisplay: = "Excel Training" End Sub
  • Ukotvit: název listu
  • Adresa: Hyperlink na místo, kde má být ovládací prvek navigován, vzhledem k adrese webové stránky
  • ScreenTip: Text ukazatele myši
  • TextToDisplay: Ke kterému textu má být hypertextový odkaz přiřazen

Krok 4: Stiskem tlačítka F5 nebo Run pod VBE spustíte tento kód a uvidíte výstup.

Je vybrán buněčný rozsah A1 a text je přiřazen s hypertextovým odkazem, jakmile kliknete na text „Excel Training“, přesměruje se na web https://www.educba.com/. Když přesunete ukazatel myši vedle textu, zobrazí se text ukazatele myši.

Příklad č. 2 - Hyperlink pro připojení dvou listů

Máme dva pracovní listy s názvem Home a sub . Zkusme vytvořit hypertextový odkaz ze sub-home pomocí kódu VBA.

Postupujte podle níže uvedených kroků a vytvořte hypertextový odkaz z jednoho listu na jiný v rámci stejného sešitu pomocí kódu VBA.

Krok 1: Vytvořte funkci, kde napíšeme všechny kódy pro provedení akce. Napište kód a vyberte dílčí list listu pomocí metody výběru listu.

Kód:

 Soukromé pracovní listy sub hyper1 () ("sub"). Vyberte End Sub

Protože se ovládací prvek pohybuje v listu, je nutné vybrat list, ve kterém vytváříte hypertextový odkaz.

Krok 2: Vyberte oblast buněk v listu, kde chcete vytvořit hypertextový odkaz.

Kód:

 Soukromé dílčí listy hyper hyper1 () ("sub"). Vyberte rozsah ("A1"). Vyberte End Sub

Krok 3: Nyní přidáme hypertextový odkaz pomocí aktivní vlastnosti buňky.

Kód:

 Soukromé pracovní listy Sub hyper1 () ("sub"). Vyberte rozsah ("A1"). Vyberte položku ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Home'! A1", TextToDisplay: = "Klepnutím přesunete domovský list" End Sub

Protože list je již vybrán, je Anchor označena jako „Výběr“. Hypertextový odkaz je určen jako list „Home“ a rozsah A1.

Krok 4: Spusťte kód a dílčí list se zobrazí hypertextový odkaz, jak je uvedeno níže.

Krok 5: Po klepnutí na text se ovládací prvek přesune na list „ Domů “. A buňka A1 bude vybrána.

Příklad č. 3 - Hyperlink s několika listy

Pokud chcete vytvořit hypertextový odkaz na více listech, je to také možné. V tomto příkladu máme více listů ve stejném sešitu. Existuje jiný typ vynikajících funkcí, takže z hlavního listu „Funkce“. Zkusme vytvořit hypertextový odkaz na různé listy pojmenované s různými funkcemi pomocí kódu VBA:

Několik pracovních listů je pojmenováno níže s různými názvy funkcí Excel

Protože chceme vytvořit hypertextový odkaz na každý list, je obtížné tento kód opakovat. Podle níže uvedených kroků vytvořte hypertextový odkaz pomocí kódu VBA v Excelu:

Krok 1: Vytvořte proměnnou pro snadné zpracování listu.

Kód:

 Private Sub hyper2 () Dim ws As Worksheet End Sub

Krok 2: Nyní chceme vybrat hlavní stránku, která funguje jako indexová stránka, a vybrat oblast buněk A1.

Kód:

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

Krok 3: Pro pohyb mezi několika listy a hypertextovými odkazy vytváříme pro každou smyčku. A1 je již vybrán jako aktivní buňka, takže z něj vytvoří hypertextový odkaz.

Kód:

 Private Sub hyper2 () Dim ws jako Worksheet Worksheet ("Functions"). Vyberte Range ("A1"). Vyberte Pro každou ws v ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell Next ws End Sub

Krok 4: Zadejte hodnoty parametrů a vytvořte hypertextový odkaz pro každý list. Protože hypertextový odkaz začíná od aktivní kotvy buněk = aktivní buňka, je adresa uvedena jako „“ .

Kód:

 Private Sub hyper2 () Dim ws jako Worksheet Worksheet ("Functions"). Vyberte Range ("A1"). Vyberte Pro každou ws v ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "" Next ws End Sub

Krok 5: Hypertextový odkaz je veden v listu, takže bychom měli zadat podadresu jako názvy listů. K získání názvů listů můžeme použít proměnnou ws a rozsah buněk jako A1. Název listu bude obsahovat jedinou nabídku. Název listu a rozsah budou specifikovány a také uzavřeny jedinou nabídkou.

Kód:

 Private Sub hyper2 () Dim ws jako Worksheet Worksheet ("Functions"). Vyberte Range ("A1"). Vyberte Pro každou ws v ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "" Další ws End Sub

Krok 6: Získání hypertextového odkazu s názvem listu dává TextToDisplay jako ws.Name

Kód:

 Private Sub hyper2 () Dim ws jako Worksheet Worksheet ("Functions"). Vyberte Range ("A1"). Vyberte Pro každou 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 pro každý list ve stejné buňce A1.

Krok 7: Chcete-li změnit tento každý list na jinou buňku dolů jednu buňku od aktivní buňky.

Kód:

 Private Sub hyper2 () Dim ws jako Worksheet Worksheet ("Functions"). Vyberte Range ("A1"). Vyberte Pro každou ws v ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0) .Vyberte další ws End Sub

Krok 8: Spusťte program a každý název listu se zobrazí na listu „Funkce“ a po kliknutí na něj se ovládací prvek přesune na odpovídající list.

Co si pamatovat

  • Vlastnost hypertextového odkazu aktivní buňky použitá k vytvoření hypertextových odkazů ve VBA.
  • Nápověda k hypertextovému odkazu v rámci sešitu se snadno pohybuje.

Doporučené články

Toto je průvodce hypertextovými odkazy VBA. Zde se naučíme, jak vytvářet hypertextové odkazy v listu pomocí kódu VBA, aby se rychle přesunul z jednoho listu na druhý list spolu s několika praktickými příklady a šablonou Excel ke stažení. Můžete si také prohlédnout naše další doporučené články -

  1. Úvod do smyček VBA
  2. Odebrat hypertextové odkazy v Excelu
  3. VBA Break for Loop
  4. Najít externí odkazy v Excelu

Kategorie:

VBA