VBA hüperlingid - Kuidas luua Excelis hüperlingi VBA-koodi abil?

Lang L: none (table-of-contents)

Hüperlingid on URL, mis on lisatud väärtusele, mida näeme, kui hõljutame selle kohal hiirekursorit ja kui sellel klõpsame, URL avatakse hüperlingi lause lahtri hüperlingi sisestamiseks.

Hüperlingid Exceli VBA-s

Isegi kui meil on Excelis kiirendusklahv Page Up & Page Down, et ühelt lehelt teisele liikuda, kuid see muutub keerukaks, kui peame liikuma 10-lt töölehelt enamale. Siit tuleb pildi “Exceli hüperlinkide” ilu. Hüperling on ettemääratud URL, mis viib teid määratud lahtrisse või töölehele.

Me kõik teame, kuidas töölehel hüperlinke luua, et kiiresti ühelt lehelt teisele lehele liikuda, ja võite minna ka mis tahes muule lehele. Kuid tänases artiklis näitame teile, kuidas luua hüperlinke VBA kodeerimise abil.

VBA hüperlinkide valem

Vaatame Exceli VBA hüperlinkide valemit.

  • Ankur: millises lahtris soovite hüperlingi luua.
  • Aadress: mis on hüperlingi URL navigeerimiseks?
  • (Aadress): mis on lehe asukoht?
  • (Ekraaninipp): mis on väärtus, mida näidatakse, kui asetate hiirekursori hüperlingi nimele või lahtrile?
  • (Teksti kuvamine): milline on lahtris kuvatav test? Näiteks töölehe nimi.

Kuidas Exceli VBA-s hüperlinke luua?

Oletame, et soovite teiselt lehelt „Näide 1” luua VBA hüperlingi lehele nimega „Põhileht”.

Töölehel „Näide 1” ja lahtris A1 loovad hüperlingi VBA kood.

1. samm: kõigepealt valige töölehe näite 1 lahter A1.

Kood:

Alamhüperlingi_näide1 () töölehed ("Näide 1"). Valige vahemik ("A1"). Valige Lõpeta alam

2. samm: nüüd saate rakenduse Active Cell objekti abil avada hüperlingid. Lisa meetod.

Kood:

Alamhüperlingi_näide1 () töölehed ("Näide 1"). Valige vahemik ("A1"). Valige ActiveCell.Hyperlinks.Add (End Sub

3. samm: esimene argument on "Ankur", st millisesse lahtrisse me linkime VBA hüperlingi loomiseks. Sellisel juhul on lahter A1 ja kuna me oleme juba valinud lahtri A1, et seda mainida kui valikut.

Kood:

Alamhüperlingi_näide1 () töölehed ("Näide 1"). Valige vahemik ("A1"). Valige ActiveCell.Hyperlinks.Add (valik, End Sub

4. samm: me ei loo siin ühtegi aadressi, seega eirake aadressi juba praegu.

Kood:

Alamhüperlingi_näide1 () töölehed ("Näide 1"). Valige vahemik ("A1"). Valige ActiveCell.Hyperlinks.Add Anchor: = Valik, Aadress: = "", Lõpeta alam

5. samm: Järgmine on alaaadress. Siinkohal peame mainima, millisele lehele me viitame, ja selle lehe esimest lahtrit.

Kood:

Alamhüperlingi_näide1 () töölehed ("Näide 1"). Valige vahemik ("A1"). Valige ActiveCell.Hyperlinks.Add Anchor: = Valik, Aadress: = "", Aadress: = "'Põhileht'! A1", Lõpp Alam

Olen maininud lehe nime kui „Põhileht“ ja selle lehe lahtriaadress on „A1“.

6. samm: eirake ka ekraani näpunäidet. Teksti kuvamiseks mainige lehe nime.

Kood:

Alamhüperlingi_näide1 () töölehed ("Näide 1"). Valige vahemik ("A1"). Valige ActiveCell.Hyperlinks.Add Anchor: = Valik, Aadress: = "", Aadress: = "'Põhileht'! A1", TextToDisplay : = "Põhileht" Lõpp-alam

Ok, valmis käivitage see kood klahviga F5 või käsitsi. Seejärel loob see lehe „Näide 1” lahtrisse A1 hüperlingi.

Kui klõpsate hüperlingi nupul „Põhileht“, suunatakse see põhilehele.

Silmustega mitme lehe hüperlingid

Oleme näinud ühe lehe jaoks VBA hüperlingi loomist. Kui meil on palju lehti, pole iga lehe jaoks VBA hüperlingi loomine sama koodireaga iga lehe jaoks lihtne.

Oletame, et teil on 11 töölehte, nagu on näidatud alloleval pildil.

Soovite luua hüperlingi iga lehe sisse Index lehte kasutades VBA kood.

1. samm: määratlege muutuja töölehena.

Kood:

Sub Create_Hyperlink () Dim Ws töölehe lõpus Sub

2. samm: Esimene asi on valida töölehe register ja valida lahter A1.

Kood:

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

9. samm: iga lehe hüperlingi salvestamiseks erinevasse lahtrisse peame iga kord, kui ühe lehe jaoks luuakse hüperlink, liikuma aktiivsest lahtrist ühe lahtri võrra allapoole.

Kood:

Sub Create_Hyperlink () Dim Ws töölehtede töölehtedena ("Index"). Valige vahemik ("A1"). Valige ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add ankru: = ActiveCell, Address: = "" SubAddress: = iga W jaoks "" & Ws.Name & "! A1" & "", ekraaninipp: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0). Valige Next Ws End Sub

See loob hüperlingi kõikidest lehtedest indeksilehel. See kood on dünaamiline, kui lehtedele lisatakse või kustutatakse. Uuendatud hüperlingi saamiseks peame selle koodi käivitama.

Huvitavad Artiklid...