Definition av VBA Hyperlink

Hyperlänken används vanligtvis för webbplatser för att navigera från en sida till en annan eller en webbplats till en annan på internet. På liknande sätt kan vi också kontrollera rörelserna inom Excel-kalkylbladet. De olika operationerna som kan utföras i Excel är:

  • Flytta till en specifik plats i den aktuella arbetsboken.
  • Öppna olika dokument och välj ett nämnt område i dokumentet.
  • Navigera till webbsidor från kalkylbladet.
  • Skickar e-post till en definierad adress.

Hyperlänken är lätt att känna igen på grund av dess färgförändring, mestadels i blått. Det finns olika metoder för att skapa en hyperlänk i Excel och låta med VBA.

Hur skapar jag en hyperlänk i Excel med hjälp av VBA-kod?

Du kan lägga till en hyperlänk till en text eller ett ark till ett annat kalkylblad inom Excel med hjälp av hyperlänk tilläggsegenskap. Formatet måste följas av att ange var hyperlänken ska skapas och navigerings-URL etc.

Format för VBA Hyperlink Add

Formatet visar parametrarna som måste anges för att lägga till en hyperlänk till ett kalkylblad.

  • Ankare: Definierar den cell du vill skapa hyperlänken.
  • Adress: URL: en som navigeringen ska flytta till.
  • (SubAddress): Subadress av URL: n.
  • (ScreenTip): Muspekarvärdet som ska visas när du placerar en muspekare.
  • (Text som ska visas): Texten måste visas på cellen.

Använd egenskapen Aktiv cell för att lägga till en hyperlänk.

Välj tilläggsmetod från listan

Exempel på att skapa hyperlänkar i Excel VBA

Nedan är de olika exemplen för att skapa hyperlänkar i Excel med hjälp av VBA-kod.

Du kan ladda ner denna VBA Hyperlink Excel-mall här - VBA Hyperlink Excel-mall

Exempel 1 - Skapa en hyperlänk från kalkylbladet till en webbplats

Vi vill skapa en hyperlänk från arbetsblad som heter sub till en webbplats med VBA-kod i Excel.

Nedan följer stegen för att skapa en hyperlänk i Excel VBA:

Steg 1: Skapa en funktion som heter hyper för att lägga till hyperlänken.

Koda:

 Private Sub hyper () Slut Sub

Steg 2: Använd det aktiva cellobjektet för att öppna metoden för att lägga till hyperlänk.

