Definicija VBA hiperveza

Hiperveza se obično koristi s web lokacijama za navigaciju s jedne stranice na drugu ili s jedne web stranice na drugu na internetu. Na sličan način možemo i kontrolirati pokrete unutar excel radnog lista. U Excelu se mogu izvršiti različite operacije:

  • Prelazak na određeno mjesto unutar trenutne radne knjige.
  • Otvaranje različitih dokumenata i odaberite spomenuto područje unutar dokumenta.
  • Navigacija do web stranica s radnog lista.
  • Slanje e-pošte na definiranu adresu.

Hipervezu je lako prepoznati zbog promjene boje, uglavnom u plavoj boji. Postoje različite metode za stvaranje hiperveze u excelu i dopuštanje korištenja VBA.

Kako stvoriti hipervezu u Excelu pomoću VBA koda?

Možete dodati hipervezu u tekst ili jedan list na drugi radni list u excelu pomoću svojstva dodavanja hiperveza. Format mora biti praćen određivanjem mjesta hiperveze i navigacijskog URL-a itd.

Format za dodavanje VBA hiperveza

Format pokazuje parametre koji trebaju biti dodani kako biste dodali hipervezu radnom listu.

  • Sidro: definira ćeliju u kojoj želite stvoriti hipervezu.
  • Adresa: URL na koji se navigacija treba kretati.
  • (Podnaslov): Podnaslov URL-a.
  • (ScreenTip): Vrijednost pokazivača miša koja će se prikazati tijekom postavljanja pokazivača miša.
  • (Tekst za prikaz): Tekst mora biti prikazan na ćeliji.

Upotrijebite svojstvo aktivne stanice da biste dodali hipervezu.

Odaberite metodu dodavanja s popisa

Primjeri za stvaranje hiperveza u Excelu VBA

Ispod su sljedeći primjeri za stvaranje hiperveza u excelu pomoću VBA koda.

Ovdje možete preuzeti ovaj VBA predložak hiperpoveznice Hyperlink - VBA predložak Hyperlink Excel

Primjer br. 1 - Izrada hiperveze s radnog lista na web mjesto

Želimo stvoriti hipervezu iz radnog lista pod nazivom do web stranice pomoću VBA koda u excelu.

Ispod su koraci za stvaranje hiperveze u Excelu VBA:

Korak 1: Stvorite funkciju nazvanu hyper za dodavanje hiperveze.

Kodirati:

 Privatni Sub hiper () Kraj Sub

Korak 2: Upotrijebite objekt Aktivna ćelija da biste otvorili metodu dodavanja hiperveza.

