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.Â
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 ” ¬MatchCounter & ” 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).
Seorang pengajar dan pembelajar yang mengurus lembaga pelatihan dan kursus komputer bernama LKP Naura