Mga Hyperlink ng VBA | Paano Lumikha ng Hyperlink sa Excel gamit ang VBA Code?

Ang mga hyperlink ay naka-attach ang URL sa isang halaga na makikita kapag pinapagalaw namin ito ng mouse at kapag na-click namin ito ay binuksan ang URL, sa VBA mayroon kaming isang built-in na pag-aari upang lumikha ng mga hyperlink sa VBA at upang magamit ang pag-aari na ito na ginagamit namin ng Magdagdag ng pamamaraan kasama ang ang pahayag ng hyperlink upang magsingit ng isang hyperlink sa isang cell.

Mga Hyperlink sa Excel VBA

Kahit na mayroon kaming Page Up & Page Down key na shortcut sa excel upang lumipat sa pagitan ng isang sheet papunta sa isa pa. Ngunit nagiging kumplikado ito kapag kailangan naming lumipat sa pagitan ng 10 hanggang sa higit pang mga worksheet. Dito makikita ang larawan ng kagandahan ng "Hyperlinks sa Excel". Ang hyperlink ay isang paunang natukoy na URL na magdadala sa iyo sa kani-kanilang cell o worksheet tulad ng itinalaga.

Alam nating lahat kung paano lumikha ng mga hyperlink sa worksheet upang mabilis na lumipat mula sa isang sheet papunta sa isa pang sheet at maaari ka ring pumunta sa anumang iba pang sheet. Ngunit sa artikulong ngayon, ipapakita namin sa iyo kung paano lumikha ng mga hyperlink sa pamamagitan ng paggamit ng VBA coding.

Formula ng VBA Hyperlinks

Tingnan natin ang pormula ng mga hyperlink sa Excel VBA.

Anchor: Sa aling cell gusto mong lumikha ng isang hyperlink.
Address: Ano ang URL sa hyperlink upang mag-navigate?
[Sub Address]: Ano ang lokasyon ng pahina?
[Tip sa Screen]: Ano ang halagang maipakita kapag inilagay mo ang isang mouse pointer sa hyperlink na pangalan o cell?
[Text to Display]: Ano ang pagsubok na ipapakita sa cell? Halimbawa Pangalan ng Worksheet.

Paano Lumikha ng Mga Hyperlink sa Excel VBA?

Maaari mong i-download ang Template ng VBA Hyperlinks na ito - VBA Hyperlinks Template

Ipagpalagay na nais mong lumikha ng isang VBA hyperlink sa sheet na pinangalanang "Pangunahing Sheet" mula sa iba pang sheet na "Halimbawa 1".

Sa worksheet na "Halimbawa 1" at sa cell A1, lilikha ako ng hyperlink gamit ang Code sa VBA.

Hakbang 1: Piliin muna ang cell A1 ng worksheet Halimbawa 1.

Code:

 Sub Hyperlink_Example1 () Mga Worksheet ("Halimbawa 1"). Piliin ang Saklaw ("A1"). Piliin ang End Sub

Hakbang 2: Ngayon sa pamamagitan ng paggamit ng Active Cell object bukas na mga hyperlink. magdagdag ng paraan.

