VBA hüperlingi määratlus

Hüperlingi kasutatakse tavaliselt veebisaitidel Internetis ühelt lehelt teisele või ühelt veebisaidilt teisele navigeerimiseks. Sarnasel viisil saame ka liigutusi juhtida exceli töölehel. Erinevad Excelis tehtavad toimingud on järgmised:

  • Liigutakse praeguses töövihikus konkreetsesse kohta.
  • Erinevate dokumentide avamine ja valige dokumendis nimetatud ala.
  • Veebilehtedel navigeerimine töölehelt.
  • E-kirjade saatmine määratud aadressile.

Hüperlingi on värvi muutmise tõttu lihtne ära tunda, enamasti sinises. Excelis hüperlingi loomiseks ja VBA kasutamise lubamiseks on olemas erinevad meetodid.

Kuidas luua VBA-koodi abil Excelis hüperlink?

Hüperlingi lisamise atribuudi abil saate lisada hüperlingi teksti või ühe lehe Exceli teisele töölehele. Vormingus tuleb järgida täpsustades, kuhu hüperlink luua ja navigeerimise URL jne.

VBA hüperlingi vorming

Vorming näitab, millised parameetrid tuleb esitada hüperlingi lisamiseks töölehele.

  • Ankur: määratleb lahtri, mille soovite hüperlingi luua.
  • Aadress: URL, kuhu navigeerimine peaks liikuma.
  • (Alamadress): URL-i alaaadress.
  • (ScreenTip): hiirekursori väärtus, mida näidatakse hiirekursori paigutamisel.
  • (Kuvatav tekst ): tekst tuleb lahtris kuvada.

Hüperlingi lisamiseks kasutage lahtrit Aktiivne.

Valige loendist lisamisviis

Näited hüperlinkide loomiseks Excelis VBA

Allpool on toodud erinevad näited excelis hüperlinkide loomiseks, kasutades VBA-koodi.

Selle VBA hüperlingi Exceli malli saate alla laadida siit - VBA hüperlingi Exceli mall

Näide nr 1 - hüperlingi loomine töölehelt veebisaidile

Tahame luua hüperlingi alamlehelt töölehele, kasutades Excelis VBA-koodi.

Allpool on toodud sammud hüperlingi loomiseks Excelis VBA:

1. samm: looge hüperlingi lisamiseks funktsioon nimega hyper.

Kood:

 Privaatne alamhüper () Lõpp-alam

2. samm: hüperlingi lisamise meetodi avamiseks kasutage aktiivset lahtri objekti.

Kood:

 Privaatne alamhüper () ActiveCell.Hyperlinks.Lisa (alamrubriigi lõpp)

3. samm: lisage hüperlingi lisamise meetodile parameetri väärtused.

Kood:

 Privaatne alamhüper () ActiveCell.Hyperlinks.Lisa ankur: = Lehed ("alam"). Vahemik ("A1"), Aadress: = "https://www.educba.com/", Aadressi aadress: = "", ScreenTip : = "see on hüperlink", TextToDisplay: = "Exceli koolitus" Lõpp-alam
  • Ankur: töölehe nimi
  • Aadress: hüperlink sinna, kus juhtnuppu navigeeritakse, arvestades veebisaidi aadressi
  • Ekraanipilt: hiirekursori tekst
  • TextToDisplay: millisele tekstile hüperlink omistatakse

4. samm: selle koodi käivitamiseks ja väljundi vaatamiseks klõpsake VBE all nuppu F5 või nuppu Käivita.

Lahtrivahemik A1 valitakse ja tekst määratakse hüperlingiga, kui klõpsate teksti „Exceli koolitus”, suunatakse see uuesti veebisaidile https://www.educba.com/. Kui liigutate hiirekursori teksti kõrvale, kuvatakse see hiirekursori tekst.

Näide 2 - hüperlink kahe töölehe ühendamiseks

Meil on kaks töölehte nimega Kodu ja alam . Proovime luua hüperlingi alam-kodust, kasutades VBA-koodi.

Järgige allpool toodud samme, et luua hübriide link VBA-koodi abil ühelt töölehelt teisele sama töövihiku kaudu.

1. samm: looge funktsioon, kuhu kirjutame toimingu tegemiseks kõik koodid. Kirjutage kood töölehe „alam” valimiseks töölehe valimismeetodi abil.

Kood:

 Private Sub hyper1 () töölehed ("sub") Valige End Sub

Kuna juhtnupp liigub lehe sees, on vaja valida tööleht, milles hüperlinki loote.

2. samm: valige lahtrivahemik lehel, kuhu hüperlink luua soovite.

Kood:

 Private Sub hyper1 () töölehed ("sub"). Valige Range ("A1"). Valige End Sub

3. samm: lisame nüüd hüperlingi, kasutades aktiivset lahtri atribuuti.

Kood:

 Private Sub hyper1 () töölehed ("sub"). Valige vahemik ("A1"). Valige ActiveCell.Hyperlinks.Add Anchor: = Valik, Address: = "", SubAddress: = "'Home'! A1", TextToDisplay: = "Klõpsake avalehe teisaldamiseks" Lõpeta alam

