Hỏi về cách đếm dòng rỗng hay không rỗng

[thuyyeu99]

Các anh chị cho em hỏi có cách nào xác định được trong bảng LV đã bao nhieu dòng có chứa dữ liệu và bao nhiêu dòng chưa có dữ liệu không ?

Ví dụ
Trong bảng LV của em thể hiện tổng cộng 20 dòng. trong đó chỉ có 10 dòng là có dữ liệu và 10 dồng không chứa dữ liệu. có cách nào đếm được số dòng nào có dữ liệu trong LV (ví dụ là 10)

Cảm ơn các anh chị quan tâm

 

[cadafi]

Ví dụ
Trong bảng LV của em thể hiện tổng cộng 20 dòng. trong đó chỉ có 10 dòng là có dữ liệu và 10 dồng không chứa dữ liệu. có cách nào đếm được số dòng nào có dữ liệu trong LV (ví dụ là 10)

Bạn test thử đoạn code này xem!

Private Sub CommandButton1_Click()
Dim iCount As Long, i As Long
iCount = 0
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.List(i, 0) <> "" Then
iCount = iCount + 1
End If
Next i
MsgBox iCount
End Sub

 

[BNTT]

Các anh chị cho em hỏi có cách nào xác định được trong bảng LV đã bao nhieu dòng có chứa dữ liệu và bao nhiêu dòng chưa có dữ liệu không ?

Ví dụ
Trong bảng LV của em thể hiện tổng cộng 20 dòng. trong đó chỉ có 10 dòng là có dữ liệu và 10 dồng không chứa dữ liệu. có cách nào đếm được số dòng nào có dữ liệu trong LV (ví dụ là 10)

Cảm ơn các anh chị quan tâm

Cái này mà List View gì bạn?

Để đếm số dòng có chứa dữ liệu, bạn dùng hàm COUNTA() - Chú ý, ô có chứa công thức, mà kết quả là rỗng, thì cũng coi như có chứa dữ liệu! Và số 0 cũng là dữ liệu! Chỉ khi nào dòng đó rỗng hoàn toàn (mới tinh), thì mới là không có dữ liệu.

Để đếm số dòng không có chứa dữ liệu, bạn dùng hàm COUNTBLANK().

Bạn xem ví dụ sau:

• Ở ô A16: =COUNTA(A1:A15)
  Nó đếm ra 15 ô có dữ liệu, bởi vì từ A1:A14 có chứa công thức như trong hình, và ở ô A15 có số 0 (nhưng tôi đã lựa chọn Option không xem thấy số 0, nên không thấy nó).
  
  
• Ở ô B16: =COUNTA(B1:B15)
  Có kết quả là 0 (và cũng không thấy luôn), vì từ B1:B15 là rỗng hoàn toàn.
  
  
• Ở ô A17: =COUNTBLANK(A1:A15)
  Có kết quả là 14, ngoại trừ ô số 0, vì COUNTBLANK thì lại xem công thức có kết quả là "" là một ô trống, nhưng không tính ô A15, có số 0.
  
  
• Ở ô B17: =COUNTBLANK(B1:B15)
  Ra đúng kết quả là 15.

 

[thuyyeu99]

Bạn test thử đoạn code này xem!

Private Sub CommandButton1_Click()
Dim iCount As Long, i As Long
iCount = 0
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.List(i, 0) <> "" Then
iCount = iCount + 1
End If
Next i
MsgBox iCount
End Sub

Nhưng mà hình như bạn Post bài sai box rồi!

nó báo lỗi ở dòng này anh ạh
ListCount

 

[sealand]

Bạn thử dùng đoạn code sau để đếm (dem1 là số dòng có dữ liệu, dem2 là số dòng không DL, nếu muốn đếm trên các cột khác thì dùng It.Subitem(x) )

Sub ktra()
Dim it As ListItem
For Each it In Me.LVDataSelector.ListItems
If it.text <> "" Then
dem1 = dem1 + 1
Else
dem2 = dem2 + 1
End If
Next
MsgBox dem1 & "<<>>" & dem2
end sub

 

[thuyyeu99]

Bạn thử dùng đoạn code sau để đếm (dem1 là số dòng có dữ liệu, dem2 là số dòng không DL, nếu muốn đếm trên các cột khác thì dùng It.Subitem(x) )

Sub ktra()
Dim it As ListItem
For Each it In Me.LVDataSelector.ListItems
If it.text <> "" Then
dem1 = dem1 + 1
Else
dem2 = dem2 + 1
End If
Next
MsgBox dem1 & "<<>>" & dem2
end sub

Cám ơn anh Sealand rất nhiều em giải quyết được vấn đề rồi