Cách dùng Count trong VBA (1 người xem)

[Tiktiktak]

Em mới chập chững bước vào tìm hiểu VBA. Anh chưa hiểu cách dùng Count trong VBA như thế nào. AC chỉ dùm em nha!?
(Nếu có các ví dụ nữa thì tốt quá!)

 

[TrungChinhs]

Em mới chập chững bước vào tìm hiểu VBA. Anh chưa hiểu cách dùng Count trong VBA như thế nào. AC chỉ dùm em nha!?
(Nếu có các ví dụ nữa thì tốt quá!)

Ví dụ dữ liệu (kiểu số) nằm trong vùng B3:B50 và kết quả hiện tại ô C3 thì bạn dùng câu lệnh

Sub Macro1()
    [c3] = Application.Count([b3:b50])
hoặc
    [c3] = "=COUNT(R3C2:R50C2)"
End Sub

 

[Tiktiktak]

Em muốn hỏi thuộc tính của nó? Vì hàm Count em cũng biết rùi ah.

 

[ndu96081631]

Em muốn hỏi thuộc tính của nó? Vì hàm Count em cũng biết rùi ah.

Ý bạn là sao? Thuộc tính gì chứ? Ý bạn muốn COUNT cái gì đây?

 

[NH_DK]

Ý bạn là sao? Thuộc tính gì chứ? Ý bạn muốn COUNT cái gì đây?

Giả sử trong VBA, mình dùng:

.Cells(Cells.Rows.Count,1).End(xlUp).Row

Em vẫn chưa hiểu Count dùng như thế nào?
AC tư vấn thêm nha!

 

[ChanhTQ@]

Trong fần giúp đỡ của VBA có ghi như sau

Count Property


See Also Example Applies to

Returns a Long (long integer) containing the number of objects in a collection. Read-only.
' * * * * * *
Nếu ta bấm vô từ Example ta sẽ được đưa đến ví dụ sau:

Count Property Example@import url(office.css);

Dim Num, MyClasses
For Num = 1 To MyClasses.Count    ' Remove name from the collection.
    MyClasses.Remove 1    ' Default collection numeric indexes
Next    ' begin at 1.

Tuy nhiên đối với 1 số người ví dụ này làm tù mù thêm vì "MyClasses" kia

Hay bạn xem ví dụ dễ hiểu hơn, như sau

 Dim Rng As Range , Cls As Range 

 Set Rng = Range([B1], [B65500].End(xlup)) 'Vùng Có dữ liệu của cột "B"'
 For Each Cls In Rng 
    MsgBox Range([B1], Cls).Count,, Range([B1], Cls).Rows.Count '<=|'
 Next Cls

(Bạn ngâm cứu thật nhiều đến câu lệnh có mũi tên đó nha!)

Chúc xuân vui vẻ & thành đạt!