Hyperlink VBA - Bagaimana cara membuat Hyperlink di Excel menggunakan Kode VBA?

Hyperlink adalah URL yang dilampirkan ke nilai yang terlihat ketika kita mengarahkan mouse ke atasnya dan ketika kita mengkliknya, URL dibuka, di VBA kita memiliki properti bawaan untuk membuat hyperlink di VBA dan untuk menggunakan properti ini kita menggunakan metode Add bersama dengan pernyataan hyperlink untuk memasukkan hyperlink ke dalam sel.

Hyperlink di Excel VBA

Meskipun kita memiliki tombol pintas Page Up & Page Down di excel untuk berpindah dari satu lembar ke lembar lainnya, tetapi ini menjadi rumit ketika kita harus berpindah antara 10 lembar kerja ke lebih banyak lembar kerja. Di sinilah keindahan "Hyperlinks in Excel" muncul. Hyperlink adalah URL yang ditentukan sebelumnya yang membawa Anda ke sel atau lembar kerja masing-masing seperti yang ditetapkan.

Kita semua tahu cara membuat hyperlink di lembar kerja untuk berpindah dari satu lembar ke lembar lain dengan cepat, dan Anda juga bisa pergi ke lembar lain. Namun dalam artikel hari ini, kami akan menunjukkan kepada Anda cara membuat hyperlink dengan menggunakan pengkodean VBA.

Rumus VBA Hyperlinks

Mari kita lihat rumus hyperlink di Excel VBA.

  • Anchor: Di sel mana Anda ingin membuat hyperlink.
  • Alamat: Apa URL ke hyperlink untuk dinavigasi?
  • (Alamat Sub): Di mana lokasi halaman?
  • (Tip Layar): Apa nilai yang akan diperlihatkan saat Anda menempatkan penunjuk mouse pada nama hyperlink atau sel?
  • (Teks ke Tampilan): Apa tes yang akan ditampilkan di sel? Misalnya, Nama Lembar Kerja.

Bagaimana cara membuat hyperlink di Excel VBA?

Asumsikan Anda ingin membuat hyperlink VBA ke sheet bernama "Main Sheet" dari sheet "Contoh 1" lainnya.

Di lembar kerja "Contoh 1" dan di sel A1, saya akan membuat hyperlink menggunakan Kode di VBA.

Langkah 1: Pertama, pilih sel A1 lembar kerja Contoh 1.

Kode:

Sub Hyperlink_Example1 () Worksheets ("Contoh 1"). Pilih Range ("A1"). Pilih End Sub

Langkah 2: Sekarang, dengan menggunakan objek sel aktif, buka hyperlink. Tambahkan metode.

Kode:

Sub Hyperlink_Example1 () Worksheets ("Contoh 1"). Pilih Range ("A1"). Pilih ActiveCell.Hyperlinks.Add (End Sub

Langkah 3: Argumen pertama adalah "Anchor", yaitu di sel mana kita akan menautkan untuk membuat hyperlink VBA. Dalam kasus ini, sel A1 dan karena kami telah memilih sel A1 untuk menyebutnya sebagai "Pilihan".

Kode:

Sub Hyperlink_Example1 () Worksheets ("Contoh 1"). Pilih Rentang ("A1"). Pilih ActiveCell.Hyperlinks.Add (Pilihan, End Sub

Langkah 4: Kami tidak membuat alamat apa pun di sini, jadi abaikan Alamat sekarang.

Kode:

Sub Hyperlink_Example1 () Worksheets ("Contoh 1"). Pilih Range ("A1"). Pilih ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", End Sub

Langkah 5: Berikutnya adalah Alamat Sub. Di sini kita perlu menyebutkan sheet mana yang kita rujuk dan sel pertama dari sheet itu.

Kode:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Pilih Range ("A1"). Pilih ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Main Sheet'! A1", End Sub

Saya telah menyebutkan nama sheet sebagai "Lembar Utama," dan dalam alamat sel sheet itu adalah "A1".

Langkah 6: Abaikan Tip Layar juga. Untuk Teks yang akan ditampilkan, sebutkan nama lembar.

Kode:

Sub Hyperlink_Example1 () Worksheets ("Example 1"). Pilih Range ("A1"). Pilih ActiveCell.Hyperlinks.Add Anchor: = Selection, Address: = "", SubAddress: = "'Main Sheet'! A1", TextToDisplay : = "Lembar Utama" End Sub

Ok, selesai jalankan kode ini menggunakan tombol F5 atau secara manual. Kemudian, ini akan membuat hyperlink di sel A1 di sheet "Contoh 1".

Ketika Anda mengklik Hyperlink "Lembar Utama," itu dialihkan ke lembar utama.

Hyperlink dari Beberapa Lembar dengan Loop

Kami telah melihat membuat hyperlink VBA untuk satu lembar. Saat kami memiliki banyak sheet, tidak mudah membuat hyperlink VBA untuk setiap sheet dengan baris kode yang sama untuk setiap sheet.

Asumsikan Anda memiliki 11 lembar kerja, seperti yang ditunjukkan pada gambar di bawah ini.

Anda ingin membuat hyperlink untuk setiap lembar di lembar Indeks menggunakan Kode VBA.

Langkah 1: Tentukan variabel sebagai lembar kerja.

Kode:

Sub Create_Hyperlink () Dim Ws As Worksheet End Sub

Langkah 2: Hal pertama adalah memilih Indeks lembar kerja dan memilih sel A1.

Kode:

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

Langkah 9: Untuk menyimpan hyperlink dari setiap lembar di sel yang berbeda, setiap kali hyperlink dibuat untuk satu lembar, kita perlu turun satu sel dari sel aktif.

Kode:

Sub Create_Hyperlink () Redupkan Ws As Worksheet Worksheets ("Index"). Pilih Range ("A1"). Pilih Untuk Setiap Ws Di ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & Ws.Name & "! A1" & "", TipLayar: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0). Pilih Berikutnya Ws End Sub

Ini akan membuat hyperlink dari semua lembar di lembar Indeks. Kode ini dinamis setiap kali ada penambahan atau penghapusan sheet. Kami perlu menjalankan kode ini untuk memiliki hyperlink yang diperbarui.

Artikel yang menarik...