Excel Comment - Cek Value/String Dalam Comment

MACRO UNTUK MENGECEK TEXT /STRING DALAM INSERT COMMENT

Adakalanya insert comment dibentuk untuk menjelaskan langkah perhitungan data/angka yang ada dalam sel. Kita sanggup mengecek apakah angka simpulan perhitungan dalam insert comment sama atau tidak dengan angka dalam sel. 

Sebenarnya kita sanggup mengeceknya satu persatu dengan cara membuka comment (show comment) satu persatu. Namun resiko human error-nya tinggi, apalagi bila dilakukan pada jam ngantuk...:). 

Saya tidak tahu nilai manfaat cara ini bagi anda. Tapi inilah yang harus saya kerjakan dimana saya harus merekap dan mengecek data-data dari divisi/unit, dimana ada klarifikasi data yang dibentuk dengan menambahkan insert comment pada data tersebut... dan saya termasuk orang yang "malas" untuk melaksanakan pengecekan satu persatu.

Code berikut akan menghitung jumlah insert comment yang tidak matching dengan nilai dalam cell. Dengan code ini, kita sanggup eksklusif tahu dan lebih fokus untuk mengecek penjelasan/comment yang "diduga" tidak tepat.  Memang sih, ini masih banyak kekurangannya alasannya hanya mengecek ada tidaknya text/string/angka yang seharusnya ada atau tidak dalam comment box.

'dicoba dulu aja dulu dech...

Sub cekValInComment()

Dim cekStr As String, cmtStr As String, r As Range

Dim notMatchCounter As Long, cmtCounter As Long

For Each r In Selection

    If r.Value <> "" And Not (r.Comment Is Nothing) Then

        cmtCounter = cmtCounter + 1

        cekStr = Trim(r.Text)

        cmtStr = r.Comment.Text

        If InStr(1, cmtStr, cekStr) = 0 Then

            notMatchCounter = notMatchCounter + 1

            r.Interior.Color = vbRed

        End If

    End If

Next

If notMatchCounter > 0 Then

    MsgBox "Dijumpai " & notMatchCounter & " komentar tidak matching dari " & cmtCounter & " yang di-cek"

End If

End Sub   

Ingat, metode ini benar-benar mengecek string value dalam comment dengan forrmat yang persis sama dengan value cell. Makara harus dipastikan bahwa sistem penulisan angka dalam insert comment harus sama dengan format cell (number).

Contoh : bila angka dalam cell yaitu 20000, sedangkan penulisan dalam insert comment yaitu 20.000, maka hal ini akan dianggap tidak matching (tidak ditemukan).