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

Berbagi :