Code:

 Sub Hyperlink_Example1 () Mga Worksheet ("Halimbawa 1"). Piliin ang Saklaw ("A1"). Piliin ang ActiveCell.Hyperlinks.Add (End Sub

Hakbang 3: Ang una Ang argumento ay "Anchor" ibig sabihin, kung aling mga cell ang maiuugnay namin upang likhain ang VBA hyperlink. Sa kasong ito ang cell A1 at dahil napili na namin ang cell A1 upang banggitin ito bilang "Selection".

Code:

 Sub Hyperlink_Example1 () Mga Worksheet ("Halimbawa 1"). Piliin ang Saklaw ("A1"). Piliin ang ActiveCell.Hyperlinks.Add (Selection, End Sub

Hakbang 4: Hindi kami lumilikha ng anumang address dito, kaya huwag pansinin ang Address sa ngayon.

Code:

 Sub Hyperlink_Example1 () Mga Worksheet ("Halimbawa 1"). Piliin ang Saklaw ("A1"). Piliin ang ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", End Sub

Hakbang 5: Susunod ay Sub Address. Dito kailangan nating banggitin kung aling sheet ang tinutukoy namin at ang unang cell ng sheet na iyon.

Code:

 Sub Hyperlink_Example1 () Mga Worksheet ("Halimbawa 1"). Piliin ang Saklaw ("A1"). Piliin ang ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Main Sheet'! A1", End Sub

Nabanggit ko ang pangalan ng sheet bilang "Main Sheet" at sa sheet cell address na "A1".

Hakbang 6: Huwag pansinin ang Tip sa Screen din. Para maipakita ang Teksto banggitin ang pangalan ng sheet.

Code:

 Sub Hyperlink_Example1 () Mga Worksheet ("Halimbawa 1"). Piliin ang Saklaw ("A1"). Piliin ang ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Main Sheet'! A1", TextToDisplay : = "Pangunahing Sheet" Katapusan Sub

Ok, tapos na patakbuhin ang code na ito gamit ang F5 key o manu-mano pagkatapos, lilikha ito ng isang hyperlink sa cell A1 sa sheet na "Halimbawa 1".

Kapag nag-click ka sa Hyperlink na "Main Sheet" nagre-redirect ito sa pangunahing sheet.

Mga Hyperlink ng Maramihang Mga Sheet na may Mga Loop

Nakita namin ang paglikha ng isang VBA hyperlink para sa isang sheet. Kapag mayroon kaming maraming mga sheet mahirap lumikha ng isang VBA hyperlink para sa bawat sheet na may parehong linya ng code para sa bawat sheet.

Ipagpalagay na mayroon kang 11 mga worksheet tulad ng ipinakita sa larawan sa ibaba.

Nais mong lumikha ng isang hyperlink para sa bawat sheet sa Index sheet gamit ang VBA Code.

Hakbang 1: Tukuyin ang variable bilang isang worksheet.

Code:

 Sub Lumikha_Hyperlink () Dim Ws Bilang Worksheet End Sub

Hakbang 2: Ang unang bagay ay piliin ang worksheet Index at piliin ang cell A1.

Code:

 Sub Create_Hyperlink () Dim Ws As Worksheet Worksheets ("Index"). Piliin ang Saklaw ("A1"). Piliin ang End Sub

Hakbang 3: Ngayon buksan ang Para sa bawat Loop sa VBA.

Code:

 Sub Create_Hyperlink () Dim Ws As Worksheet Worksheets ("Index"). Piliin ang Saklaw ("A1"). Piliin Para sa bawat Ws Sa ActiveWorkbook. Mga Worksheet Susunod na Ws End Sub

Hakbang 4: Dahil napili na namin ang cell A1 isa na itong aktibong cell. Kaya simulan ang hyperlink sa aktibong cell.

Code:

 Sub Create_Hyperlink () Dim Ws As Worksheet Worksheets ("Index"). Piliin ang Saklaw ("A1"). Piliin Para sa bawat Ws Sa ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add (Susunod na Ws End Sub

Hakbang 5: Ang Anchor ay isang hyperlink cell. Kaya't ito ang aktibong cell.

Code:

 Sub Create_Hyperlink () Dim Ws As Worksheet Worksheets ("Index"). Piliin ang Saklaw ("A1"). Piliin Para sa bawat Ws Sa ActiveWorkbook. Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Susunod Ws End Sub

Hakbang 6: Ang address ay walang binanggit na "".

Code:

 Sub Create_Hyperlink () Dim Ws As Worksheet Worksheets ("Index"). Piliin ang Saklaw ("A1"). Piliin Para sa bawat Ws Sa ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", Susunod na Ws End Sub

Hakbang 7: Ang subaddress ay kapag nag-loop kami sa sheet dapat itong pangalan ng sheet. Upang ma-refer ang pangalan ng sheet kailangan namin ng isang solong quote na "’"May sheet name at"! Cell Address ”at isara ang pangalan ng sheet sa isang solong quote na“’”.

Code:

 Sub Create_Hyperlink () Dim Ws As Worksheet Worksheets ("Index"). Piliin ang Saklaw ("A1"). Piliin Para sa bawat Ws Sa ActiveWorkbook. Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & Ws.Name & "! A1" & "", Susunod na Ws End Sub

Hakbang 8: Huwag pansinin ang tip ng Screen at upang maipakita ang Teksto maaari mong ipasok ang pangalan ng worksheet.

Code:

 Sub Create_Hyperlink () Dim Ws As Worksheet Worksheets ("Index"). Piliin ang Saklaw ("A1"). Piliin Para sa bawat Ws Sa ActiveWorkbook. Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & Ws.Name & "! A1" & "", ScreenTip: = "", TextToDisplay: = Ws.Name Next Ws End Sub

Hakbang 9: Upang maiimbak ang hyperlink ng bawat sheet sa isang iba't ibang mga cell sa tuwing nilikha ang hyperlink para sa isang sheet kailangan naming ilipat ang isang cell mula sa aktibong cell.

Code:

 Sub Create_Hyperlink () Dim Ws As Worksheet Worksheets ("Index"). Piliin ang Saklaw ("A1"). Piliin Para sa bawat Ws Sa ActiveWorkbook. Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & Ws.Name & "! A1" & "", ScreenTip: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0). Piliin ang Susunod na Ws End Sub

Lilikha ito ng isang hyperlink ng lahat ng mga sheet sa sheet ng Index. Ang code na ito ay pabago-bago, tuwing mayroong anumang pagdaragdag o pagtanggal ng mga sheet kailangan lang naming patakbuhin ang code na ito upang magkaroon ng na-update na hyperlink.

photosdematures.com