Bagaimana cara mengubah beberapa jalur hyperlink sekaligus di Excel?

Untuk beberapa tujuan, Anda dapat membuat beberapa hyperlink untuk data Anda di lembar kerja, dan semua hyperlink ditautkan ke jalur file atau alamat yang sama, tetapi sekarang, Anda perlu mengganti jalur hyperlink ini dengan alamat lain pada satu waktu. Untuk mengubah jalur hyperlink secara individual dapat membuang banyak waktu, adakah cara cepat untuk mengatasi masalah ini?

Ubah beberapa jalur hyperlink sekaligus di lembar kerja dengan kode VBA

Ubah beberapa jalur hyperlink sekaligus di lembar kerja / buku kerja / beberapa lembar / pilihan dengan fitur luar biasa

Ubah beberapa jalur hyperlink sekaligus di lembar kerja dengan kode VBA

Misalkan Anda memiliki daftar data dengan hyperlink yang sama seperti tangkapan layar berikut yang ditampilkan, dan dengan kode VBA, Anda dapat dengan cepat mengganti jalur atau alamat file lama di lembar kerja dengan yang baru.

1. Tahan ALT + F11 kunci, dan itu membuka Jendela Microsoft Visual Basic untuk Aplikasi.

2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Jendela modul.

Kode VBA: ubah beberapa jalur hyperlink sekaligus

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt untuk membiarkan Anda memasukkan alamat hyperlink lama Anda ke Teks lama kotak. Lihat tangkapan layar:

4. Klik OK, dan kotak prompt lain muncul untuk mengingatkan Anda memasukkan alamat hyperlink baru yang ingin Anda gunakan.

5. Dan kemudian klik OK, semua alamat hyperlink lama yang sama telah diganti dengan yang baru sekaligus. Lihat tangkapan layar:

Ubah beberapa jalur hyperlink sekaligus di lembar kerja / buku kerja / beberapa lembar / pilihan dengan fitur luar biasa

Jika Anda ingin mengganti jalur hyperlink dari pilihan, beberapa lembar, buku kerja saat ini, atau beberapa buku kerja, bagaimana Anda bisa melakukannya? Dengan Cari dan Ganti fitur dari Kutools untuk Excel, Anda dapat dengan cepat menangani tugas ini.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Klik Kutools > Navigasi, lihat tangkapan layar:

2. Di tempat terbuka Navigasi pane, klik Temukan dan ganti tab, di Cari dan Ganti pane, klik menggantikan tab, lalu lakukan operasi berikut:

• Masukkan teks hyperlink lama yang ingin Anda temukan ke dalam file Temukan apa kotak teks, lalu ketikkan teks hyperlink baru yang ingin Anda ganti ke dalam Ganti dengan kolom tulisan;
• Tentukan cakupan tempat Anda ingin mencari dan mengganti jalur hyperlink dari Dalam daftar drop-down;
• Kemudian, pilih Hyperlinks dari Lihat di drop down;
• Terakhir, klik Temukan semua tombol, semua sel terkait yang berisi teks hyperlink tertentu telah dicantumkan ke dalam kotak daftar bawah.

3. Lalu klik Ganti Semua tombol, jalur hyperlink lama telah diubah ke yang baru sekaligus, lihat tangkapan layar:

Klik untuk Mengunduh Kutools for Excel untuk Uji Coba Gratis!

Artikel yang lebih relatif: