Definition af VBA Hyperlink

Hyperlinket bruges ofte sammen med websteder til at navigere fra en side til en anden eller et websted til et andet på internettet. På en lignende måde kan vi også kontrollere bevægelserne inden for excel-regnearket. De forskellige handlinger, der kan udføres i Excel, er:

  • Flytning til et specifikt sted i den aktuelle arbejdsbog.
  • Åbning af forskellige dokumenter, og vælg et nævnt område i dokumentet.
  • Navigering til websider fra regnearket.
  • Sender e-mail til en defineret adresse.

Hyperlinket er let at genkende på grund af dets farveændring, mest i blåt. Der findes forskellige metoder til at oprette et hyperlink i excel og lade ved hjælp af VBA.

Sådan opretter du et hyperlink i Excel ved hjælp af VBA-kode?

Du kan tilføje et hyperlink til en tekst eller et ark til et andet regneark inden for Excel ved hjælp af hyperlink tilføj egenskab. Formatet skal følges ved at specificere, hvor hyperlinket skal oprettes, og navigations-URL osv.

Format til VBA Hyperlink Tilføj

Formatet viser, hvilke parametre der skal leveres for at føje et hyperlink til et regneark.

  • Anker: Definerer den celle, du vil oprette hyperlinket.
  • Adresse: URL-adressen, som navigationen skal flyttes til.
  • (Underadresse): Underadresse til URL'en.
  • (ScreenTip): Den musepekerværdi, der skal vises, mens der placeres en musemarkør.
  • (Tekst der skal vises ): Teksten skal vises på cellen.

Brug egenskaben Aktiv celle til at tilføje et hyperlink.

Vælg tilføjelsesmetoden fra listen

Eksempler på oprettelse af hyperlinks i Excel VBA

Nedenfor er de forskellige eksempler til at oprette hyperlinks i Excel ved hjælp af VBA-kode.

Du kan downloade denne VBA Hyperlink Excel-skabelon her - VBA Hyperlink Excel-skabelon

Eksempel 1 - Oprettelse af et hyperlink fra regnearket til et websted

Vi ønsker at oprette et hyperlink fra regneark, der er navngivet sub til et websted, der bruger VBA-kode i Excel.

Nedenfor er trinnene til at oprette et hyperlink i Excel VBA:

Trin 1: Opret en funktion kaldet hyper for at tilføje hyperlinket.

Kode:

 Privat subhyper () Slut sub

Trin 2: Brug det aktive celleobjekt til at åbne metoden til hyperlink-tilføjelse.

