Definiția VBA Hyperlink

Hiperlinkul este utilizat în mod obișnuit cu site-urile web pentru navigarea de la o pagină la alta sau un site web la altul de pe internet. Într-un mod similar, putem controla și mișcările din cadrul foii de lucru excel. Diferitele operațiuni care pot fi efectuate în Excel sunt:

  • Mutarea într-o anumită locație din cartea de lucru curentă.
  • Deschiderea diferitelor documente și selectarea unei zone menționate din document.
  • Navigarea la pagini web din foaia de lucru.
  • Trimiterea e-mailului la o adresă definită.

Hiperlinkul este ușor de recunoscut datorită schimbării de culoare, în mare parte în albastru. Există diferite metode pentru a crea un hyperlink în excel și permiteți utilizarea VBA.

Cum să creați un hyperlink în Excel folosind codul VBA?

Puteți adăuga un hyperlink la un text sau la o foaie la o altă foaie de lucru din Excel folosind proprietatea de adăugare a hyperlink-ului. Formatul trebuie urmat prin specificarea locului în care trebuie creat hyperlinkul și URL-ul de navigare etc.

Format pentru VBA Hyperlink Add

Formatul arată parametrii care trebuie furnizați pentru a adăuga un hyperlink la o foaie de lucru.

  • Anchor: definește celula pe care doriți să o creați hyperlink-ul.
  • Adresa: adresa URL către care ar trebui să se deplaseze navigarea.
  • (Subdirecție): Subdirectoare a adresei URL.
  • (ScreenTip): valoarea pointerului mouse-ului să fie afișată în timp ce plasați un pointer mouse.
  • (Text de afișat): textul trebuie să fie afișat pe celulă.

Utilizați proprietatea Active Cell pentru a adăuga un hyperlink.

Selectați metoda de adăugare din listă

Exemple pentru a crea hyperlink-uri în Excel VBA

Mai jos sunt diferite exemple pentru a crea hyperlink-uri în excel folosind codul VBA.

Puteți descărca acest șablon VBA Hyperlink Excel aici - Șablonul VBA Hyperlink Excel

Exemplul nr. 1 - Crearea unui hyperlink din foaia de lucru către un site web

Vrem să creăm un hyperlink dintr-o foaie de lucru denumită sub la un site web folosind codul VBA în excel.

Mai jos sunt pașii pentru a crea un hyperlink în Excel VBA:

Pasul 1: Creați o funcție numită hyper pentru a adăuga hyperlink-ul.

Cod:

 Private Sub hyper () End Sub

Pasul 2: Folosiți obiectul Active Cell pentru a deschide metoda de adăugare a hyperlink-ului.

