Macro Untuk Menghapus Hyperlink Tanpa Merubah Format

Pada postingan sebelumnya kita sudah berguru bagaimana caranya untuk Menghapus Hyperlink Tanpa Merubah Format pada Microsoft Excel. Proses tersebut dibentuk 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 sanggup dibentuk lebih simpel dengan memakai macro/vba. Berikut ialah tumpuan 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 memakai 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... :-)