Judul : Excel Comment - Cek Value/String Dalam Comment
link : Excel Comment - Cek Value/String Dalam Comment
Excel Comment - Cek Value/String Dalam Comment
MACRO UNTUK MENGECEK TEXT /STRING DALAM INSERT COMMENT
Adakalanya insert comment dibuat untuk menjelaskan langkah perhitungan data/angka yang ada dalam sel. Kita dapat mengecek apakah angka akhir perhitungan dalam insert comment sama atau tidak dengan angka dalam sel.
Sebenarnya kita bisa mengeceknya satu persatu dengan cara membuka comment (show comment) satu persatu. Namun resiko human error-nya tinggi, apalagi jika 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 penjelasan data yang dibuat dengan menambahkan insert comment pada data tersebut... dan saya termasuk orang yang "malas" untuk melakukan pengecekan satu persatu.
Code berikut akan menghitung jumlah insert comment yang tidak matching dengan nilai dalam cell. Dengan code ini, kita bisa langsung tahu dan lebih fokus untuk mengecek penjelasan/comment yang "diduga" tidak tepat. Memang sih, ini masih banyak kekurangannya karena 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. Jadi harus dipastikan bahwa sistem penulisan angka dalam insert comment harus sama dengan format cell (number).
Contoh : jika angka dalam cell adalah 20000, sedangkan penulisan dalam insert comment adalah 20.000, maka hal ini akan dianggap tidak matching (tidak ditemukan).
Demikianlah Artikel Excel Comment - Cek Value/String Dalam Comment
Sekianlah artikel Excel Comment - Cek Value/String Dalam Comment kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.
Anda sekarang membaca artikel Excel Comment - Cek Value/String Dalam Comment dengan alamat link https://belajarofficeterbaruexel.blogspot.com/2015/02/excel-comment-cek-valuestring-dalam.html