Koda:

 Privat subhyper () ActiveCell.Hyperlinks.Add (End Sub

Steg 3: Ange parametervärden till hyperlänktilläggsmetoden.

Koda:

 Privat subhyper () ActiveCell.Hyperlinks.Add Anchor: = Sheets ("sub"). Range ("A1"), Address: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "det är en hyperlänk", TextToDisplay: = "Excel-utbildning" Avsluta sub
  • Ankare: namn på kalkylbladet
  • Adress: Hyperlänk till var kontrollen ska navigeras, med tanke på webbplatsadressen
  • ScreenTip: Muspekarteksten
  • TextToDisplay: Till vilken text hyperlänken ska tilldelas

Steg 4: Tryck på F5 eller Run-knappen under VBE för att köra den här koden och se utgången.

Cellområdet A1 väljs och texten tilldelas en hyperlänk, när du klickar på texten "Excel Training" kommer den att omdirigera till webbplatsen https://www.educba.com/. När du flyttar muspekaren bredvid texten kommer den att visa muspekarteksten.

Exempel 2 - Hyperlänk för att ansluta två arbetsblad

Vi har två kalkylblad som heter Home and sub . Låt oss försöka skapa en hyperlänk från sub till hem med VBA-kod.

Följ stegen nedan för att skapa en hyperlänk från ett kalkylblad till ett annat inom samma arbetsbok med VBA-koden.

Steg 1: Skapa en funktion där vi kommer att skriva alla koder för att utföra åtgärden. Skriv kod för att välja kalkylbladet "sub" med hjälp av arbetsmetod för kalkylbladet.

Koda:

 Privat subhyper1 () Arbetsblad ("sub"). Välj Avsluta under

Eftersom kontrollen rör sig inom arket är det nödvändigt att välja det kalkylblad där du skapar hyperlänken.

Steg 2: Välj cellintervall i arket där hyperlänken vill skapa.

Koda:

 Private Sub hyper1 () Arbetsblad ("sub"). Välj Range ("A1"). Välj End Sub

Steg 3: Låt oss nu lägga till hyperlänken med den aktiva cellegenskapen.

Koda:

 Privat subhyper1 () Arbetsblad ("sub"). Välj intervall ("A1"). Välj ActiveCell.Hyperlänkar. Lägg till ankare: = Val, adress: = "", SubAddress: = "'Hem'! A1", TextToDisplay: = "Klicka för att flytta hemarket" Slut sub

Eftersom kalkylbladet redan är valt ges Anchor som 'Selection'. Hyperlänken specificeras som 'Hem' -ark och intervall A1.

Steg 4: Kör koden och arkundern kommer att visas hyperlänken som nedan.

Steg 5: När texten har klickats flyttas kontrollen till arket " Hem ". Och cell A1 kommer att väljas.

Exempel 3 - Hyperlänk med flera kalkylblad

Om du vill skapa hyperlänk över flera kalkylblad är det också möjligt. I det här exemplet har vi flera ark inom samma arbetsbok. Olika typer av excelfunktioner finns så från huvudarkbladet "Funktioner". Låt oss försöka skapa en hyperlänk till olika kalkylblad med olika funktioner med VBA-kod:

Flera kalkylblad benämns enligt nedan med olika excel-funktionsnamn

Eftersom vi vill skapa en hyperlänk till varje kalkylblad är det svårt att upprepa koden. Följ stegen nedan för att skapa en hyperlänk med VBA-kod i Excel:

Steg 1: Skapa en variabel för att enkelt hantera kalkylbladet.

Koda:

 Private Sub hyper2 () Dim ws As Worksheet End Sub

Steg 2: Nu vill vi välja startsidan som fungerar som en indexsida och välja cellområdet A1.

Koda:

 Privat subhyper2 () Dim ws som kalkylblad ("Funktioner"). Välj intervall ("A1"). Välj Slut sub

Steg 3: För att gå igenom flera kalkylblad och hyperlänk skapar vi en för varje slinga. A1 är redan vald som aktiv cell så att en hyperlänk skapas från denna.

Koda:

 Privat subhyper2 () Dim ws som kalkylblad ("Funktioner"). Välj intervall ("A1"). Välj för varje ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks. Lägg till ankare: = ActiveCell Nästa ws Slut Sub

Steg 4: Ange parametervärden för att skapa en hyperlänk för varje kalkylblad. Eftersom hyperlänk startar från aktivt cellankare = Aktiv cell, ges adressen som ”” .

Koda:

 Privat subhyper2 () Dim ws som kalkylblad ("Funktioner"). Välj intervall ("A1"). Välj för varje ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks. Lägg till ankare: = ActiveCell, Adress: = "" Nästa ws End Sub

Steg 5: Hyperlänken slingras genom kalkylbladet så vi ska ge underadress som arknamn. För att få arknamn kan vi använda variabeln ws och cellområdet som A1. Bladnamnet kommer att ha hänvisat till ett enda offert. Arkens namn och intervall kommer att specificeras och stängs också med en enda offert.

Koda:

 Privat subhyper2 () Dim ws som kalkylblad ("Funktioner"). Välj intervall ("A1"). Välj för varje ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks. Lägg till ankare: = ActiveCell, Adress: = "", SubAddress: = "" & ws.Name & "! A1" & "" Nästa ws End Sub

Steg 6: För att få hyperlänken med arknamn ger TextToDisplay som ws.Name

Koda:

 Privat subhyper2 () Dim ws som kalkylblad ("Funktioner"). Välj intervall ("A1"). Välj för varje ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks. Lägg till ankare: = ActiveCell, Adress: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Nästa ws End Sub

Denna kod lagrar hyperlänk för varje kalkylblad i samma cell A1.

Steg 7: För att ändra detta varje ark till olika celler ner en cell från den aktiva cellen.

Koda:

 Privat subhyper2 () Dim ws som kalkylblad ("Funktioner"). Välj intervall ("A1"). Välj för varje ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks. Lägg till ankare: = ActiveCell, Adress: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0) .Välj Nästa ws End Sub

Steg 8: Kör programmet och varje arknamn visas på arket "Funktioner" och medan du klickar på det kommer kontrollen att flytta till motsvarande ark.

Saker att komma ihåg

  • Hyperlänkegenskap för aktiv cell som används för att skapa hyperlänkar i VBA.
  • Hyperlänk hjälper dig att flytta lätt i arbetsboken.

Rekommenderade artiklar

Detta är en guide till VBA-hyperlänkar. Här lär vi oss hur man skapar hyperlänkar i kalkylblad med hjälp av VBA-kod för att snabbt flytta från ett ark till ett annat ark tillsammans med några praktiska exempel och nedladdningsbara Excel-mall. Du kan också gå igenom våra andra föreslagna artiklar -

  1. Introduktion till VBA Loops
  2. Ta bort hyperlänkar i Excel
  3. VBA Break för Loop
  4. Hitta externa länkar i Excel

Kategori:

VBA