Bạn thử 1 trong 2 UDF này nhé :
PHP:Function Dem(Vung As Range, DieuKien As Long) As Long On Error Resume Next Dim d As Long, i As Long, k As Long Dim MyCell As Range If Vung.Cells.Count = 0 Then Exit Function For Each MyCell In Vung If Val(MyCell) > DieuKien Then Dem = Dem + 1 Next End Function
Thân!PHP:Function Dem2(Vung As Range, DieuKien As String) As Long On Error Resume Next Dem2 = WorksheetFunction.CountIf(Vung, DieuKien) End Function
Cảm ơn Okebab rất nhiều!
Tôi đã thử làm và chạy tốt rồi, bây giờ muốn xem cửa sổ debug/watch để dò giá trị của các biến thì làm thế nào, tôi nhấn F8 mà không thấy giá trị của các bbiến thay đổi.
Ah Okebab nè! bây giờ muốn học viết các code đơn giản trong excel như thế thì bắt đầu từ đâu?
Tôi thấy trong diễn đàn rất nhiều ... nên không biết bắt đầu học từ đâu?
Okebab có có biết kiến thức căn bản về viết các code trong excel này nằm trong box nào không?
Rất mong được giúp đỡ! cảm ơn!!!!!