Kuna tööleht on juba valitud, antakse Ankrule kui 'Valikule'. Hüperlink on määratletud kui „Avaleht” leht ja vahemik A1.

4. samm: käivitage kood ja lehe alam kuvatakse hüperlink allpool toodud viisil.

5. samm: kui teksti on klõpsatud, liigutatakse juhtnupp lehele „ Avaleht ”. Ja lahter A1 valitakse.

Näide nr 3 - hüperlink mitme töölehega

Kui soovite luua hüperlingi mitmele töölehele, on see ka võimalik. Selles näites on meil ühes töövihikus mitu lehte. Erinevat tüüpi exceli funktsioone on olemas põhilehelt „Funktsioonid”. Proovime luua hüperlingi VBA-koodi abil erinevatele funktsioonidele nimetatavale töölehele:

Mitu töölehte on nimetatud allpool erinevate exceli funktsioonide nimedega

Kuna soovime luua iga töölehe hüperlingi, on koodi kordamine keeruline. VBA-koodi abil hüperlingi loomiseks Excelis toimige järgmiselt.

1. samm: looge muutuja, et töölehega hõlpsalt toime tulla.

Kood:

 Privaatne alamhüper2 () Dim on töölehe lõpus alam

2. samm: nüüd tahame valida esilehe, mis toimib registrilehena, ja valida lahtrivahemiku A1.

Kood:

 Privaatne alamhüper2 () Hämardatakse töölehe töölehtedena ("Funktsioonid"). Valige Vahemik ("A1"). Valige Lõp. Alam

3. samm: mitme töölehe ja hüperlingi kaudu liikumiseks loome iga silmuse jaoks. A1 on juba aktiivseks lahtriks valitud, luues sellest hüperlingi.

Kood:

 Privaatne alamhüper2 () Dim ws töölehe töölehtedena ("Funktsioonid"). Valige vahemik ("A1"). Valige ActiveWorkbookis iga töölaua jaoks.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell Next ws End Sub

4. samm: lisage parameetrite väärtused, et luua iga töölehe hüperlink. Kuna hüperlink algab aktiivsest lahtri ankrust = Aktiivne lahter, antakse aadress kui "“ .

Kood:

 Privaatne alamhüper2 () Dim ws töölehe töölehtedena ("Funktsioonid"). Valige vahemik ("A1"). Valige iga ws jaoks ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "" Next ws End Alam

5. samm: hüperlink lüüakse töölehe kaudu läbi, nii et me peaksime andma alamdressi lehena. Lehtede nimede saamiseks saame muutuja w ja lahtrivahemiku kasutada kui A1. Lehe nimi on viidatud ühe pakkumisega. Lehe nimi ja ulatus täpsustatakse ja suletakse ka ühe pakkumisega.

Kood:

 Privaatne alamhüper2 () Dim ws töölehe töölehtedena ("Funktsioonid"). Valige vahemik ("A1"). Valige ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Whksch iga lehe jaoks WS Anchor: = ActiveCell, Address: = "", SubAadress: = "" & ws.Name & "! A1" & "" Järgmine lõpp lõpp alam

6. samm: lehe nimega hüperlingi saamiseks antakse TextToDisplay kui ws.Name

Kood:

 Privaatne alamhüper2 () Dim ws töölehe töölehtedena ("Funktsioonid"). Valige vahemik ("A1"). Valige ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Whksch iga lehe jaoks WS Anchor: = ActiveCell, Address: = "", SubAadress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Next ws End Sub

See kood salvestab hüperlingi iga töölehe jaoks samas lahtris A1.

7. samm: selle lehe muutmiseks aktiivseks lahtriks olevast lahtrist erinevaks lahtriks.

Kood:

 Privaatne alamhüper2 () Dim ws töölehe töölehtedena ("Funktsioonid"). Valige vahemik ("A1"). Valige ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Whksch iga lehe jaoks WS Anchor: = ActiveCell, Address: = "", SubAadress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0) .Vali järgmine ws End Sub

8. samm: käivitage programm ja iga lehe nimi kuvatakse lehel 'Funktsioonid' ja sellel klõpsamisel liigub juhtnipp vastavale lehele.

Asjad, mida meeles pidada

  • VBA hüperlinkide loomiseks kasutatava aktiivse lahtri hüperlingi omadus.
  • Hüperlingid aitavad töövihikus hõlpsalt liikuda.

Soovitatavad artiklid

See on VBA hüperlinkide juhend. Siit õpime, kuidas VBA-koodi abil töölehele hüperlinke luua, kasutades praktilisi näiteid ja allalaaditavat Exceli malli, et ühelt lehelt teisele lehele kiiresti liikuda. Võite vaadata ka meie teisi soovitatud artikleid -

  1. Sissejuhatus VBA silmustesse
  2. Eemaldage hüperlingid Excelis
  3. VBA paus Loopile
  4. Väliste linkide otsimine Excelis

Kategooria:

VBA