Kode:

 Privat sub-hyper () ActiveCell.Hyperlinks.Tilføj (slut sub

Trin 3: Giv parameterværdierne til hyperlink-tilføjelsesmetoden.

Kode:

 Privat sub-hyper () ActiveCell.Hyperlinks.Tilføj anker: = Ark ("sub"). Område ("A1"), adresse: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "det er et hyperlink", TextToDisplay: = "Excel-træning" Slutund
  • Anker: navn på regnearket
  • Adresse: Hyperlink til hvor kontrol, der skal navigeres, givet webstedets adresse
  • ScreenTip: Musepekerteksten
  • TextToDisplay: Til hvilken tekst hyperlinket skal tildeles

Trin 4: Tryk på F5 eller Run-knappen under VBE for at køre denne kode og se output.

Celleområdet A1 er valgt, og teksten er tildelt et hyperlink, når du først klikker på teksten “Excel Training” vil den omdirigere til webstedet https://www.educba.com/. Når du flytter musemarkøren ud for teksten, viser den musepekerteksten.

Eksempel 2 - Hyperlink til forbindelse mellem to regneark

Vi har to regneark, der hedder Hjem og under . Lad os prøve at oprette et hyperlink fra sub til hjem ved hjælp af VBA-kode.

Følg nedenstående trin for at oprette et hyperlink fra et regneark til et andet inden for den samme projektmappe ved hjælp af VBA-koden.

Trin 1: Opret en funktion, hvor vi vil skrive alle koder for at udføre handlingen. Skriv kode for at vælge regnearket 'sub' vha. Arbejdsarkets valgmetode.

Kode:

 Privat subhyper1 () Arbejdsark ("sub"). Vælg Afslut under

Da kontrollen bevæger sig inden i arket, er det nødvendigt at vælge det regneark, hvor du opretter hyperlinket.

Trin 2: Vælg celleområdet i det ark, hvor hyperlinket ønsker at oprette.

Kode:

 Privat subhyper1 () Arbejdsark ("sub"). Vælg område ("A1"). Vælg Slut sub

Trin 3: Lad os nu tilføje hyperlinket ved hjælp af den aktive celleegenskab.

Kode:

 Privat sub hyper1 () Arbejdsark ("sub"). Vælg rækkevidde ("A1"). Vælg ActiveCell.Hyperlinks.Tilføj anker: = Valg, adresse: = "", Underadresse: = "'Hjem'! A1", TextToDisplay: = "Klik for at flytte hjemmeark" End Sub

Da arbejdsarket allerede er valgt, gives Anker som 'Selection'. Hyperlinket er specificeret som 'Hjem' ark og interval A1.

Trin 4: Kør koden, og arkundern vises hyperlinket som nedenfor.

Trin 5: Når teksten er klikket, flyttes kontrollen til arket ' Hjem '. Og celle A1 vælges.

Eksempel # 3 - Hyperlink med flere regneark

Hvis du vil oprette hyperlink på tværs af flere regneark, er det også muligt. I dette eksempel har vi flere ark inden for den samme projektmappe. Forskellig type excel-funktioner findes, så fra hovedarket 'Funktioner'. Lad os prøve at oprette et hyperlink til det forskellige regneark, der er navngivet med forskellige funktioner ved hjælp af VBA-kode:

De flere regneark navngives som nedenunder med forskellige excel-funktionsnavne

Da vi ønsker at oprette et hyperlink til hvert regneark, er det vanskeligt at gentage koden. Følg nedenstående trin for at oprette et hyperlink ved hjælp af VBA-kode i Excel:

Trin 1: Opret en variabel til let at håndtere regnearket.

Kode:

 Privat subhyper2 () Dim ws Som regneark Slutundert

Trin 2: Nu vil vi vælge hovedsiden, der fungerer som en indeksside, og vælge celleområdet A1.

Kode:

 Privat sub-hyper2 () Dim ws som regneark-regneark ("Funktioner"). Vælg rækkevidde ("A1"). Vælg slut under

Trin 3: For at flytte gennem flere regneark og hyperlink opretter vi en til hver løkke. A1 er allerede valgt som aktiv celle, så der oprettes et hyperlink fra dette.

Kode:

 Privat sub-hyper2 () Dim ws som regneark-regneark ("Funktioner"). Vælg område ("A1"). Vælg for hver ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Tilføj anker: = ActiveCell Næste ws End Sub

Trin 4: Angiv parameterværdierne for at oprette et hyperlink til hvert regneark. Da hyperlink starter fra aktivt celleanker = Aktiv celle, er adressen angivet som ”“ .

Kode:

 Privat sub-hyper2 () Dim ws som regneark-regneark ("Funktioner"). Vælg område ("A1"). Vælg for hver ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Tilføj anker: = ActiveCell, Adresse: = "" Næste ws End Sub

Trin 5: Hyperlinket er løst gennem regnearket, så vi bør give underadresse som arknavne. For at få arknavne kan vi bruge variablen ws og celleområdet som A1. Arknavnet har henvist til et enkelt tilbud. Arknavn og interval specificeres og lukkes også med et enkelt tilbud.

Kode:

 Privat sub-hyper2 () Dim ws som regneark-regneark ("Funktioner"). Vælg område ("A1"). Vælg for hver ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Tilføj anker: = ActiveCell, Adresse: = "", SubAddress: = "" & ws.Name & "! A1" & "" Næste ws End Sub

Trin 6: For at få hyperlinket med arknavn gives TextToDisplay som ws.Name

Kode:

 Privat sub-hyper2 () Dim ws som regneark-regneark ("Funktioner"). Vælg område ("A1"). Vælg for hver ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Tilføj anker: = ActiveCell, Adresse: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Næste ws End Sub

Denne kode gemmer hyperlink for hvert regneark i den samme celle A1.

Trin 7: For at ændre dette hvert ark til forskellige celle ned en celle fra den aktive celle.

Kode:

 Privat sub-hyper2 () Dim ws som regneark-regneark ("Funktioner"). Vælg område ("A1"). Vælg for hver ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Tilføj anker: = ActiveCell, Adresse: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0) .Vælg næste ws End Sub

Trin 8: Kør programmet, og hvert arknavn vises på arket 'Funktioner', og mens du klikker på det, flyttes kontrollen til det tilsvarende ark.

Ting at huske

  • Hyperlink-egenskab for aktiv celle, der bruges til at oprette hyperlinks i VBA.
  • Hyperlink-hjælp til let at bevæge sig inden i projektmappen.

Anbefalede artikler

Dette er en guide til VBA-hyperlinks. Her lærer vi hvordan man opretter hyperlinks i regneark Brug af VBA-kode til hurtigt at flytte fra et ark til et andet ark sammen med nogle praktiske eksempler og downloadbar excel-skabelon. Du kan også gennemgå vores andre foreslåede artikler -

  1. Introduktion til VBA Loops
  2. Fjern hyperlinks i Excel
  3. VBA Break for Loop
  4. Find eksterne links i Excel

Kategori:

VBA