Cod:

 Private Sub hyper () ActiveCell.Hyperlinks.Add (End Sub

Pasul 3: Furnizați valorile parametrilor la metoda de adăugare a hyperlink-ului.

Cod:

 Private Sub hyper () ActiveCell.Hyperlinks.Add Anchor: = Fișe ("sub"). Range ("A1"), Adresa: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "este un hyperlink", TextToDisplay: = "Excel Excel"
  • Ancorare: numele foii de lucru
  • Adresa: Hyperlink către locul în care se va naviga controlul, dată adresei site-ului
  • ScreenTip: textul pointerului mouse-ului
  • TextToDisplay: căruia trebuie să i se atribuie hyperlinkul

Pasul 4: Apăsați butonul F5 sau Run sub VBE pentru a rula acest cod și a vedea rezultatul.

Gama de celule A1 este selectată, iar textul este alocat cu un hyperlink, după ce faceți clic pe textul „Excel Training”, acesta va fi redirecționat către site-ul https://www.educba.com/. Când mutați indicatorul mouse-ului lângă text, acesta va afișa textul indicelui mouse-ului.

Exemplul # 2 - Hyperlink pentru conectarea a două foi de lucru

Avem două foi de lucru numite Acasă și sub . Să încercăm să creăm un hyperlink de la sub acasă folosind codul VBA.

Urmați pașii de mai jos pentru a crea un hyperlink de la o foaie de lucru la alta din aceeași carte de lucru folosind codul VBA.

Pasul 1: Creează o funcție, în care vom scrie toate codurile pentru a efectua acțiunea. Scrieți codul pentru a selecta „sub” fișa de lucru folosind metoda de selectare a foii de lucru.

Cod:

 Private Sub hyper1 () Fișe de lucru ("sub"). Selectați End Sub

Deoarece controlul se deplasează în foaie, este necesar să selectați fișa de lucru în care creați hyperlinkul.

Pasul 2: Selectați intervalul de celule din foaia în care doriți să creați hyperlinkul.

Cod:

 Private Sub hyper1 () Fise de lucru ("sub"). Selectați Interval ("A1")

Pasul 3: Acum să adăugăm hyperlinkul folosind proprietatea celulei active.

Cod:

 Private Sub hyper1 () Fise de lucru ("sub"). Selectați intervalul ("A1"). Selectați ActiveCell.Hyperlinks.Add Anchor: = Selecție, Adresă: = "", SubAddress: = "'Acasă'! A1", TextToDisplay: = "Faceți clic pentru a muta foaia de acasă" End Sub

Deoarece fișa de lucru este deja selectată, Anchor este dat ca „Selecție”. Hiperligul este specificat ca „Acasă” foaie și interval A1.

Pasul 4: Rulați codul și sub-foaie va fi afișat hyperlink-ul ca mai jos.

Pasul 5: Odată ce faceți clic pe text, controlul va fi mutat în foaia „ Acasă ”. Și celula A1 va fi selectată.

Exemplul # 3 - Hyperlink cu mai multe foi de lucru

Dacă doriți să creați un hyperlink pe mai multe foi de lucru, este posibil și. În acest exemplu, avem mai multe foi în același registru de lucru. Există diferite tipuri de funcții Excel, astfel încât din foaia de lucru principală „Funcții”. Să încercăm să creăm un hyperlink la diferite foi de lucru numite cu funcții diferite folosind codul VBA:

Mai multe foi de lucru sunt numite mai jos, cu diferite nume de funcții Excel

Deoarece dorim să creăm un hyperlink la fiecare foaie de lucru, este dificil să repetăm ​​codul. Urmați pașii de mai jos pentru a crea un hyperlink folosind codul VBA în Excel:

Pasul 1: Creați o variabilă pentru a trata cu ușurință foaia de lucru.

Cod:

 Sub Privat hyper2 () Dim ws ca Subsemn de finalizare a foii de lucru

Pasul 2: Acum dorim să selectăm pagina principală care acționează ca pagină index și să selectăm intervalul de celule A1.

Cod:

 Private Sub hyper2 () Dim ws Ca foi de lucru ("Funcții"). Selectați intervalul ("A1").

Pasul 3: Pentru a trece prin mai multe foi de lucru și hyperlink, creăm o pentru fiecare buclă. A1 este deja selectat ca celulă activă astfel creând un hyperlink din aceasta.

Cod:

 Private Sub hyper2 () Dim ws As Worksheet Feheets ("Funcții"). Selectează Range ("A1"). Selectează pentru fiecare ws în ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell Next ws End Sub

Pasul 4: Furnizați valorile parametrilor pentru a crea un hyperlink pentru fiecare foaie de lucru. Deoarece hyperlink-ul pornește de la ancora celulă activă = celulă activă, adresa este dată ca „„ .

Cod:

 Private Sub hyper2 () Dim ws As Worksheet Feheets ("Funcții"). Selectează Range ("A1"). Selectează pentru fiecare ws în ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "" Next ws End Sub

Pasul 5: hyperlinkul este însoțit de o foaie de lucru, astfel încât ar trebui să acordăm subdresajului ca nume de foaie. Pentru a obține numele foilor putem folosi variabila w și intervalul de celule ca A1. Numele foii s-a referit cu un singur citat. Numele și intervalul foii vor fi specificate și, de asemenea, închise cu un singur citat.

Cod:

 Private Sub hyper2 () Dim ws As Worksheet Feheets ("Funcții"). Select Range ("A1"). Select pentru fiecare ws în ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Nume & "! A1" & "" Next ws End Sub

Pasul 6: Pentru a obține hyperlinkul cu numele de foaie, dă TextToDisplay ca nume ws.

Cod:

 Private Sub hyper2 () Dim ws As Worksheet Feheets ("Funcții"). Select Range ("A1"). Select pentru fiecare ws în ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Următorul ws End Sub

Acest cod va stoca hyperlink pentru fiecare foaie de lucru în aceeași celulă A1.

Pasul 7: Pentru a schimba această foaie în celulă diferită dintr-o celulă din celula activă.

Cod:

 Private Sub hyper2 () Dim ws As Worksheet Feheets ("Funcții"). Select Range ("A1"). Select pentru fiecare ws în ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0). Selectați Următorul ws End Sub

Pasul 8: Rulați programul și fiecare nume de foaie va fi afișat pe foaia 'Funcții' și în timp ce faceți clic pe acesta, controlul va trece la foaia corespunzătoare.

Lucruri de amintit

  • Proprietatea hiperlink a celulei active utilizată pentru crearea de hiperlinkuri în VBA.
  • Hyperlink-ul vă ajută să vă deplasați ușor în fișa de lucru.

Articole recomandate

Acesta este un ghid pentru hyperlink-urile VBA. Aici învățăm cum să creăm hyperlinkuri în foaia de lucru folosind codul VBA pentru a trece rapid de la o foaie la alta, împreună cu câteva exemple practice și șablonul excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -

  1. Introducere în bucle VBA
  2. Eliminați hyperlink-urile din Excel
  3. VBA Break pentru Loop
  4. Găsiți link-uri externe în Excel

Categorie:

VBA