Lỗi argument not optional khi chạy code. giúp em với

[thanhthao_003]

Sub Button4_Click()
gt1 = Application.WorksheetFunction.Average([05:0100])
gt2 = Application.WorksheetFunction.Max([05:0100])
gt3 = Application.WorksheetFunction.Min([05:0100])
gt4 = Application.WorksheetFunction.CountIf([05:0100])
Kq = "Chieu cao trung binh:" & gt1 & "ft" & vbNewLine
Kq = Kq & "Chieu cao lon nhat:" & gt2 & "ft" & vbNewLine
Kq = Kq & "Chieu cao nho nhat:" & gt3 & "ft" & vbNewLine
Kq = Kq & "So luong cau thu:" & gt4 & "cau thu" & vbNewLine

MsgBox Kq, vbInformation, "Thong bao!"
End Sub

Đây là đoạn code của em ạ, khi chạy thì nó hiện ra lỗi argument not optional, khi nhấn Ok thì nó lỗi vàng ở đoạn Sub Button4_Click() ạ.
Giups em với, em cảm ơnnn ạ

 

[BuiQuangThuan]

Sub Button4_Click()
gt1 = Application.WorksheetFunction.Average([05:0100])
gt2 = Application.WorksheetFunction.Max([05:0100])
gt3 = Application.WorksheetFunction.Min([05:0100])
gt4 = Application.WorksheetFunction.CountIf([05:0100])
Kq = "Chieu cao trung binh:" & gt1 & "ft" & vbNewLine
Kq = Kq & "Chieu cao lon nhat:" & gt2 & "ft" & vbNewLine
Kq = Kq & "Chieu cao nho nhat:" & gt3 & "ft" & vbNewLine
Kq = Kq & "So luong cau thu:" & gt4 & "cau thu" & vbNewLine

MsgBox Kq, vbInformation, "Thong bao!"
End Sub

Đây là đoạn code của em ạ, khi chạy thì nó hiện ra lỗi argument not optional, khi nhấn Ok thì nó lỗi vàng ở đoạn Sub Button4_Click() ạ.
Giups em với, em cảm ơnnn ạ

Có cái ảnh nào không nhỉ bạn

 

[VetMini]

gt4 = Application.WorksheetFunction.CountIf([05:0100])

Hàm countif cần 2 tham số.

 

[thanhthao_003]

Hàm countif cần 2 tham số.

dạ em đã sữa lại và đc rr ạ, em cảm ơn anh

Bài đã được tự động gộp: 13/1/22

Có cái ảnh nào không nhỉ bạn

em sửa đc rr ạ, em cảm ơn anh

 

[VetMini]

dạ em đã sữa lại và đc rr ạ, em cảm ơn anh

Bài đã được tự động gộp: 13/1/22

em sửa đc rr ạ, em cảm ơn anh

Chớ có dùng ngôn từ viết tắt với tôi.
Nếu tiếp diễn, tôi sẽ "sổ bìa đen" bạn.