Application.WorksheetFunction.CountA(Range("AI:EI" )) luôn bằng 0 (1 người xem)

[coiha]

Tôi gửi file lên đây nhờ mọi người xem giúp đoạn code
Tôi muốn đánh dấu vào từng ô ở cột F bằng dấu “*” nếu như đếm các ô dữ liệu trước đó là đầy đủ.
Sub TINH()
Dim I As Integer
Sheet1.Select
Range("f2:f30").ClearContents
For I = 2 To Range("a2").End(xlDown).Row
If Application.WorksheetFunction.CountA(Range("AI:EI")) = 5 Then
Cells(I, 6).Value = "*"
End If
Next
End Sub
Khi kiểm tra thì giá trị của Application.WorksheetFunction.CountA(Range("AI:EI")) luôn bằng 0.
Vậy, khắc phục như thế nào. Mong mọi người giúp đỡ.

 

[mhung12005]

Tôi gửi file lên đây nhờ mọi người xem giúp đoạn code
Tôi muốn đánh dấu vào từng ô ở cột F bằng dấu “*” nếu như đếm các ô dữ liệu trước đó là đầy đủ.
Sub TINH()
Dim I As Integer
Sheet1.Select
Range("f2:f30").ClearContents
For I = 2 To Range("a2").End(xlDown).Row
If Application.WorksheetFunction.CountA(Range("AI:EI")) = 5 Then
Cells(I, 6).Value = "*"
End If
Next
End Sub
Khi kiểm tra thì giá trị của Application.WorksheetFunction.CountA(Range("AI:EI")) luôn bằng 0.
Vậy, khắc phục như thế nào. Mong mọi người giúp đỡ.

Như vầy mới đúng chứ bạn

Sub TINH()Dim I As Integer
Sheet1.Select
Range("f2:f30").ClearContents
For I = 2 To Range("a2").End(xlDown).Row
If Application.WorksheetFunction.CountA(Sheet1.Range("A" & I).Resize(, 5)) = 5 Then
Cells(I, 6).Value = "*"
End If
Next
End Sub

 

[coiha]

Wa, bi giờ thì em đã hiểu! Rất cảm ơn bạn