Definitie van VBA Hyperlink

De hyperlink wordt vaak gebruikt met websites voor het navigeren van de ene pagina naar de andere of de ene website naar de andere op internet. Op een vergelijkbare manier kunnen we ook de bewegingen binnen het Excel-werkblad besturen. De verschillende bewerkingen die kunnen worden uitgevoerd in Excel zijn:

  • Verplaatsen naar een specifieke locatie in de huidige werkmap.
  • Open verschillende documenten en selecteer een genoemd gebied binnen het document.
  • Navigeren naar webpagina's vanuit het werkblad.
  • E-mail verzenden naar een gedefinieerd adres.

De hyperlink is gemakkelijk te herkennen vanwege de kleurverandering, meestal in blauw. Er bestaan ​​verschillende methoden om een ​​hyperlink te maken in Excel en VBA te laten gebruiken.

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

U kunt een hyperlink toevoegen aan een tekst of een blad naar een ander werkblad binnen Excel met behulp van de eigenschap hyperlink add. Het formaat moet worden gevolgd door op te geven waar de hyperlink moet worden gemaakt en de navigatie-URL enz.

Formaat voor VBA Hyperlink Toevoegen

De indeling toont de parameters die moeten worden opgegeven om een ​​hyperlink naar een werkblad toe te voegen.

  • Anker: definieert de cel waarvoor u de hyperlink wilt maken.
  • Adres: de URL waarnaar de navigatie moet worden verplaatst.
  • (Subadres): subadres van de URL.
  • (ScreenTip): de waarde van de muisaanwijzer die moet worden weergegeven tijdens het plaatsen van een muisaanwijzer.
  • (Weer te geven tekst): de tekst moet in de cel worden weergegeven.

Gebruik de eigenschap Actieve cel om een ​​hyperlink toe te voegen.

Selecteer de methode toevoegen in de lijst

Voorbeelden om hyperlinks te maken in Excel VBA

Hieronder staan ​​de verschillende voorbeelden om hyperlinks te maken in Excel met behulp van VBA-code.

U kunt deze VBA Hyperlink Excel-sjabloon hier downloaden - VBA Hyperlink Excel-sjabloon

Voorbeeld # 1 - Een hyperlink maken van het werkblad naar een website

We willen een hyperlink maken van een werkblad met de naam sub naar een website met behulp van VBA-code in excel.

Hieronder volgen de stappen om een ​​hyperlink in Excel VBA te maken:

Stap 1: Maak een functie met de naam hyper om de hyperlink toe te voegen.

Code:

 Private Sub hyper () End Sub

Stap 2: Gebruik het actieve celobject om de hyperlink-methode te openen.

Code:

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

Stap 3: Geef de parameterwaarden op voor de methode voor het toevoegen van hyperlinks.

Code:

 Private Sub hyper () ActiveCell.Hyperlinks.Add Anchor: = Sheets ("sub"). Bereik ("A1"), Adres: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "het is een hyperlink", TextToDisplay: = "Excel Training" End Sub
  • Anker: naam van het werkblad
  • Adres: hyperlink naar waar het besturingselement naartoe moet worden genavigeerd, gezien het websiteadres
  • ScreenTip: de tekst van de muisaanwijzer
  • TextToDisplay: Aan welke tekst de hyperlink moet worden toegewezen

Stap 4: Druk op F5 of op de knop Run onder VBE om deze code uit te voeren en de uitvoer te bekijken.

Het celbereik A1 is geselecteerd en de tekst is toegewezen met een hyperlink. Zodra u op de tekst "Excel Training" klikt, wordt deze doorgestuurd naar de website https://www.educba.com/. Wanneer u de muisaanwijzer naast de tekst plaatst, wordt de tekst van de muisaanwijzer weergegeven.

Voorbeeld # 2 - Hyperlink om twee werkbladen te verbinden

We hebben twee werkbladen met de naam Home en sub . Laten we proberen een hyperlink van sub naar huis te maken met behulp van VBA-code.

Volg de onderstaande stappen om een ​​hyperlink te maken van het ene werkblad naar het andere in dezelfde werkmap met behulp van de VBA-code.

Stap 1: Maak een functie, waar we alle codes schrijven om de actie uit te voeren. Schrijf code om het werkblad 'sub' te selecteren met behulp van de selectiemethode van het werkblad.

Code:

 Private Sub hyper1 () Werkbladen ("sub"). Selecteer End Sub

Omdat het besturingselement binnen het blad wordt verplaatst, moet u het werkblad selecteren waarin u de hyperlink maakt.

Stap 2: Selecteer het celbereik binnen het blad waarnaar de hyperlink wil maken.

Code:

 Private Sub hyper1 () Werkbladen ("sub"). Selecteer Bereik ("A1"). Selecteer End Sub

Stap 3: Laten we nu de hyperlink toevoegen met behulp van de actieve celeigenschap.

