Hiperlinkurile sunt URL atașate la o valoare care se vede când trecem mouse-ul peste ea și când facem clic pe ea se deschide adresa URL, în VBA avem o proprietate încorporată pentru a crea hyperlinkuri în VBA și pentru a utiliza această proprietate folosim metoda Add declarația hyperlink pentru a insera un hyperlink într-o celulă.
Hiperlinkuri în Excel VBA
Chiar dacă avem tasta rapidă Page Up & Page Down în Excel pentru a ne deplasa de la o foaie la alta, dar devine complexă atunci când trebuie să ne deplasăm între 10 și mai multe foi de lucru. Aici intervine frumusețea „Hiperlinkurilor în Excel”. Hiperlinkul este o adresă URL predeterminată care vă duce la celula respectivă sau foaia de lucru așa cum a fost atribuită.
Știm cu toții cum să creăm hyperlinkuri în foaia de lucru pentru a trece rapid de la o foaie la alta și puteți merge și la orice altă foaie. Dar în articolul de astăzi, vă vom arăta cum să creați hyperlinkuri utilizând codarea VBA.
Formula hyperlinkurilor VBA
Să ne uităm la formula hyperlinkurilor din Excel VBA.
- Ancoră: în ce celulă doriți să creați un hyperlink.
- Adresă: Care este adresa URL către hyperlink pentru a naviga?
- (Adresă secundară): Care este locația paginii?
- (Sfat ecran): Care este valoarea care trebuie afișată atunci când plasați un indicator al mouse-ului pe numele sau celula hyperlinkului?
- (Text pentru afișare): Care este testul care trebuie afișat în celulă? De exemplu, Nume foaie de lucru.
Cum se creează hyperlinkuri în Excel VBA?
Să presupunem că doriți să creați un hyperlink VBA către foaia denumită „Foaia principală” din cealaltă foaie „Exemplul 1”.
În foaia de lucru „Exemplul 1” și în celula A1, voi crea hyperlinkul folosind Code în VBA.
Pasul 1: Mai întâi, selectați celula A1 a foii de lucru Exemplul 1.
Cod:
Sub Hyperlink_Example1 () Foi de lucru ("Exemplul 1"). Selectați Range ("A1"). Selectați End Sub
Pasul 2: Acum, utilizând obiectul Active Cell deschideți hyperlinkuri. Adăugați o metodă.
Cod:
Sub Hyperlink_Example1 () Foi de lucru („Exemplul 1”). Selectați Range („A1”). Selectați ActiveCell.Hyperlinks.Add (End Sub
Pasul 3: primul argument este „Ancoră”, adică în ce celulă am fi legat pentru a crea hyperlinkul VBA. În acest caz, celula A1 și din moment ce am selectat deja celula A1 pentru a o menționa ca „Selecție”.
Cod:
Sub Hyperlink_Example1 () Foi de lucru („Exemplul 1”). Selectați Range („A1”). Selectați ActiveCell.Hyperlinks.Add (Selection, End Sub
Pasul 4: Nu creăm nicio adresă aici, deci ignorați Adresa de acum.
Cod:
Sub Hyperlink_Example1 () Foi de lucru ("Exemplul 1"). Selectați Range ("A1"). Selectați ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", End Sub
Pasul 5: Următorul este Adresa secundară. Aici trebuie să menționăm la ce foaie ne referim și la prima celulă a acelei foi.
Cod:
Sub Hyperlink_Example1 () Foi de lucru ("Exemplul 1"). Selectați Range ("A1"). Selectați ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Main Sheet'! A1", End Sub
Am menționat numele foii ca „Foaie principală”, iar în acea adresă a celulei este „A1”.
Pasul 6: Ignorați și Sfatul ecranului. Pentru a afișa Text, menționați numele foii.
Cod:
Sub Hyperlink_Example1 () Foi de lucru ("Exemplul 1"). Selectați Range ("A1"). Selectați ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Main Sheet'! A1", TextToDisplay : = "Foaia principală" End Sub
Ok, gata rulați acest cod folosind tasta F5 sau manual. Apoi, va crea un hyperlink în celula A1 din foaia „Exemplul 1”.
Când faceți clic pe hyperlink „Foaia principală”, aceasta redirecționează către foaia principală.
Hiperlinkuri de foi multiple cu bucle
Am văzut crearea unui hyperlink VBA pentru o singură foaie. Când avem multe coli, nu este ușor să creăm un hyperlink VBA pentru fiecare coală cu aceeași linie de cod pentru fiecare coală.
Să presupunem că aveți 11 foi de lucru, așa cum se arată în imaginea de mai jos.
Doriți să creați un hyperlink pentru fiecare foaie din foaia Index folosind codul VBA.
Pasul 1: definiți variabila ca o foaie de lucru.
Cod:
Sub Create_Hyperlink () Dim Ws As Worksheet End Sub
Pasul 2: Primul lucru este să selectați Indexul foii de lucru și să selectați celula A1.
Cod:
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
Pasul 9: Pentru a stoca hyperlinkul fiecărei coli într-o celulă diferită, de fiecare dată când este creat un hyperlink pentru o coală, trebuie să ne deplasăm în jos cu o celulă din celula activă.
Cod:
Sub Create_Hyperlink () Dim Ws Ca foi de lucru ("Index"). Selectați Range ("A1"). Selectați pentru fiecare W din ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & Ws.Name & "! A1" & "", ScreenTip: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0). Selectați Next Ws End Sub
Aceasta va crea un hyperlink cu toate foile din foaia Index. Acest cod este dinamic ori de câte ori există orice adăugare sau ștergere de foi. Trebuie să rulăm acest cod pentru a avea un hyperlink actualizat.
