Definisjon av VBA Hyperlink

Hyperlenken brukes ofte på nettsteder for å navigere fra en side til en annen eller et nettsted til et annet på internett. På lignende måte kan vi også kontrollere bevegelsene i Excel-regnearket. De forskjellige operasjonene som kan utføres i Excel er:

  • Flytte til et bestemt sted i den gjeldende arbeidsboken.
  • Åpner forskjellige dokumenter og velg et nevnt område i dokumentet.
  • Navigere til websider fra regnearket.
  • Sender e-post til en definert adresse.

Hyperlenken er lett å gjenkjenne på grunn av fargeforandring, mest i blått. Det finnes forskjellige metoder for å lage en hyperkobling i Excel og la ved å bruke VBA.

Hvordan opprette en hyperkobling i Excel ved hjelp av VBA-kode?

Du kan legge til en hyperkobling til en tekst eller ett ark til et annet regneark innen Excel ved bruk av hyperkoblingsleggeegenskap. Formatet må følges ved å spesifisere hvor hyperkoblingen skal opprettes og navigasjons-URL osv.

Format for VBA Hyperlink Add

Formatet viser parametrene som må gis for å legge til en hyperkobling til et regneark.

  • Anker: Definerer cellen du vil opprette hyperkoblingen.
  • Adresse: URL-en som navigasjonen skal flyttes til.
  • (Underadresse): Underadresse til nettadressen.
  • (ScreenTip): Muspekverdien som skal vises mens du plasserer en musepeker.
  • (Tekst som skal vises ): Teksten må vises på cellen.

Bruk egenskapen Aktiv celle for å legge til en hyperkobling.

Velg leggemetode fra listen

Eksempler på å lage hyperkoblinger i Excel VBA

Nedenfor er de forskjellige eksemplene for å lage hyperkoblinger i Excel ved hjelp av VBA-kode.

Du kan laste ned denne VBA Hyperlink Excel Template her - VBA Hyperlink Excel Template

Eksempel 1 - Opprette en hyperkobling fra regnearket til et nettsted

Vi ønsker å lage en hyperkobling fra regnearket som heter sub til et nettsted som bruker VBA-kode i Excel.

Nedenfor er trinnene for å opprette en hyperkobling i Excel VBA:

Trinn 1: Lag en funksjon som heter hyper for å legge til hyperkoblingen.

Kode:

 Private Sub hyper () Slutt Sub

Trinn 2: Bruk det aktive celleobjektet for å åpne hyperkoblingsmetoden.

