Hypertextové odkazy VBA - Jak vytvořit hypertextový odkaz v aplikaci Excel pomocí kódu VBA?

Hypertextové odkazy jsou URL připojené k hodnotě, která je viditelná, když na ni umístíme ukazatel myši a když na ni klikneme, otevře se URL, ve VBA máme zabudovanou vlastnost pro vytváření hypertextových odkazů ve VBA a pro použití této vlastnosti použijeme metodu Add společně s příkaz hypertextového odkazu pro vložení hypertextového odkazu do buňky.

Hypertextové odkazy v aplikaci Excel VBA

I když máme klávesovou zkratku Page Up & Page Down v aplikaci Excel pro přesun mezi jednotlivými listy, stává se to složitým, když musíme přesouvat mezi 10 a více listy. To je místo, kde do obrazu vstupuje krása „Hypertextových odkazů v aplikaci Excel“. Hypertextový odkaz je předem určená adresa URL, která vás přenese do příslušné buňky nebo listu, jak je přiřazeno.

Všichni víme, jak vytvořit hypertextové odkazy v listu, abychom se rychle přesunuli z jednoho listu na jiný, a můžete také přejít na jakýkoli jiný list. Ale v dnešním článku vám ukážeme, jak vytvořit hypertextové odkazy pomocí kódování VBA.

Vzorec hypertextových odkazů VBA

Podívejme se na vzorec hypertextových odkazů v aplikaci Excel VBA.

  • Kotva: Ve které buňce chcete vytvořit hypertextový odkaz.
  • Adresa: Jaká je adresa URL hypertextového odkazu k navigaci?
  • (Podadresa): Jaké je umístění stránky?
  • (Tip na obrazovce): Jaká je hodnota, která se má zobrazit, když umístíte ukazatel myši na název hypertextového odkazu nebo buňku?
  • (Text k zobrazení): Jaký je test, který se má zobrazit v buňce? Například název listu.

Jak vytvořit hypertextové odkazy v aplikaci Excel VBA?

Předpokládejme, že chcete vytvořit hypertextový odkaz VBA na list s názvem „Hlavní list“ z druhého listu „Příklad 1“.

V listu „Příklad 1“ a v buňce A1 vytvořím hypertextový odkaz pomocí kódu ve VBA.

Krok 1: Nejprve vyberte buňku A1 listu Příklad 1.

Kód:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Select Range ("A1"). Select End Sub

Krok 2: Nyní pomocí objektu Aktivní buňka otevřete hypertextové odkazy. Přidat metodu.

Kód:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Select Range ("A1"). Select ActiveCell.Hyperlinks.Add (End Sub

Krok 3: První argument je „Anchor“, tj. Ve které buňce bychom odkazovali, abychom vytvořili hypertextový odkaz VBA. V tomto případě buňka A1 a protože jsme již vybrali buňku A1, abychom ji zmínili jako „Výběr“.

Kód:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Select Range ("A1"). Select ActiveCell.Hyperlinks.Add (Selection, End Sub

Krok 4: Nevytváříme zde žádnou adresu, takže adresu od nynějška ignorujte.

Kód:

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

Krok 5: Další je podadresa. Zde musíme zmínit, na který list odkazujeme a první buňku tohoto listu.

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ázev listu jsem uvedl jako „Hlavní list“ a v této buňce je adresa buňky listu „A1“.

Krok 6: Ignorujte také tip na obrazovce. Chcete-li zobrazit text, uveďte název listu.

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" Konec pod

Dobře, spusťte tento kód pomocí klávesy F5 nebo ručně. Poté vytvoří hypertextový odkaz v buňce A1 v listu „Příklad 1“.

Když kliknete na hypertextový odkaz „Hlavní list“, přesměruje se na hlavní list.

Hypertextové odkazy na více listů se smyčkami

Viděli jsme vytváření hypertextového odkazu VBA pro jeden list. Když máme mnoho listů, není snadné vytvořit hypertextový odkaz VBA pro každý list se stejným řádkem kódu pro každý list.

Předpokládejme, že máte 11 pracovních listů, jak je znázorněno na následujícím obrázku.

Chcete vytvořit hypertextový odkaz pro každý list v indexovém listu pomocí kódu VBA.

Krok 1: Definujte proměnnou jako list.

Kód:

Sub Create_Hyperlink () Dim Ws jako list End End Sub

Krok 2: První věcí je vybrat list Index a vybrat buňku 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: Chcete-li uložit hypertextový odkaz každého listu do jiné buňky, pokaždé, když je vytvořen hypertextový odkaz pro jeden list, musíme přesunout o jednu buňku dolů z aktivní buňky.

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 Další Ws End Sub

Tím se vytvoří hypertextový odkaz na všechny listy v indexovém listu. Tento kód je dynamický, kdykoli dojde k přidání nebo odstranění listů. Tento kód musíme spustit, abychom měli aktualizovaný hypertextový odkaz.

Zajímavé články...