Pada postingan sebelumnya kita sudah belajar bagaimana caranya untuk Menghapus Hyperlink Tanpa Merubah Format pada Microsoft Excel. Proses tersebut dibuat secara manual dengan cara menghapus seluruh data yang ada hyperlinks-nya (clear contents), dilanjutkan dengan mengembalikan data tersebut dari data backup dengan cara copy paste formula.

Proses tersebut  sebenarnya dapat dibuat lebih praktis dengan menggunakan macro/vba. Berikut adalah contoh script-nya.

'----------------------------------------------------
Sub clearHyperlinkWithoutFormat()
'je270215-remove hyperlinks tanpa merubah format
Dim sel As Range, tempFormula As String
Application.ScreenUpdating = False
For Each sel In Selection
    If sel.Hyperlinks.Count > 0 Then
        tempFormula = sel.Formula
        sel.ClearContents
        sel.Formula = tempFormula
    End If
Next
End Sub
'----------------------------------------------------

Cara menggunakan macro tersebut sebagai berikut:
  • copy script di atas ke module standar dan buatkan shortcutnya
  • Sorot/Seleksi range excel yang hyperlink-nya akan di hapus
  • Jalankan macro tadi (clearHyperlinkWithoutFormat)

Semoga bermanfaat... :-)