Pautan Pautan VBA - Bagaimana Membuat Hyperlink di Excel menggunakan VBA Code?

Hyperlink adalah URL yang dilampirkan pada nilai yang dilihat ketika kita mengarahkan mouse ke atasnya dan ketika kita mengklik padanya, URL dibuka, di VBA kita mempunyai harta bawaan untuk membuat hyperlink di VBA dan untuk menggunakan properti ini kita menggunakan kaedah Tambah bersama dengan penyataan hyperlink untuk memasukkan hyperlink dalam sel.

Pautan pautan dalam Excel VBA

Walaupun kita mempunyai kekunci pintas Page Up & Page Down dalam excel untuk berpindah antara satu helaian ke lembaran yang lain, tetapi menjadi rumit apabila kita harus berpindah antara 10 ke lebih lembaran kerja. Di sinilah keindahan "Hyperlinks dalam Excel" muncul dalam gambar. Pautan hiper adalah URL yang telah ditentukan yang membawa anda ke sel atau lembaran kerja masing-masing seperti yang ditetapkan.

Kita semua tahu bagaimana membuat hyperlink dalam lembaran kerja untuk berpindah dari satu helaian ke helaian yang lain dengan cepat, dan anda juga boleh pergi ke helaian lain. Tetapi dalam artikel hari ini, kami akan menunjukkan kepada anda cara membuat hyperlink dengan menggunakan pengekodan VBA.

Rumus Hyperlink VBA

Mari lihat formula pautan dalam Excel VBA.

  • Jangkar: Di sel mana anda ingin membuat hiperpautan.
  • Alamat: Apakah URL ke pautan hiper untuk dinavigasi?
  • (Sub Alamat): Apa lokasi halaman?
  • (Petua Skrin): Apakah nilai yang harus ditunjukkan ketika anda meletakkan penunjuk tetikus pada nama atau sel hyperlink?
  • (Teks untuk Dipaparkan): Apakah ujian yang akan ditampilkan di dalam sel? Contohnya, Nama Lembaran Kerja.

Bagaimana Membuat Hyperlink di Excel VBA?

Andaikan anda ingin membuat hyperlink VBA ke helaian bernama "Lembaran Utama" dari helaian lain "Contoh 1".

Di lembaran kerja "Contoh 1" dan di sel A1, saya akan membuat pautan hiper menggunakan Kod di VBA.

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

Kod:

Sub Hyperlink_Example1 () Lembaran Kerja ("Contoh 1"). Pilih Julat ("A1"). Pilih Akhir Sub

Langkah 2: Sekarang, dengan menggunakan hiperpautan terbuka objek Active Cell. Kaedah tambah.

Kod:

Sub Hyperlink_Example1 () Lembaran Kerja ("Contoh 1"). Pilih Julat ("A1"). Pilih ActiveCell.Hyperlinks.Tambah (Akhir Sub

Langkah 3: Argumen pertama adalah "Anchor", iaitu, di mana sel yang akan kita pautkan untuk membuat hyperlink VBA. Dalam kes ini, sel A1 dan kerana kita telah memilih sel A1 untuk menyebutnya sebagai "Seleksi."

Kod:

Sub Hyperlink_Example1 () Lembaran Kerja ("Contoh 1"). Pilih Julat ("A1"). Pilih ActiveCell.Hyperlinks.Tambah (Pemilihan, Akhir Sub

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

Kod:

Sub Hyperlink_Example1 () Lembaran Kerja ("Contoh 1"). Pilih Julat ("A1"). Pilih ActiveCell.Hyperlinks.Tambah Jangkar: = Pemilihan, Alamat: = "", Sub Akhir

Langkah 5: Seterusnya ialah Sub Alamat. Di sini kita perlu menyebut helaian mana yang kita rujuk dan sel pertama helaian itu.

Kod:

Sub Hyperlink_Example1 () Lembaran Kerja ("Contoh 1"). Pilih Julat ("A1"). Pilih ActiveCell.Hyperlinks.Tambah Jangkar: = Pemilihan, Alamat: = "", SubAddress: = "'Lembaran Utama'! A1", Akhir Sub

Saya telah menyebut nama helaian sebagai "Lembaran Utama", dan di alamat sel lembaran itu adalah "A1".

Langkah 6: Abaikan Petua Skrin juga. Untuk Teks dipaparkan, sebutkan nama helaian.

Kod:

Sub Hyperlink_Example1 () Lembaran Kerja ("Contoh 1"). Pilih Julat ("A1"). Pilih ActiveCell.Hyperlinks.Tambah Jangkar: = Pemilihan, Alamat: = "", SubAddress: = "'Lembaran Utama'! A1", TextToDisplay : = "Helaian Utama" Sub Akhir

Ok, selesai jalankan kod ini menggunakan kekunci F5 atau secara manual. Kemudian, ia akan membuat hyperlink di sel A1 dalam helaian "Contoh 1".

Apabila anda mengklik Hyperlink "Main Sheet", ia mengalihkan ke helaian utama.

Hyperlink of Multiple Sheets with Loops

Kami telah melihat membuat hyperlink VBA untuk satu helaian. Apabila kita mempunyai banyak helaian, tidak mudah untuk membuat hyperlink VBA untuk setiap helaian dengan baris kod yang sama untuk setiap helaian.

Andaikan anda mempunyai 11 lembar kerja, seperti yang ditunjukkan dalam gambar di bawah.

Anda ingin membuat hyperlink untuk setiap helaian dalam helaian Indeks menggunakan Kod VBA.

Langkah 1: Tentukan pemboleh ubah sebagai lembaran kerja.

Kod:

Sub Create_Hyperlink () Dim Ws Sebagai Lembaran Kerja Akhir Sub

Langkah 2: Perkara pertama adalah memilih Indeks lembaran kerja dan memilih sel A1.

Kod:

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 setiap helaian dalam sel yang berbeza, setiap kali hyperlink dibuat untuk satu helaian, kita perlu mengalihkan satu sel dari sel aktif.

Kod:

Sub Buat_Hyperlink () Dim Ws Sebagai Lembaran Kerja Lembaran Kerja ("Indeks"). Pilih Julat ("A1"). Pilih Untuk Setiap Ws di ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Tambah Jangkar: = ActiveCell, Alamat: = "", SubAddress: = "" & Ws.Name & "! A1" & "", Tip Skrin: = "", TextToDisplay: = Ws.Name ActiveCell.Offset (1, 0). Pilih Sub Akhir Ws Selanjutnya

Ini akan membuat hiperpautan semua helaian dalam helaian Indeks. Kod ini bersifat dinamik setiap kali ada penambahan atau penghapusan helaian. Kita perlu menjalankan kod ini untuk mempunyai hyperlink yang dikemas kini.

Artikel menarik...