Kodirati:

 Privatni sub hiper () ActiveCell.Hyperlinks.Add (Kraj sub

Korak 3: Navedite vrijednosti parametara metodi dodavanja hiperveza.

Kodirati:

 Privatni sub hiper () ActiveCell.Hyperlinks.Add Anchor: = Sheets ("sub"). Raspon ("A1"), Address: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "to je hiperveza", TextToDisplay: = "Excel Training" Kraj Pot
  • Sidro: naziv radnog lista
  • Adresa: Hiperveza do mjesta do kojeg će se upravljati, s obzirom na adresu web mjesta
  • ScreenTip: Tekst pokazivača miša
  • TextToDisplay: kojem će tekstu biti dodijeljena hiperveza

Korak 4: Pritisnite tipku F5 ili Run pod VBE da biste pokrenuli ovaj kod i pogledali izlaz.

Odabran je raspon ćelija A1, a tekst je dodijeljen hipervezom, nakon što kliknete na tekst "Excel Training" preusmjerit će se na web mjesto https://www.educba.com/. Kada pomaknete pokazivač miša pored teksta, prikazat će se tekst pokazivača miša.

Primjer br. 2 - hiperveza za povezivanje dva radna lista

Imamo dva radna lista pod nazivom Home i sub . Pokušajmo stvoriti hipervezu od pod-kuće pomoću VBA koda.

Slijedite dolje navedene korake za stvaranje hiperveze s jednog radnog lista na drugi unutar iste radne knjige pomoću VBA koda.

Korak 1: Stvorite funkciju, u koju ćemo napisati sve kodove za izvođenje akcije. Napi codeite kôd za odabir radnog lista „pod“, primjenom metode odabira radnog lista.

Kodirati:

 Privatni Sub hiper1 () Radni listovi ("sub") Odaberite End Sub

Kako se kontrola kreće unutar lista, potrebno je odabrati radni list u kojem stvarate hipervezu.

Korak 2: Odaberite raspon ćelija unutar lista na kojem se želi stvoriti hiperveza.

Kodirati:

 Privatni Sub hiper1 () Radni listovi ("sub"). Odaberite Raspon ("A1"). Odaberite Kraj Sub

Korak 3: Sada dodajmo hipervezu koristeći svojstvo aktivne ćelije.

Kodirati:

 Privatni Sub hiper1 () Radni listovi ("pod"). Odaberite raspon ("A1"). Odaberite ActiveCell.Hyperlinks.Add Anchor: = Odabir, Adresa: = "", Podnaslov: = "'Početna'! A1", TextToDisplay: = "Kliknite za pomicanje početnog lista" End Sub

Budući da je radni list već odabran, sidro je dano kao 'Odabir'. Hiperveza je specificirana kao "Početna" lista i raspon A1.

Korak 4: Pokrenite kod i na podlogu će se prikazati hiperveza na sljedeći način.

Korak 5: Nakon što se klikne tekst kontrola će se premjestiti na list " Početna ". I odabire se ćelija A1.

Primjer # 3 - Hiperveza s više radnih listova

Ako želite stvoriti hipervezu na više radnih listova, također je moguće. U ovom primjeru imamo više listova unutar iste radne knjige. Različite vrste excel funkcija postoje, tako u glavnom radnom listu "Funkcije". Pokušajmo stvoriti hipervezu na različiti radni list imenovan s različitim funkcijama pomoću VBA koda:

Više radnih listova su imenovani dolje s različitim imenima excel funkcije

Budući da želimo stvoriti hipervezu na svaki radni list, teško je ponoviti kod. Slijedite dolje navedene korake za stvaranje hiperveze pomoću VBA koda u Excelu:

Korak 1: Napravite varijablu za jednostavno rješavanje radnog lista.

Kodirati:

 Privatni Sub hiper2 () Dim ws kao Radni list Kraj Sub

Korak 2: Sada želimo odabrati glavnu stranicu koja djeluje kao indeksna stranica i odabrati raspon ćelija A1.

Kodirati:

 Privatni Sub hiper2 () Dim ws kao radni listovi radnog lista ("Functions"). Odaberite raspon ("A1"). Select End Sub

Korak 3: Za kretanje kroz više radnih listova i hipervezu stvaramo a za svaku petlju. A1 je već odabran kao aktivna ćelija, pa od toga stvara hipervezu.

Kodirati:

 Privatni sub hiper2 () Dim ws kao radni listovi radnog lista ("Funkcije"). Odaberite raspon ("A1"). Odaberite za svaki ws u ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell Sljedeći w End Sub

Korak 4: Navedite vrijednosti parametara za stvaranje hiperveze za svaki radni list. Budući da hiperveza počinje s aktivnog ćelija sidra = Aktivna ćelija, adresa je dana kao "" .

Kodirati:

 Privatni sub hiper2 () Dim ws kao radni listovi radnog lista ("Funkcije"). Odaberite raspon ("A1"). Odaberite za svaki ws u ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "" Sljedeći kraj Pod

Korak 5: Hiperveza se petlja kroz radni list pa bismo trebali dati podadresu kao nazive listova. Za dobivanje imena lista možemo koristiti varijablu ws i raspon ćelija kao A1. Naziv lista odnosit će se na jedan navod. Naziv i raspon lista bit će specificirani i također zatvoreni jednim navodom.

Kodirati:

 Privatni Sub hiper2 () Dim ws kao radni listovi radnog lista ("Funkcije"). Odaberite raspon ("A1"). Odaberite za svako ws u ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "" Sljedeća ws Kraj Sub

Korak 6: Da biste dobili hipervezu s imenom lista daje TextToDisplay kao ws.Name

Kodirati:

 Privatni Sub hiper2 () Dim ws kao radni listovi radnog lista ("Funkcije"). Odaberite raspon ("A1"). Odaberite za svako ws u ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Next ws Kraj Sub

Ovaj će kôd pohraniti hipervezu za svaki radni list u istoj ćeliji A1.

Korak 7: Da biste promijenili ovaj list u drugu ćeliju niz jednu ćeliju iz aktivne ćelije.

Kodirati:

 Privatni Sub hiper2 () Dim ws kao radni listovi radnog lista ("Funkcije"). Odaberite raspon ("A1"). Odaberite za svako ws u ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0) .Odaberite Next ws End Sub

Korak 8: Pokrenite program, a naziv svakog lista prikazat će se na listu 'Funkcije', a klikom na njega kontrola će se premjestiti na odgovarajući list.

Stvari koje treba zapamtiti

  • Svojstvo hiperveze aktivne ćelije koja se koristi za stvaranje hiperveza u VBA.
  • Hiperveze pomažu u jednostavnom kretanju unutar radne knjige.

Preporučeni članci

Ovo je vodič za VBA hiperveze. Ovdje smo naučili kako stvoriti hiperveze na radnom listu pomoću VBA koda za brzo premještanje s jednog lista na drugi list, zajedno s nekoliko praktičnih primjera i preuzeti Excel predložak. Možete i pregledati naše druge predložene članke -

  1. Uvod u VBA petlje
  2. Uklonite hiperveze u Excelu
  3. VBA odmor za petlju
  4. Pronađite eksterne veze u Excelu

Kategorija:

VBA