VBA-hyperlinks - Hoe maak je een hyperlink in Excel met VBA-code?

Hyperlinks zijn URL's die zijn gekoppeld aan een waarde die wordt gezien wanneer we er met de muis overheen bewegen en wanneer we erop klikken, wordt de URL geopend, in VBA hebben we een ingebouwde eigenschap om hyperlinks in VBA te maken en om deze eigenschap te gebruiken gebruiken we de methode Toevoegen samen met de hyperlinkinstructie om een ​​hyperlink in een cel in te voegen.

Hyperlinks in Excel VBA

Hoewel we in Excel de sneltoets Pagina omhoog en Pagina omlaag hebben om van het ene blad naar het andere te gaan, wordt het complex wanneer we tussen 10 en meer werkbladen moeten gaan. Dit is waar de schoonheid van "Hyperlinks in Excel" in beeld komt. De hyperlink is een vooraf bepaalde URL die u naar de respectieve cel of het werkblad brengt zoals toegewezen.

We weten allemaal hoe we hyperlinks in het werkblad moeten maken om snel van het ene blad naar het andere blad te gaan, en u kunt ook naar elk ander blad gaan. Maar in het artikel van vandaag laten we u zien hoe u hyperlinks kunt maken met behulp van VBA-codering.

De formule van VBA-hyperlinks

Laten we eens kijken naar de formule van de hyperlinks in Excel VBA.

  • Anker: in welke cel u een hyperlink wilt maken.
  • Adres: wat is de URL naar de hyperlink om te navigeren?
  • (Subadres): Wat is de locatie van de pagina?
  • (Schermtip): Wat is de waarde die moet worden weergegeven als u een muisaanwijzer op de hyperlinknaam of cel plaatst?
  • (Weer te geven tekst): wat is de test die in de cel moet worden weergegeven? Bijvoorbeeld werkbladnaam.

Hoe hyperlinks maken in Excel VBA?

Stel dat u een VBA-hyperlink wilt maken naar het blad met de naam "Hoofdblad" van het andere blad "Voorbeeld 1".

In het werkblad "Voorbeeld 1" en in de cel A1, zal ik de hyperlink maken met code in VBA.

Stap 1: Selecteer eerst de cel A1 van werkblad Voorbeeld 1.

Code:

Sub Hyperlink_Example1 () Worksheets ("Voorbeeld 1"). Selecteer bereik ("A1"). Selecteer End Sub

Stap 2: Open nu hyperlinks met Active Cell-object. Voeg methode toe.

Code:

Sub Hyperlink_Example1 () Worksheets ("Voorbeeld 1"). Selecteer Bereik ("A1"). Selecteer ActiveCell.Hyperlinks.Add (End Sub

Stap 3: Het eerste argument is "Anker", dwz in welke cel we zouden linken om de VBA-hyperlink te maken. In dit geval cel A1 en aangezien we cel A1 al hebben geselecteerd om deze te vermelden als 'Selectie'.

Code:

Sub Hyperlink_Example1 () Werkbladen ("Voorbeeld 1"). Selecteer Bereik ("A1"). Selecteer ActiveCell.Hyperlinks.Add (Selectie, End Sub

Stap 4: We maken hier geen adres aan, dus negeer Adres vanaf nu.

Code:

Sub Hyperlink_Example1 () Werkbladen ("Voorbeeld 1"). Selecteer Bereik ("A1"). Selecteer ActiveCell.Hyperlinks. Anker toevoegen: = Selectie, Adres: = "", End Sub

Stap 5: Het volgende is het subadres. Hier moeten we vermelden naar welk blad we verwijzen en de eerste cel van dat blad.

Code:

Sub Hyperlink_Example1 () werkbladen ("Voorbeeld 1"). Selecteer bereik ("A1"). Selecteer ActiveCell.Hyperlinks.Add Anchor: = Selectie, Adres: = "", Subadres: = "'Hoofdblad'! A1", End Sub

Ik heb de bladnaam genoemd als "Hoofdblad", en in dat blad is het celadres "A1".

Stap 6: Negeer ook de schermtip. Vermeld de bladnaam om Tekst weer te geven.

Code:

Sub Hyperlink_Example1 () werkbladen ("Voorbeeld 1"). Selecteer bereik ("A1"). Selecteer ActiveCell.Hyperlinks.Add Anchor: = Selectie, Adres: = "", SubAddress: = "'Hoofdblad'! A1", TextToDisplay : = "Main Sheet" End Sub

Oké, klaar, voer deze code uit met de F5-toets of handmatig. Vervolgens wordt een hyperlink gemaakt in cel A1 in het blad "Voorbeeld 1".

Wanneer u op Hyperlink "Hoofdblad" klikt, wordt doorgestuurd naar het hoofdblad.

Hyperlinks van meerdere bladen met loops

We hebben gezien dat er een VBA-hyperlink voor één blad is gemaakt. Als we veel bladen hebben, is het niet eenvoudig om voor elk blad een VBA-hyperlink te maken met dezelfde regel code voor elk blad.

Stel dat je 11 werkbladen hebt, zoals weergegeven in de onderstaande afbeelding.

U wilt een hyperlink voor elk blad in het creëren Index sheet met behulp van VBA-code.

Stap 1: Definieer de variabele als een werkblad.

Code:

Sub Create_Hyperlink () Dim Ws As Worksheet End Sub

Stap 2: Het eerste is om de werkbladindex te selecteren en de cel A1 te selecteren.

Code:

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

Stap 9: Om de hyperlink van elk blad in een andere cel op te slaan, moeten we elke keer dat een hyperlink voor één blad wordt gemaakt, een cel naar beneden gaan vanaf de actieve cel.

Code:

Sub Create_Hyperlink () Dim Ws As Worksheet Worksheets ("Index"). Selecteer bereik ("A1"). Selecteer voor elk Ws in ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & Ws.Name & "! A1" & "", ScreenTip: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0) .Selecteer Volgende Ws End Sub

Hiermee wordt een hyperlink gemaakt van alle bladen in het indexblad. Deze code is dynamisch wanneer er bladen worden toegevoegd of verwijderd. We moeten deze code uitvoeren om een ​​bijgewerkte hyperlink te hebben.

Interessante artikelen...