Přejít na hlavní obsah

Jak používat VBA v Excelu k získání hypertextových odkazů

  • Kryštof Horváthová
  • Triky

Microsoft Excel je jedním z nejoblíbenějších nástrojů pro práci s tabulkami a daty. Mnoho uživatelů však neví o použití výkonného nástroje známého jako Visual Basic for Applications (VBA). VBA vám umožňuje automatizovat mnoho úkolů a zefektivnit a usnadnit práci s Excelem.

Jedním z užitečných příkladů použití VBA je získání hypertextových odkazů v Excelu. Hypertextové odkazy umožňují vytvářet odkazy na jiné stránky, dokumenty nebo webové stránky, takže práce s daty je interaktivnější. Pomocí VBA můžete vytvářet a konfigurovat hypertextové odkazy pomocí maker.

Chcete-li začít s VBA v Excelu, musíte otevřít Visual Basic Editor kliknutím na tlačítko "Alt + F11" nebo výběrem "vývojář" - > "Visual Basic". Poté musíte vytvořit nový modul a napsat kód VBA, který vytvoří a nakonfiguruje hypertextové odkazy. V kódu lze zadat adresu, na kterou bude odkazovat hypertextový odkaz, text, který se zobrazí na listu Excel, stejně jako styl a formát hypertextového odkazu.

Například následující kód VBA vytvoří hypertextový odkaz na buňku A1, který bude odkazovat na webovou stránku Google a zobrazí se jako "odkaz na Google".

Sub AddHyperlink()

Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Sheet1")

.Hyperlinks.Add Anchor:=.Range ("A1"), Address:="https://www.google.com", TextToDisplay:= "odkaz na Google"

End Sub

V důsledku spuštění kódu se v buňce A1 zobrazí hypertextový odkaz, po jehož kliknutí se otevře webová stránka Google.

VBA v Excelu pomáhá nejen vytvářet hypertextové odkazy, ale také jim nastavit různé vlastnosti a nastavení. Umožňuje uživatelům vytvářet interaktivnější a pohodlnější pracovní knihy, které mohou být použity k navigaci na stránkách nebo přechodu na webové stránky pomocí hypertextových odkazů.

Vytvoření makra pro generování hypertextových odkazů

V aplikaci Microsoft Excel můžete použít VBA (Visual Basic for Applications) k automatizaci procesu vytváření hypertextových odkazů v buňkách. Makra umožňují rychlé a efektivní generování odkazů ve velkém počtu buněk s minimálním úsilím.

Chcete-li vytvořit makro pro generování hypertextových odkazů, postupujte podle těchto kroků:

  1. Otevřete Visual Basic Editor v Excelu kliknutím ALT + F11.
  2. V okně Visual Basic Editor Vyberte nabídku Vložení a vyberte Modul.
  3. V okně modulu, které se otevře, vložte následující kód:
Sub CreateHyperlinks()Dim rng As RangeDim cell As RangeSet rng = Range("A1:A10") 'Замените "A1:A10" диапазоном ячеек, в которых нужно создать гиперссылкиFor Each cell In rngIf cell <> "" ThenActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=cell.ValueEnd IfNext cellEnd Sub

V tomto kódu nejprve definujeme rozsah buněk (rng ), ve kterém je třeba vytvořit hypertextové odkazy. Poté použijeme smyčku For each , abychom prošli každou buňkou v uvedeném rozsahu. Pokud buňka není prázdná, přidáme hypertextový odkaz pomocí metody ActiveSheet.Hyperlinks.Add .

Po vložení kódu můžete zavřít okno Visual Basic Editor. Chcete-li provést makro a vytvořit hypertextové odkazy, postupujte takto:

  1. Vyberte buňku, ze které chcete začít vytvářet hypertextové odkazy.
  2. Vyberte kartu Zpracovatel v Excelu. Pokud se tato karta nezobrazí, přejděte na Soubor → Parametry → Možnosti pásu karet a zaškrtněte políčko Zpracovatel.
  3. Na kartě Zpracovatel najděte skupinu Makra a vyberte makro, které jste vytvořili (CreateHyperlinks ).
  4. Stiskněte tlačítko Provést a makro vytvoří hypertextové odkazy v uvedeném rozsahu buněk.

Nyní můžete pomocí tohoto makra rychle vytvořit hypertextové odkazy v Excelu a ušetřit čas a úsilí při práci se spoustou buněk.

Čtěte také