Kode:

 Privat subhyper () ActiveCell.Hyperlinks.Tillegg (Slutt sub

Trinn 3: Gi parameterverdiene til hyperkoblingsmetoden.

Kode:

 Privat subhyper () ActiveCell.Hyperlinks.Legg til anker: = Ark ("sub"). Område ("A1"), Adresse: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "det er en hyperkobling", TextToDisplay: = "Excel Training" End Sub
  • Anker: navn på arbeidsarket
  • Adresse: Hyperkobling til hvor kontrollen som skal navigeres, gitt nettstedets adresse
  • ScreenTip: Musepekerteksten
  • TextToDisplay: Til hvilken tekst hyperkoblingen skal tilordnes

Trinn 4: Trykk på F5 eller Run-knappen under VBE for å kjøre denne koden og se utdataene.

Celleområdet A1 er valgt og teksten blir tilordnet med en hyperkobling, når du først klikker på teksten “Excel Training”, vil den viderekobles til nettstedet https://www.educba.com/. Når du flytter musepekeren ved siden av teksten vil den vise musepekerteksten.

Eksempel 2 - Hyperkobling for å koble til to arbeidsark

Vi har to arbeidsark som heter Hjem og under . La oss prøve å lage en hyperkobling fra sub til hjem ved hjelp av VBA-kode.

Følg trinnene nedenfor for å opprette en hyperkobling fra ett arbeidsark til et annet i samme arbeidsbok ved hjelp av VBA-koden.

Trinn 1: Lag en funksjon, der vi vil skrive alle koder for å utføre handlingen. Skriv kode for å velge regnearket 'sub' ved bruk av arbeidsmetoden til regnearket.

Kode:

 Private Sub hyper1 () Arbeidsark ("sub"). Velg Slutt sub

Siden kontrollen beveger seg innenfor arket, er det nødvendig å velge regnearket du oppretter hyperkoblingen.

Trinn 2: Velg celleområdet i arket der hyperkoblingen ønsker å opprette.

Kode:

 Privat subhyper1 () Arbeidsark ("sub"). Velg område ("A1"). Velg Slutt sub

Trinn 3: La oss nå legge til hyperkoblingen ved å bruke den aktive celleegenskapen.

Kode:

 Privat subhyper1 () Arbeidsark ("sub"). Velg område ("A1"). Velg ActiveCell.Hyperlinks.Legg til anker: = Valg, adresse: = "", Underadresse: = "'Hjem'! A1", TextToDisplay: = "Klikk for å flytte hjemmeark" End Sub

Siden arbeidsarket allerede er valgt, gis Anker som 'Utvalg'. Hyperkoblingen er spesifisert som 'Hjem' -ark og område A1.

Trinn 4: Kjør kode og arkundertil vises hyperkoblingen som nedenfor.

Trinn 5: Når teksten er klikket, flyttes kontrollen til " Hjem " -arket. Og celle A1 blir valgt.

Eksempel 3 - Hyperkobling med flere regneark

Hvis du vil opprette hyperkobling på tvers av flere regneark, er det også mulig. I dette eksemplet har vi flere ark i samme arbeidsbok. Ulike typer excel-funksjoner eksisterer slik fra hovedarket 'Funksjoner'. La oss prøve å opprette en hyperkobling til det forskjellige regnearket med forskjellige funksjoner ved hjelp av VBA-kode:

De flere arbeidsarkene er navngitt som nedenfor med forskjellige excel-funksjonsnavn

Siden vi ønsker å opprette en hyperkobling til hvert regneark, er det vanskelig å gjenta koden. Følg trinnene nedenfor for å opprette en hyperkobling ved å bruke VBA-kode i Excel:

Trinn 1: Lag en variabel for å håndtere regnearket enkelt.

Kode:

 Private Sub hyper2 () Dim ws As Worksheet End Sub

Trinn 2: Nå vil vi velge hovedsiden som fungerer som en indeksside og velge celleområdet A1.

Kode:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Functions"). Velg Range ("A1"). Velg End Sub

Trinn 3: For å gå gjennom flere regneark og hyperkobling lager vi en for hver loop. A1 er allerede valgt som aktiv celle, så oppretter en hyperkobling fra denne.

Kode:

 Privat subhyper2 () Dim ws Som regneark-regneark ("Funksjoner"). Velg område ("A1"). Velg for hver ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Til anker: = ActiveCell Neste ws End Sub

Trinn 4: Gi parameterverdiene for å opprette en hyperkobling for hvert regneark. Siden hyperkobling starter fra aktivt celleanker = Aktiv celle, gis adressen som ”“ .

Kode:

 Privat subhyper2 () Dim ws som regneark-regneark ("Funksjoner"). Velg område ("A1"). Velg for hver ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Legg til anker: = ActiveCell, Adresse: = "" Neste ws End Under

Trinn 5: Hyperlenken sløyfes gjennom arbeidsarket, så vi bør gi underadresse som arknavn. For å få arkenavnene kan vi bruke variabelen ws og celleområdet som A1. Arknavnet vil ha referert til et enkelt sitat. Arknavn og område blir spesifisert og også lukket med et enkelt tilbud.

Kode:

 Privat subhyper2 () Dim ws Som regneark-regneark ("Funksjoner"). Velg område ("A1"). Velg for hver ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Tillegg anker: = ActiveCell, Adresse: = "", SubAddress: = "" & ws.Name & "! A1" & "" Neste ws End Sub

Trinn 6: For å få hyperkoblingen med arknavn gir TextToDisplay som ws.Name

Kode:

 Privat subhyper2 () Dim ws Som regneark-regneark ("Funksjoner"). Velg område ("A1"). Velg for hver ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Tillegg anker: = ActiveCell, Adresse: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Neste ws End Sub

Denne koden vil lagre hyperkobling for hvert regneark i samme celle A1.

Trinn 7: For å endre dette hvert ark til forskjellige celler ned en celle fra den aktive cellen.

Kode:

 Privat subhyper2 () Dim ws Som regneark-regneark ("Funksjoner"). Velg område ("A1"). Velg for hver ws i ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Tillegg anker: = ActiveCell, Adresse: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0) .Velg Neste ws End Sub

Trinn 8: Kjør programmet, og hvert arknavn vises på arket 'Funksjoner', og mens du klikker på det, flytter kontrollen til det tilsvarende arket.

Ting å huske

  • Hyperlink-egenskap til aktiv celle som brukes til å lage hyperkoblinger i VBA.
  • Hyperlink hjelper deg med å bevege deg lett i arbeidsboka.

Anbefalte artikler

Dette er en guide til VBA-hyperkoblinger. Her lærer vi hvordan du oppretter hyperkoblinger i regneark ved bruk av VBA-kode for raskt å gå fra ett ark til et annet ark sammen med noen praktiske eksempler og nedlastbar excel-mal. Du kan også gå gjennom andre foreslåtte artikler -

  1. Introduksjon til VBA Loops
  2. Fjern hyperkoblinger i Excel
  3. VBA Break for Loop
  4. Finn eksterne koblinger i Excel

Kategori:

VBA