Code:

 Private Sub hyper1 () Werkbladen ("sub"). Selecteer Bereik ("A1"). Selecteer ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Home'! A1", TextToDisplay: = "Klik om het startblad te verplaatsen" Einde Sub

Omdat het werkblad al is geselecteerd, wordt Anker gegeven als 'Selectie'. De hyperlink is gespecificeerd als 'Home'-blad en bereik A1.

Stap 4: Voer de code uit en op de sheet-sub wordt de hyperlink weergegeven zoals hieronder.

Stap 5: Nadat op de tekst is geklikt, wordt het besturingselement naar het blad ' Home ' verplaatst. En cel A1 wordt geselecteerd.

Voorbeeld # 3 - Hyperlink met meerdere werkbladen

Als u een hyperlink over meerdere werkbladen wilt maken, is dit ook mogelijk. In dit voorbeeld hebben we meerdere bladen binnen dezelfde werkmap. Er bestaan ​​verschillende soorten Excel-functies, dus uit het hoofdwerkblad 'Functies'. Laten we proberen een hyperlink te maken naar het verschillende werkblad met verschillende functies met behulp van VBA-code:

De meerdere werkbladen worden hieronder genoemd met verschillende Excel-functienamen

Omdat we een hyperlink naar elk werkblad willen maken, is het moeilijk om de code te herhalen. Volg de onderstaande stappen om een ​​hyperlink te maken met behulp van VBA-code in Excel:

Stap 1: Maak een variabele om gemakkelijk met het werkblad om te gaan.

Code:

 Private Sub hyper2 () Dimmen als werkblad Einde Sub

Stap 2: Nu willen we de hoofdpagina selecteren die als een indexpagina fungeert en het celbereik A1 selecteren.

Code:

 Private Sub hyper2 () Dimmen als werkblad Werkbladen ("Functies"). Selecteer bereik ("A1"). Selecteer End Sub

Stap 3: Om door meerdere werkbladen en hyperlinks te bladeren, maken we een voor elke lus. A1 is al geselecteerd als actieve cel, dus maak hier een hyperlink van.

Code:

 Private Sub hyper2 () Dimmen als werkbladwerkbladen ("Functies"). Selecteer bereik ("A1"). Selecteer voor elke week in ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell Next ws End Sub

Stap 4: Geef de parameterwaarden op om een ​​hyperlink voor elk werkblad te maken. Omdat hyperlink begint vanaf actief celanker = actieve cel, wordt het adres gegeven als "" .

Code:

 Private Sub hyper2 () Dimmen als werkbladwerkbladen ("Functies"). Selecteer bereik ("A1"). Selecteer voor elke week in ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "" Next ws End Sub

Stap 5: De hyperlink loopt door het werkblad, dus we moeten het subadres als bladnamen opgeven. Om de bladnamen te krijgen kunnen we de variabele ws en celbereik als A1 gebruiken. De bladnaam zal naar één enkele aanhaling hebben verwezen. De bladnaam en het bereik worden gespecificeerd en ook afgesloten met een enkele offerte.

Code:

 Private Sub hyper2 () Dimmen als werkbladwerkbladen ("Functies"). Selecteer bereik ("A1"). Selecteer voor elke week in ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", Subadres: = "" & ws.Name & "! A1" & "" Volgende ws End Sub

Stap 6: Om de hyperlink met bladnaam te krijgen, geeft TextToDisplay de naam ws.Name

Code:

 Private Sub hyper2 () Dimmen als werkbladwerkbladen ("Functies"). Selecteer bereik ("A1"). Selecteer voor elke week in ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", Subadres: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Volgende ws End Sub

Deze code slaat hyperlink op voor elk werkblad in dezelfde cel A1.

Stap 7: Om dit elk blad te veranderen in een andere cel, één cel lager dan de actieve cel.

Code:

 Private Sub hyper2 () Dimmen als werkbladwerkbladen ("Functies"). Selecteer bereik ("A1"). Selecteer voor elke week in ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", Subadres: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0). Selecteer Volgende ws End Sub

Stap 8: Voer het programma uit en elke bladnaam wordt weergegeven op het blad 'Functies' en terwijl u erop klikt, gaat het besturingselement naar het overeenkomstige blad.

Dingen om te onthouden

  • Hyperlinkeigenschap van actieve cel die wordt gebruikt om hyperlinks in VBA te maken.
  • Hyperlink helpt om gemakkelijk binnen de werkmap te komen.

Aanbevolen artikelen

Dit is een handleiding voor VBA-hyperlinks. Hier leren we hoe u hyperlinks in het werkblad kunt maken met behulp van VBA-code om snel van het ene naar het andere blad te gaan, samen met enkele praktische voorbeelden en een downloadbare Excel-sjabloon. U kunt ook onze andere voorgestelde artikelen doornemen -

  1. Inleiding tot VBA Loops
  2. Verwijder hyperlinks in Excel
  3. VBA Break for Loop
  4. Zoek externe koppelingen in Excel

Categorie:

VBA