Range : Comment

Komentar dalam worksheet Excel adalah cara yang digunakan untuk memberikan sebuah catatan, penjelasan, atau informasi tambahan tentang cell atau range tertentu.

Selain menggunakan cara manual, menambah komentar di cell juga bisa dilakukan dengan menggunakan Visual Basic for Applications (VBA).

Dengan VBA juga bisa dengan mudah membuat, menghapus, dan mengedit komentar di lembar kerja Excel.

Disini saya akan jelaskan beberapa poin penting dalam mengelola komentar dengan menggunakan Macro Excel.

Bagian 1: Membuat Komentar dengan VBA

Berikut ini adalah contoh menambahkan sebuah komentar ke Cell C2

Sub TambahKomentar()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") 
    
    If Not ws.Range("C2").Comment Is Nothing Then
        ws.Range("C2").Comment.Delete
    End If
    
    ws.Range("C2").AddComment "Ini adalah komentar contoh."
End Sub

Pada script diatas, ditambahkan sebuah pengecekan kondisi IF untuk mengecek apakah cell tersebut sudah memiliki Comment atau belum,

Jika sudah, maka perlu dilakukan delete terlebih dahulu sebelum melakukan .addcomment

Karena jika tidak akan menimbulkan Error.

Berikut ini adalah hasilnya ketika dijalankan.

Bagian 2: Menghapus Komentar dengan VBA

Untuk menghapus komentar (Comment) sudah dibahas pada bagian pertama.

yaitu mengunakan perintah delete.

Berikut ini contoh script menghapus comment.

Sub HapusKomentar()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
   
    If Not ws.Range("C2").Comment Is Nothing Then
        ws.Range("C2").Comment.Delete
    End If
End Sub

Sebelum melakukan Delete pastikan terlebih dahulu jika Cell tersebut memiliki comment agar tidak terjadi Error.

Bagian 3: Mengedit Komentar dengan VBA

Jika pada cells target sudah memiliki comment dan ingin melakukan edit pada comment,

maka script bisa dibuat seperti ini.

Sub EditKomentar()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    If Not ws.Range("C2").Comment Is Nothing Then
        ws.Range("C2").Comment.Text "Ini adalah komentar yang diedit."
    End If
End Sub

targetCell.Comment.Text hanya bisa digunakan ketika targetcell sudah memiliki comment

vba.co.id

Leave a Reply

Your email address will not be published. Required fields are marked *