Belajar Microsoft Excel: Excel Comment – Cek Value/String Dalam Comment

MACRO UNTUKMENGECEK TEXT /STRING DALAM INSERT COMMENT
Adakalanya insert commentdibuat untuk menerangkan langkah perkiraan data/angka yang ada dalam sel.Kita sanggup menganalisa apakah angka final perkiraan dalam insert comment samaatau tidak dengan angka dalam sel. 

vba macro menganalisa string / value tertentu dalam insert comment
Sebenarnya kita sanggup mengeceknya satu persatu dengan cara membuka comment (show comment) satu persatu. Namun resiko human error-nya tinggi , terlebih jikalau dijalankan pada jam ngantuk…:). 

Saya tidak tahu nilai faedah cara ini bagi anda. Tapi inilah yang mesti saya laksanakan dimana saya mesti merekap dan menganalisa data-data dari divisi/unit , dimana ada klarifikasi data yang dibentuk dengan menyertakan insert comment pada data tersebut… dan saya tergolong orang yang “malas” untuk mengerjakan pengecekan satu persatu.

Code berikut akan menjumlah jumlah insertcomment yang tidak matching dengan nilai dalam cell. Dengan code ini , kita sanggup pribadi tahu dan lebih konsentrasi untuk menganalisa penjelasan/comment yang “diduga” tidak tepat.  Memang sih , ini masih banyak kekurangannya alasannya merupakan cuma menganalisa ada tidaknya text/string/angka yang sebaiknya ada atau tidak dalam comment box.

‘dicoba dahulu aja dahulu dech…
Sub cekValInComment()
Dim cekStr As String , cmtStr AsString , 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-benarmengecek string value dalam comment dengan forrmat yang persis sama denganvalue cell. Makara mesti ditentukan bahwa metode penulisan angka dalam insertcomment mesti sama dengan format cell (number).

Contoh : jikalau angka dalam celladalah 20000 , sedangkan penulisan dalam insert comment merupakan 20.000 , maka halini akan dianggap tidak matching (tidak ditemukan).
Need Help? Chat with us