Membuat dan Menghapus Hyperlink

Hyperlink sangat diperlukan untuk memudakan navigasi data dalam sebuah workbook. Biasanya kita membuat hyperlink yang menghubungkan sheet rekapitulasi dengan sheet detail. Kita juga biasa memanfaatkan hyperlink untuk menghubungkan sheet Daftar isi dengan Sheet - Sheet lainnya yang ada dalam workbook. Ada kalanya, karena alasan tertentu hyperlink tidak diperlukan dan harus di hapus.

Bagaimana biasanya kamu membuat hyperlink di excel? dan bagaimana cara menghapus hyperlink? Adakah cara yang tidak biasa untuk membuat dan menghapus hyperlink? Contoh-contoh code VBA berikut mudah-mudahan dapat membantu kamu dalam membuat dan menghapus hyperlink di Excel dengan lebih efisien.

1. Membuat Hyperlink Bolak-Balik Antar Sel Berisi Text Yang Sama Dalam Satu Workbook (file excel)

Prosedur ini sangat berguna bila kamu ingin membuat tautan secara cepat antar range data. Misalnya antara data rekapitulasi dengan data detail. Contoh macro ini bekerja dengan mengkoleksi sel berisi text yang ada di range pertama, kemudian mencari sel yang berisi text yang sama di range kedua. Apabila ketemu maka langsung dibuat tautannya dari sel di range pertam menuju sel di range kedua, dan proses sebaliknya, sehingga terjadilan hyperlink bolak - balik.

Untuk lebih mudah memahami prosedur ini, lebih baik langsung dicoba copas code di bawah ini ke workbook macro milik kamu dan langsung eksekusi (Run).

Sub BuatHyperlinkAntarTextYangSama() Dim Wb As Workbook Dim range1 As Range, range2 As Range Dim sel1 As Range, sel2 As Range Dim alamat1 As String, alamat2 As String Set Wb = ActiveWorkbook On Error GoTo batal: Do Set range1 = Application.InputBox(prompt:="Pilih Range Pertama, tidak boleh melebihi 1 kolom", Title:="Input 1", Type:=8) If range1.Columns.Count > 1 Then MsgBox "Range dipilih tidak boleh melebihi 1 kolom", vbCritical Loop Until range1.Columns.Count = 1 Do Set range2 = Application.InputBox(prompt:="Pilih Range Kedua, tidak boleh melebihin 1 kolom", Title:="Input 2", Type:=8) If range2.Columns.Count > 1 Then MsgBox "Range dipilih tidak boleh melebihi 1 kolom", vbCritical Loop Until range2.Columns.Count = 1 With Application For Each sel1 In range1 If sel1.Value <> "" Then If Not IsError(.Match(sel1.Value, range2, 0)) Then Set sel2 = .Index(range2, .Match(sel1.Value, range2, 0)) alamat1 = Replace(sel1.Address(1, 1, 1, 1), "[" & Wb.Name & "]", "") alamat2 = Replace(sel2.Address(1, 1, 1, 1), "[" & Wb.Name & "]", "") sel1.Hyperlinks.Add sel1, "", alamat2, "Hyperlink ke " & alamat2 sel2.Hyperlinks.Add sel2, "", alamat1, "Hyperlink ke " & alamat1 End If End If Next End With batal: End Sub

Ketika macro dijalankan (Run), maka kamu akan diminta untuk memilih range pertama. Pastikan range pertama terdiri dari 1 kolom, kemudian selanjutnya kamu juga akan diminta memilih range ke-2. Juga pastikan range yang kamu pilih terdiri atas 1 kolom. Jika dalam kedua range tersebut ada sel berisi text yang sama maka otomatis akan terbuat tautan bolak-balik.

2. Membuat Daftar Isi Yang Otomatis Link ke Semua Sheet

Nah contoh kode macro  yang ini buat kamu yang tidak mau repot-repot menambah tautan antar daftar isi dengan sheet setiap kali kamu menambahkan sheet baru. Langsung di copy paste saja gaes, code dibawah...

Sub buatDaftarSheetDgnHyperlink() Dim Wb As Workbook, Ws As Worksheet, WsIdx As Worksheet Dim Baris As Integer, Nomor As Integer Dim selWsIdx As Range, selWs As Range Dim alamatSelWsIdx As String, alamatSelWs As String Set Wb = ActiveWorkbook Set WsIdx = ActiveSheet WsIdx.UsedRange.Clear WsIdx.Range("A1").Value = "Daftar Sheet" Baris = 3 Nomor = 0 For Each Ws In Wb.Worksheets If Ws.Name <> WsIdx.Name Then Baris = Baris + 1 Nomor = Nomor + 1 WsIdx.Range("A" & Baris).Value = Nomor 'set sel index, kontent dan alamatnya untuk linkback Set selWsIdx = WsIdx.Range("B" & Baris) selWsIdx.Value = Ws.Name alamatSelWsIdx = Replace(selWsIdx.Address(1, 1, 1, 1), "[" & Wb.Name & "]", "") 'set sel worksheet sebagai tujuan hyperlink Set selWs = Ws.Range("A1") selWs.Value = "<< Daftar Isi" alamatSelWs = Replace(selWs.Address(1, 1, 1, 1), "[" & Wb.Name & "]", "") 'buat hyperlink WsIdx.Hyperlinks.Add selWsIdx, "", alamatSelWs, "Hyperlik ke sheet : " & Ws.Name Ws.Hyperlinks.Add selWs, "", alamatSelWsIdx, "Hyperlik ke Daftar Isi" End If Next End Sub

