ví dụ bạn có 1 listbox như hình. code thực hiện tính tổng thu chi như í bạn như sau:
Private Sub Command2_Click()
Dim i As Integer, thu As Double, chi As Double
thu = 0
chi = 0
For i = 0 To lst.ListCount - 1
If lst.Column(1, i) <> "" Then thu = thu + Nz(CDbl(lst.Column(1, i)), 0)
If lst.Column(2, i) <> "" Then chi = chi + Nz(CDbl(lst.Column(2, i)), 0)
Next i
MsgBox thu & " " & chi
End Sub
xin lỗi vì trả lời gấp nên hơi sơ sài