Macro untuk Menghapus Hyperlink Tanpa Merubah Format - Artikel Blog -->
Lompat ke konten Lompat ke sidebar Lompat ke footer

Macro untuk Menghapus Hyperlink Tanpa Merubah Format

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... :-)


Posting Komentar untuk "Macro untuk Menghapus Hyperlink Tanpa Merubah Format"