Đếm các ô có ghi chú

[nam2806]

Xin hỏi ACE có cách nào đếm các ô có ghi chú trong ột vùng không?

 

[tungnguyen_kt]

Xin hỏi ACE có cách nào đếm các ô có ghi chú trong ột vùng không?

Hỏng hiểu lắm, nói rõ hơn là ghi chú gì, như thế nào (có ví dụ)?

 

[nam2806]

Là các ô có comment đó bạn. Ví dụ như file đính kèm

 

[concogia]

Là các ô có comment đó bạn. Ví dụ như file đính kèm

Chép code này, bấm Ctrl + m xem kết quả ở E4

Public Sub dem()
[e4] = [c7:g14].SpecialCells(1).Count
End Sub

Thân
Híc, cám ơn Learning nhé

 

[MinhCong]

Là các ô có comment đó bạn. Ví dụ như file đính kèm

bạn thử dùng củ chuối này xem sao nhé!

Sub Demcomment()
Dim clls As Range, i As Long
  For Each clls In Selection
    If Not clls.Comment Is Nothing Then i = i + 1
  Next
MsgBox "Tong so o ghi chu la" & i
End Sub

Chọn vùng cần đếm sau đó mới chạy code nhé!

 

[Ếch Xanh]

Chép code này, bấm Ctrl + m xem kết quả ở E4

Public Sub dem()
[e4] = [c7:g14].SpecialCells(1).Count
End Sub

Thân

Hic, hic, không đặt nó phím tắt trong sheet, thì chép code về đố ai bấm được Ctrl + m để cho nó chạy code đó! hic hic (Buồn buồn phá Thầy chơi)