Bagaimana cara cepat mencantumkan semua hyperlink di Excel?
Saat kita menggunakan worksheet, mungkin kita membuat banyak hyperlink di dalamnya, dan terkadang kita perlu tahu ke mana teks tersebut ditautkan. Jika Anda mengkliknya satu per satu, itu akan membosankan dan menyita waktu. Jika kami dapat mencantumkan semua hyperlink dengan teks dan alamat hyperlink di lembar kerja, akan mudah bagi kami untuk memeriksa semua hyperlink di Excel.
Buat daftar semua hyperlink yang dipilih dengan kode VBA
Ekstrak semua alamat sebenarnya dari hyperlink dengan Kutools for Excel
Buat daftar semua hyperlink yang dipilih dengan kode VBA
1. Pilih rentang yang berisi hyperlink yang ingin Anda daftarkan.
2. Klik Pengembang>Visual Basic, Baru Microsoft Visual Basic untuk aplikasi jendela akan ditampilkan, klik Menyisipkan>Modul, dan masukkan kode berikut ke dalam Modul:
Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub
3. Lalu klik tombol untuk menjalankan kode. Dan semua hyperlink akan ditampilkan di lembar kerja baru bernama Daftar Hyperlink. Lihat tangkapan layar:
Ekstrak semua alamat sebenarnya dari hyperlink dengan Kutools for Excel
Dengan Kutools untuk Excel'S Konversi Hyperlink fitur, Anda dapat dengan cepat mengekstrak alamat asli dari hyperlink.
Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. |
Setelah menginstal Kutools untuk Excel, lakukan hal berikut :( Unduh Gratis Kutools untuk Excel Sekarang )
1. Pilih hyperlink yang ingin Anda ekstrak tujuan sebenarnya.
2. Lalu klik Kutools > Link > Konversi Hyperlink, lihat tangkapan layar:
3. di Konversi Hyperlink kotak dialog, pilih Alamat hyperlink menggantikan konten sel pilihan dari Jenis konversi bagian, lalu tentukan sel tempat Anda ingin meletakkan hasil di bawah file Rentang hasil bagian, lihat tangkapan layar:
4. Lalu klik OK tombol, semua alamat asli telah diekstrak dari hyperlink, lihat tangkapan layar:
Note: Ubah rentang sumber: hasil yang diekstrak akan ditempatkan di kisaran sel asli jika Anda mencentang opsi ini.
Unduh Gratis Kutools untuk Excel Sekarang
Artikel terkait:
Bagaimana cara cepat menghapus semua hyperlink di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!