VBA-hyperlinkit Kuinka luoda hyperlinkki Excelissä VBA-koodilla?

Sisällysluettelo

Hyperlinkit ovat URL-osoitteita, jotka liitetään arvoon, joka näkyy, kun viet hiiren sen päälle ja kun napsautamme sitä, URL-osoite avautuu, VBA: ssa meillä on sisäänrakennettu ominaisuus luoda hyperlinkkejä VBA: hon ja käyttää tätä ominaisuutta käytämme Add-menetelmää hyperlinkkilauseke hyperlinkin lisäämiseksi soluun.

Hyperlinkit Excel VBA: ssa

Vaikka meillä on Excelissä Sivu ylös ja Sivu alas-pikanäppäin siirtyäksesi arkilta toiselle, mutta se muuttuu monimutkaiseksi, kun joudumme siirtymään 10 tai useamman laskentataulukon välillä. Täällä kuvassa näkyy "Hyperlinkkien Excelissä" kauneus. Hyperlinkki on ennalta määrätty URL, joka vie sinut vastaavaan soluun tai laskentataulukkoon määritetyllä tavalla.

Tiedämme kaikki, kuinka luoda hyperlinkkejä laskentataulukkoon siirtyäksesi nopeasti yhdestä taulukosta toiseen, ja voit myös siirtyä mihin tahansa muuhun taulukoon. Mutta tämän päivän artikkelissa näytämme sinulle, kuinka luoda hyperlinkkejä käyttämällä VBA-koodausta.

VBA-hyperlinkkien kaava

Katsotaanpa Excel VBA: n hyperlinkkien kaavaa.

  • Ankkuri: Mihin soluun haluat luoda hyperlinkin.
  • Osoite: Mikä on hyperlinkin URL-osoite navigoitavaksi?
  • (Alaosoite): Mikä on sivun sijainti?
  • (Näytön vinkki): Mikä on arvo, joka näytetään, kun asetat hiiren osoittimen hyperlinkin nimeen tai soluun?
  • (Teksti näytettäväksi): Mikä testi näytetään solussa? Esimerkiksi laskentataulukon nimi.

Hyperlinkkien luominen Excel VBA: ssa?

Oletetaan, että haluat luoda VBA-hyperlinkin taululle nimeltä "Pääarkki" toisesta taulukosta "Esimerkki 1".

Luo taulukossa "Esimerkki 1" ja solussa A1 hyperlinkin käyttämällä koodia VBA: ssa.

Vaihe 1: Valitse ensin taulukon esimerkin 1 solu A1.

Koodi:

Sub Hyperlink_Example1 () -taulukot ("Esimerkki 1"). Valitse alue ("A1"). Valitse End Sub

Vaihe 2: Nyt käyttämällä Active Cell -objektin avoimia hyperlinkkejä. Lisää menetelmä.

Koodi:

Sub Hyperlink_Example1 () -taulukot ("Esimerkki 1"). Valitse alue ("A1"). Valitse ActiveCell.Hyperlinkit.Add (End Sub

Vaihe 3: Ensimmäinen argumentti on “Ankkuri”, ts. Mihin soluun linkittäisimme luoda VBA-hyperlinkin. Tässä tapauksessa solu A1 ja koska olemme jo valinneet solun A1 mainitsemaan sen ”Valinnaksi”.

Koodi:

Sub Hyperlink_Example1 () -taulukot ("Esimerkki 1"). Valitse alue ("A1"). Valitse ActiveCell.Hyperlinkit.Add (valinta, End Sub

Vaihe 4: Emme luo mitään osoitetta tähän, joten ohita osoite jo nyt.

Koodi:

Sub Hyperlink_Example1 () -taulukot ("Esimerkki 1"). Valitse alue ("A1"). Valitse ActiveCell.Hyperlinkit.Add Anchor: = Valinta, Osoite: = "", End Sub

Vaihe 5: Seuraava on alaosoite. Tässä meidän on mainittava, mihin taulukkoon tarkoitamme, ja kyseisen arkin ensimmäisen solun.

Koodi:

Hyperlinkki_esimerkki1 () -taulukot ("Esimerkki 1"). Valitse alue ("A1"). Valitse ActiveCell.Hyperlinkit.Add Anchor: = Valinta, Osoite: = "", Aliosoite: = "'Pääsivu'! A1", Loppu Sub

Olen maininnut arkin nimen nimellä "Pääarkki" ja siinä taulukon solun osoite on "A1".

Vaihe 6: Ohita myös näytön kärki. Mainitse taulukon nimi, jotta teksti näytetään.

Koodi:

Hyperlinkki_esimerkki1 () -taulukot ("Esimerkki 1"). Valitse alue ("A1"). Valitse ActiveCell.Hyperlinkit.Add Anchor: = Valinta, Osoite: = "", Aliosoite: = "'Pääsivu'! A1", TextToDisplay : = "Main Sheet" End Sub

Ok, done run this code using the F5 key or manually. Then, it will create a hyperlink in the cell A1 in the sheet “Example 1”.

When you click on Hyperlink “Main Sheet,” it redirects to the main sheet.

Hyperlinks of Multiple Sheets with Loops

We have seen creating a VBA hyperlink for one sheet. When we have many sheets, it isn’t easy to create a VBA hyperlink for each sheet with the same line of code for each sheet.

Assume you have 11 worksheets, as shown in the below image.

You want to create a hyperlink for each sheet in the Index sheet using VBA Code.

Step 1: Define the variable as a worksheet.

Code:

Sub Create_Hyperlink() Dim Ws As Worksheet End Sub

Step 2: The first thing is to select the worksheet Index and select the cell A1.

Code:

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

Vaihe 9: Jokaisen arkin hyperlinkin tallentamiseksi eri soluun meidän on aina siirryttävä alaspäin yhdestä solusta aktiivisesta solusta aina, kun yhdelle arkille luodaan hyperlinkki.

Koodi:

Sub Create_Hyperlink () himmentää Ws laskentataulukoiden laskentataulukkoina ("Hakemisto"). Valitse alue ("A1"). Valitse jokaiselle W: lle ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & Ws.Name & "! A1" & "", Näytön vinkki: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0) .Valitse Next Ws End Sub

Tämä luo hyperlinkin kaikista hakemistosivun arkeista. Tämä koodi on dynaaminen aina, kun arkkeja lisätään tai poistetaan. Meidän on suoritettava tämä koodi, jotta meillä on päivitetty hyperlinkki.

Mielenkiintoisia artikkeleita...