VBA hyperkoblinger - Hvordan lage hyperkobling i Excel ved hjelp av VBA-kode?

Innholdsfortegnelse

Hyperkoblinger er URL knyttet til en verdi som sees når vi holder musen over den, og når vi klikker på den, blir URL-en åpnet, i VBA har vi en innebygd egenskap for å lage hyperkoblinger i VBA og for å bruke denne egenskapen bruker vi Add-metoden sammen med hyperkoblingsuttalelsen for å sette inn en hyperkobling i en celle.

Hyperkoblinger i Excel VBA

Selv om vi har Page Up & Page Down hurtigtaster i Excel for å flytte mellom ett ark til et annet, men det blir komplisert når vi må flytte mellom 10 til flere regneark. Det er her skjønnheten til “Hyperkoblinger i Excel” kommer inn i bildet. Hyperkoblingen er en forhåndsbestemt URL som tar deg til den respektive cellen eller regnearket som tilordnet.

Vi vet alle hvordan vi oppretter hyperkoblinger i regnearket for å flytte raskt fra ett ark til et annet ark, og du kan også gå til et hvilket som helst annet ark. Men i dagens artikkel vil vi vise deg hvordan du oppretter hyperkoblinger ved hjelp av VBA-koding.

Formelen for VBA hyperkoblinger

La oss se på formelen til hyperkoblingene i Excel VBA.

  • Anker: I hvilken celle du vil lage en hyperkobling.
  • Adresse: Hva er URL-en til hyperkoblingen du skal navigere i?
  • (Underadresse): Hva er plasseringen av siden?
  • (Skjermtips): Hva er verdien som skal vises når du plasserer en musepeker på hyperkoblingsnavnet eller -cellen?
  • (Tekst som skal vises ): Hva er testen som skal vises i cellen? For eksempel Navn på regneark.

Hvordan lage hyperkoblinger i Excel VBA?

Anta at du vil opprette en VBA-hyperkobling til arket med navnet "Hovedark" fra det andre arket "Eksempel 1".

I regnearket “Eksempel 1” og i cellen A1, oppretter jeg hyperkoblingen ved hjelp av Kode i VBA.

Trinn 1: Velg først cellen A1 i regnearket Eksempel 1.

Kode:

Subhyperkobling_eksempel1 () Regneark ("Eksempel 1"). Velg område ("A1"). Velg Avslutt

Trinn 2: Nå, ved hjelp av Active Cell-objekt åpne hyperkoblinger. Legg til metode.

Kode:

Underhyperkobling_eksempel1 () Regneark ("Eksempel 1"). Velg område ("A1"). Velg ActiveCell.Hyperlinks.Add (Avslut sub

Trinn 3: Det første argumentet er "Anker", dvs. i hvilken celle vi vil koble for å opprette VBA-hyperkoblingen. I dette tilfellet, celle A1 og siden vi allerede har valgt celle A1 for å nevne den som "markering."

Kode:

Underhyperkobling_eksempel1 () Regneark ("Eksempel 1"). Velg område ("A1"). Velg ActiveCell. Hyperlenker. Legg til (valg, avslutning

Trinn 4: Vi oppretter ikke noen adresse her, så ignorer adressen per nå.

Kode:

Underhyperkobling_eksempel1 () Regneark ("Eksempel 1"). Velg område ("A1"). Velg ActiveCell. Hyperlenker. Legg til anker: = Valg, adresse: = "", Avslut sub

Trinn 5: Neste er underadresse. Her må vi nevne hvilket ark vi henviser til og den første cellen i det arket.

Kode:

Underhyperkobling_eksempel1 () Regneark ("Eksempel 1"). Velg område ("A1"). Velg ActiveCell. Hyperlenker. Legg til anker: = utvalg, adresse: = "", underadresse: = "" hovedark "! A1", slutt Under

Jeg har nevnt arknavnet som "Hovedark", og i den arket er celle-adressen "A1".

Trinn 6: Ignorer skjermtips også. For at tekst skal vises, nevn arkenavnet.

Kode:

Underhyperkobling_eksempel1 () Regneark ("Eksempel 1"). Velg område ("A1"). Velg ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Main Sheet'! A1", TextToDisplay : = "Hovedark" Slutt Sub

Ok, ferdig kjør denne koden ved hjelp av F5-tasten eller manuelt. Deretter vil den opprette en hyperkobling i cellen A1 i arket “Eksempel 1”.

Når du klikker på hyperkobling "Hovedark", omdirigeres det til hovedarket.

Hyperkoblinger av flere ark med løkker

Vi har sett å lage en VBA-hyperkobling for ett ark. Når vi har mange ark, er det ikke lett å lage en VBA-hyperkobling for hvert ark med samme linje med kode for hvert ark.

Anta at du har 11 regneark, som vist i bildet nedenfor.

Du vil opprette en hyperkobling for hvert ark i indeksarket ved hjelp av VBA-kode.

Trinn 1: Definer variabelen som et regneark.

Kode:

Sub Create_Hyperlink () Dim Ws Som regneark End Sub

Trinn 2: Det første er å velge regneark Indeks og velge cellen A1.

Kode:

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

Trinn 9: For å lagre hyperkoblingen til hvert ark i en annen celle, må vi flytte ned en celle fra den aktive cellen hver gang en hyperkobling opprettes for ett ark.

Kode:

Under Create_Hyperlink () Dim Ws som regneark regneark ("Indeks"). Velg område ("A1"). Velg for hvert Ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAdress: = "" & Ws.Name & "! A1" & "", ScreenTip: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0). Velg Next Ws End Sub

Dette vil opprette en hyperkobling av alle arkene i indeksarket. Denne koden er dynamisk når det er lagt til eller slettet ark. Vi må kjøre denne koden for å ha en oppdatert hyperkobling.

Interessante artikler...