Tính tổng 1 cột trong listbox

[tuyen_ld]

Chào các bác. Các bác giúp em vấn đề tính tổng 1 cột trong listbox với ạ.
Em muốn viết thành một hàm ạ.
để thử kết quả nhanh các bác chọn vào combobox "Chọn mã box" nhé.
Em xin chân thành cảm ơn ạ.

 

[♫ђöล♥ßล†♥†µ♫]

Chào các bác. Các bác giúp em vấn đề tính tổng 1 cột trong listbox với ạ.
Em muốn viết thành một hàm ạ.
để thử kết quả nhanh các bác chọn vào combobox "Chọn mã box" nhé.
Em xin chân thành cảm ơn ạ.

 

[tuyen_ld]

Cảm ơn rất nhiều ạ.
Nhưng bác ơi em muốn viết riêng 1 function để tính tổng cột này được không ạ.
Vì trong cái listbox này em vẫn bổ xung them dữ lieu nữa vào từ phần "nhập"

 

[♫ђöล♥ßล†♥†µ♫]

Cảm ơn rất nhiều ạ.
Nhưng bác ơi em muốn viết riêng 1 function để tính tổng cột này được không ạ.
Vì trong cái listbox này em vẫn bổ xung them dữ lieu nữa vào từ phần "nhập"

Bạn kiểm tra thử

Function mySum(ByVal aListBox As msforms.ListBox, ByVal n As Long) As Double
    Dim i As Long
For i = 0 To aListBox.ListCount - 1
    mySum = mySum + aListBox.List(i, n)
Next i
End Function

Me!txt_ketqua = mySum(Me!ListBox1, 7)

 

[tuyen_ld]

Bạn kiểm tra thử

Function mySum(ByVal aListBox As msforms.ListBox, ByVal n As Long) As Double
    Dim i As Long
For i = 0 To aListBox.ListCount - 1
    mySum = mySum + aListBox.List(i, n)
Next i
End Function

Me!txt_ketqua = mySum(Me!ListBox1, 7)

Cảm ơn bác nhiều nhé.
Bác đã cho em được như ý rồi.

 

[baqy238]

Bạn ơi cho mình hỏi, mình cũng làm giống như bạn hướng dẫn nhưng khi trả kết quả nó không ra tổng, mà chỉ ra những con số trong cột đó, tại sao vậy
Mong bạn giúp đỡ, cảm ơn nhiều

 

[ptm0412]

Bạn ơi cho mình hỏi, mình cũng làm giống như bạn hướng dẫn nhưng khi trả kết quả nó không ra tổng, mà chỉ ra những con số trong cột đó, tại sao vậy
Mong bạn giúp đỡ, cảm ơn nhiều

Dùng thêm hàm Val:
Val(aListBox.List(i, n))

 

[baqy238]

Cảm ơn bạn, bạn có thể giúp mình viết lại toàn bộ câu lệnh có sử dụng hàm val được không?

 

[ptm0412]

Cảm ơn bạn, bạn có thể giúp mình viết lại toàn bộ câu lệnh có sử dụng hàm val được không?

Trong code bài 4, tìm chỗ có aListBox.List(i, n)
Gõ Val và mở ngoặc ở trước
Gõ đóng ngoặc ở sau cùng

 

[baqy238]

Cảm ơn bạn nhiều

 

[LucasNguyen11]

Nếu có thêm chức năng xoá dòng trong listbox
Vậy khi xoá dòng rồi thì hàm
"sum = sum + alistbox ..." có còn chạy đúng không ah?
Còn cách tính tổng nào khác không ah?