Tunggu sebentar...!! code di atas ternyata belum cukup untuk membuatnya bekerja secara otomatis. Supaya pembuatan link bekerja otomatis, maka kamu harus menempatkan sebuah code tambahan pada modul worksheet yang kamu tetapkan sebagai sheet daftar isi. Silahkan copas code berikut:

Private Sub Worksheet_Activate() buatDaftarSheetDgnHyperlink End Sub

Dengan tambahan kode ini maka setiap kali kamu mengaktifkan atau beralih ke sheet yang kamu tentukan sebagai daftar isi, maka secara otomatis, microsoft excel akan menjalankan prosedur buatDaftarSheetDgnHyperlink. Akibatnya setiap kamu menambah sheet baru dan kemudian kamu cek sheet daftar isi maka kamu akan melihat tahutan baru tiba-tiba muncul. Selain itu dari Sheet yang baru kamu buat juga akan muncul tautan balik yang mengarah ke sheet daftar isi.

3. Menghapus Semua Hyperlink dalam Sheet dengan Model Standar

Selain membuat hyerlink. Kita juga perlu tahu bagaimana caranya menghapus hyperlink. Contoh code berikut dapat digunakan untuk menghapus semua hyperlinks dalam sheet aktif.

Sub HapusSemuaHiperlinkDalamWsMetodeStandar() Dim sel As Range, selFormula As String, Ws As Worksheet Set Ws = ActiveSheet Ws.UsedRange.Hyperlinks.Delete

Prosedur yang diadopsi oleh kode di atas merupakan model remove hyperlink standar yang biasa dilakukan secara manual (klik kanan --> remove hyperlink). Pada saat kita menghapus hyperlink dengan tehnik ini, maka format sel akan berubah. Oleh karena itu sebagai solusinya kita bisa menggunakan contoh code VBA berikutnya:

4. Menghapus Semua Hyperlink Dalam Sheet Tanpa Merubah Format

Langsung saja dicopy paste codenya gaes...:

Sub HapusSemuaHiperlinkDalamWsTanpaUpahFormat() Dim sel As Range, formulaRange As Variant, rangeTarget As Range, Ws As Worksheet Set Ws = ActiveSheet Set rangeTarget = Ws.UsedRange formulaRange = rangeTarget.Formula rangeTarget.ClearContents rangeTarget.Formula = formulaRange End Sub

Nah dengan menggunakan code di atas, kamu tidak perlu khawatir format sel berubah. Prosedur ini sebenarnya mengambil konsep ketika kamu menghapus konten sel secara manual. Selain konten yang terhapus maka hyperlinknya juga terhapus, tetapi formatnya tidak terhapus. Ketika kamu mengetik kembali pada sel yang sudah dihapus kontennya tadi, maka hasilnya formatnya akan sama dengan keadaan sebelum kamu hapus, tetapi hyperlinknya sudah tidak ada.

5. Menghapus Semua Hyperlink dalam Range Terpilih Tanpa Merubah Format

Prosedur nomor 4 apabila dijalankan akan menghapus semua hyperlink yang ada dalam sheet yang sedang aktif. Jika kamu hanya ingin menghapus hyperling dalam range tertentu (range yang dipilih / higlight) maka gunakan code berikut:

Sub HapusSemuaHiperlinkDalamRangeTanpaUbahFormat() Dim sel As Range, formulaRange As Variant, rangeTerpakai As Range Set rangeTerpakai = Selection formulaRange = rangeTerpakai.Formula rangeTerpakai.ClearContents rangeTerpakai.Formula = formulaRange End Sub

...

Itulah beberapa contoh kode VBA yang dapat kamu gunakan untuk membuat dan menghapus hyperlink.

Jika teman-teman ada saran atau koreksi, jangan ragu untuk tinggalkan komentar.

Teman-teman tertarik untuk mendapatkan contoh-contoh kode VBA lainnya? Silahkan klik link di bawah ini.

• Contoh Kode VBA untuk Menghapus Sheet
• Contoh Kode VBA untuk Mengurutkan Sheet
• Contoh Kode VBA untuk Hide/Unhide Sheet

Salam .... 😎😎😎