VBA hipersaitai - Kaip sukurti hipersaitą „Excel“ naudojant VBA kodą?

Hipersaitai yra URL, pridedami prie vertės, kuri matoma užvedus pelės žymeklį ant jos ir spustelėjus ją atidaromas URL, VBA mes turime integruotą ypatybę sukurti hipersaitus VBA ir naudoti šią ypatybę naudojame metodą Pridėti kartu su hipersaito sakinį, kad į ląstelę įterptumėte hipersaitą.

„Excel VBA“ nuorodos

Nepaisant to, kad turime „Page Up“ ir „Page Down“ sparčiuosius klavišus, kad galėtume pereiti iš vieno lapo į kitą, tačiau jis tampa sudėtingas, kai turime pereiti nuo 10 iki daugiau darbalapių. Čia atsiranda „hipersaitų„ Excel ““ grožis. Hipersaitas yra iš anksto nustatytas URL, nukreipiantis jus į atitinkamą langelį ar darbalapį, kaip priskirtas.

Mes visi žinome, kaip sukurti hipersaitus darbalapyje, kad būtų galima greitai pereiti iš vieno lapo į kitą, taip pat galite pereiti prie bet kurio kito lapo. Tačiau šiandieniniame straipsnyje mes parodysime, kaip sukurti hipersaitus naudojant VBA kodavimą.

VBA nuorodų formulė

Pažvelkime į „Excel VBA“ hipersaitų formulę.

  • Inkaras: kurioje langelyje norėtumėte sukurti hipersaitą.
  • Adresas: koks yra hipersaito URL, kurį reikia naršyti?
  • (Sub Address): Kokia yra puslapio vieta?
  • (Ekrano patarimas): Kokia vertė turi būti rodoma, kai ant hipersaito pavadinimo ar langelio dedate pelės žymeklį?
  • (Tekstas rodyti): koks testas turi būti rodomas langelyje? Pavyzdžiui, darbalapio pavadinimas.

Kaip sukurti hipersaitus „Excel VBA“?

Tarkime, kad norite sukurti VBA hipersaitą į lapą pavadinimu „Pagrindinis lapas“ iš kito lapo „1 pavyzdys“.

Darbalapyje „1 pavyzdys“ ir langelyje A1 sukursiu hipersaitą naudodamas kodą VBA.

1 žingsnis: Pirmiausia pasirinkite 1 darbalapio langelį A1.

Kodas:

„Hyperlink_Example1“ () darbalapiai („1 pavyzdys“). Pasirinkite diapazoną („A1“). Pasirinkite „End Sub“

2 žingsnis: Dabar naudodami „Active Cell“ objektą atidarykite hipersaitus. Pridėti metodą.

Kodas:

„Hyperlink_Example1“ () darbalapiai („1 pavyzdys“). Pasirinkite diapazoną („A1“). Pasirinkite „ActiveCell.Hyperlinks.Add“ (End Sub

3 žingsnis: Pirmasis argumentas yra „Inkaras“, ty kurioje ląstelėje mes susiesime, kad sukurtume VBA hipersaitą. Šiuo atveju langelis A1 ir kadangi mes jau pasirinkome langelį A1, kad paminėtume jį kaip „Pasirinkimą“.

Kodas:

„Hyperlink_Example1“ () darbalapiai („1 pavyzdys“). Pasirinkite diapazoną („A1“). Pasirinkite „ActiveCell.Hyperlinks.Add“ (pasirinkimas, End Sub

4 žingsnis: Mes čia nekuriame jokio adreso, todėl dabar ignoruokite adresą.

Kodas:

„Hyperlink_Example1“ () darbalapiai („1 pavyzdys“). Pasirinkite diapazoną („A1“). Pasirinkite „ActiveCell.Hyperlinks.Add Anchor“: = pasirinkimas, adresas: = "", pabaigos antrinis

5 žingsnis: Kitas yra antrinis adresas. Čia reikia paminėti, į kurį lapą mes kalbame, ir pirmąją to lapo langelį.

Kodas:

„Hyperlink_Pavyzdys1“ () darbalapiai („1 pavyzdys“). Pasirinkite diapazoną („A1“). Pasirinkite „ActiveCell.Hyperlinks.Add Anchor“: = pasirinkimas, adresas: = "", antrinis adresas: = "'Pagrindinis lapas'! A1", pabaiga Sub

Aš paminėjau lapo pavadinimą kaip „Pagrindinis lapas“, o to langelio langelio adresas yra „A1“.

6 veiksmas: taip pat nepaisykite ekrano patarimo. Kad būtų rodomas tekstas, paminėkite lapo pavadinimą.

Kodas:

„Hyperlink_Example1“ () darbalapiai („1 pavyzdys“). Pasirinkite diapazoną („A1“). Pasirinkite „ActiveCell.Hyperlinks.Add Anchor“: = pasirinkimas, adresas: = "", „SubAddress: =" 'Main Sheet'! A1 ", TextToDisplay : = "Pagrindinis lapas" Pabaiga

Gerai, atlikite paleiskite šį kodą naudodami F5 klavišą arba rankiniu būdu. Tada lapo „1 pavyzdys“ langelyje A1 sukurs hipersaitą.

Kai spustelėsite hipersaitą „Pagrindinis lapas“, jis bus nukreiptas į pagrindinį lapą.

Kelių lapų su kilpomis hipersaitai

Mes matėme kuriant VBA hipersaitą vienam lapui. Kai turime daug lapų, nėra lengva sukurti VBA hipersaitą kiekvienam lapui su ta pačia kodo eilute kiekvienam lapui.

Tarkime, kad turite 11 darbalapių, kaip parodyta žemiau esančiame paveikslėlyje.

Kiekvienam indekso lapo lapui norite sukurti hipersaitą naudodami VBA kodą.

1 žingsnis: Apibrėžkite kintamąjį kaip darbalapį.

Kodas:

Sub Create_Hyperlink () Dim Ws kaip darbalapio pabaigos sub

2 žingsnis: Pirmas dalykas yra pasirinkti darbalapio rodyklę ir pažymėti langelį A1.

Kodas:

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 žingsnis: norėdami išsaugoti kiekvieno lapo hipersaitą skirtingoje ląstelėje, kiekvieną kartą, kai sukuriama vieno lapo hipersaitas, turime judėti viena ląstele žemyn iš aktyvios ląstelės.

Kodas:

Sub Create_Hyperlink () Dim Ws kaip darbalapio darbalapiai ("Index"). Pasirinkite diapazoną ("A1"). Pasirinkite kiekvienam WS iš ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & Ws.Name & "! A1" & "", ekrano patarimas: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0). Pasirinkite "Next Ws End Sub"

Tai sukurs visų indekso lapo lapų hipersaitą. Šis kodas yra dinamiškas, kai tik yra papildomi ar ištrinami lapai. Turime paleisti šį kodą, kad turėtume atnaujintą hipersaitą.

Įdomios straipsniai...