Tùy chọn
Tính tổng nhiều dòng trong listbox
- Tính tổng nhiều dòng trong listbox
-
Tính tổng nhiều dòng trong listbox
yamakashi2003 > 06-08-20, 12:39 AM
Em chào các bác ạ,
Giả sử em có 1 list box có 2 cột
San pham so luong
A 1
B 2
C 3
Em có chọn thuộc tính mutiselect là exten rồi,
Em tạo 1 text chứa tên sản phẩm được chọn, và 1 text chứa tổng số lượng sản phẩm được chọn
Nhờ các bác chỉ giúp em viêt code để có thể giữ ctrl và tích chọn 3 hoặc 2 sản phẩm thì khi ấn 1 button nó sẽ cho tính tổng cột số lượng tương ứng sản phẩm được chọn vào txttong ạ
Em có được 1 bác hướng dẫn nhập tên sản phẩm vào texbox theo code bên dưới, còn tính tổng thì em chưa luận ra được ạ
Mong bác nào chỉ giúp, em xin cảm ơn
Private Sub Command231_Click()
Dim item As Variant
Dim sDS As String
Dim n As Byter
n = 0
If Me.ListQUA.ItemsSelected.Count <> 0 Then 'Neu co chon dòng thi moi xu ly'
For Each item In Me.ListQUA.ItemsSelected
sDS = sDS & Me.ListQUA.Column(0) & ", "
n = Chỗ này em bí ạ
Next item
Else
MsgBox "Ban không chon dòng nào", vbInformation
Exit Sub
End If
sDS = Left$(sDS, Len(sDS) - 2)
Me.txtsanpham.Value = sDS
Me.txttong = n
End Sub -
RE: Tính tổng nhiều dòng trong listbox
AnNguyen > 06-08-20, 08:58 AM
(06-08-20, 12:39 AM)yamakashi2003 Đã viết: Em chào các bác ạ,
Không biết ý của bạn phải như này không?
Giả sử em có 1 list box có 2 cột
San pham so luong
A 1
B 2
C 3
Em có chọn thuộc tính mutiselect là exten rồi,
Em tạo 1 text chứa tên sản phẩm được chọn, và 1 text chứa tổng số lượng sản phẩm được chọn
Nhờ các bác chỉ giúp em viêt code để có thể giữ ctrl và tích chọn 3 hoặc 2 sản phẩm thì khi ấn 1 button nó sẽ cho tính tổng cột số lượng tương ứng sản phẩm được chọn vào txttong ạ
Em có được 1 bác hướng dẫn nhập tên sản phẩm vào texbox theo code bên dưới, còn tính tổng thì em chưa luận ra được ạ
Mong bác nào chỉ giúp, em xin cảm ơn
Private Sub Command231_Click()
Dim item As Variant
Dim sDS As String
Dim n As Byter
n = 0
If Me.ListQUA.ItemsSelected.Count <> 0 Then 'Neu co chon dòng thi moi xu ly'
For Each item In Me.ListQUA.ItemsSelected
sDS = sDS & Me.ListQUA.Column(0) & ", "
n = Chỗ này em bí ạ
Next item
Else
MsgBox "Ban không chon dòng nào", vbInformation
Exit Sub
End If
sDS = Left$(sDS, Len(sDS) - 2)
Me.txtsanpham.Value = sDS
Me.txttong = n
End Sub
demoTinhTong -
RE: Tính tổng nhiều dòng trong listbox
ongke0711 > 06-08-20, 10:22 AM
(06-08-20, 12:39 AM)yamakashi2003 Đã viết: ...
If Me.ListQUA.ItemsSelected.Count <> 0 Then 'Neu co chon dòng thi moi xu ly'
For Each item In Me.ListQUA.ItemsSelected
sDS = sDS & Me.ListQUA.Column(0) & ", "
n = Chỗ này em bí ạ
Next item
...
Bạn chịu khó đọc hiểu câu lệnh đi rồi áp dụng cho các trường hợp khác sau này. Khi đó kiến thức mới lên được.
Bạn đã thấy câu lệnh: sDS = sDS & Me.ListQUA.Column(0) & ", " --> để lấy giá trị cột thứ nhất thì nên suy nghĩ cách cũng như vậy để lấy cột giá trị.
File của bạn AnNguyen demo cho bạn chuẩn rồi đấy. -
RE: Tính tổng nhiều dòng trong listbox
yamakashi2003 > 06-08-20, 11:03 AM
(06-08-20, 10:22 AM)ongke0711 Đã viết:
Em cám onw2 bác ạ.(06-08-20, 12:39 AM)yamakashi2003 Đã viết: ...
If Me.ListQUA.ItemsSelected.Count <> 0 Then 'Neu co chon dòng thi moi xu ly'
For Each item In Me.ListQUA.ItemsSelected
sDS = sDS & Me.ListQUA.Column(0) & ", "
n = Chỗ này em bí ạ
Next item
...
Bạn chịu khó đọc hiểu câu lệnh đi rồi áp dụng cho các trường hợp khác sau này. Khi đó kiến thức mới lên được.
Bạn đã thấy câu lệnh: sDS = sDS & Me.ListQUA.Column(0) & ", " --> để lấy giá trị cột thứ nhất thì nên suy nghĩ cách cũng như vậy để lấy cột giá trị.
File của bạn AnNguyen demo cho bạn chuẩn rồi đấy.
Đêmqua em mò ra rồi ạ
chỉ cần n= listqua.column(1,n) là được