Hiện tổng số mặt hàng đã chọn trong Listbox

[AnhThu-1976]

Các anh chị vui lòng giúp tổng số mặt hàng đã được giáng xuống lbSelect Listbox
thì ghi vào trong TextBox1
Em có viết code nhưng không có kết quả

Private Sub TextBox1_Change()
TextBox1.Value = lbSelect.Items.Count
End Sub

Mong muốn như hình (có tổng số 3 mặt hàng thì Textbox1 thể hiện là 3)
Nhưng nếu ta bỏ bớt mặt hàng nào đi thì Textbox1 chỉ thể hiện số còn lại
Ví dụ: nếu bỏ bớt mặt hàng 10 thì Textbox1 chỉ thể hiện là 2
p/s: thể hiện trên textbox hoặc gì cũng được (trước khi giáng xuống sheet)
Em cảm ơn!

 

[be_09]

Các anh chị vui lòng giúp tổng số mặt hàng đã được giáng xuống lbSelect Listbox
thì ghi vào trong TextBox1
Em có viết code nhưng không có kết quả

Private Sub TextBox1_Change()
TextBox1.Value = lbSelect.Items.Count
End Sub

Mong muốn như hình (có tổng số 3 mặt hàng thì Textbox1 thể hiện là 3)
Nhưng nếu ta bỏ bớt mặt hàng nào đi thì Textbox1 chỉ thể hiện số còn lại
Ví dụ: nếu bỏ bớt mặt hàng 10 thì Textbox1 chỉ thể hiện là 2
p/s: thể hiện trên textbox hoặc gì cũng được (trước khi giáng xuống sheet)View attachment 227821View attachment 227821
Em cảm ơn!

1/ Form này của bác SA_DQ thì chờ bác ấy giúp.
2/ Đọc xong chẳng hiểu bạn muốn làm cái gì? Trong File nhiều code quá nên chẳng muốn đọc, nếu muốn chọn nhiều dòng để nhập liệu thì chỉ sử dụng 1 đoạn code.

 

[SA_DQ]

1/ Form này của bác SA_DQ thì chờ bác ấy giúp.
2/ Đọc xong chẳng hiểu . . . .? Trong File nhiều code quá nên chẳng muốn đọc, . . . .

(1) Đúng là Form này mình có tham gia, nhưng là kết quả 'tổng hợp' thêm của nhiều nhân vận cộm cán trên GPE trình độ VBA cao hơn mình
Điều này thấy rõ qua phong cách viết Code trong không ít macro trong Form
(2) Ý đồ tác giả chắc vầy:
a./ Khi chọn 1 dòng trong ListBox phía trên thì trong TextBox sẽ tăng lên 1 đơn vị &
b./ Khi chọn 1 dòng trong ListBox dưới sau đó nhấn nút lệnh ''Xóa' thì trên TextBox1 sẽ phải giảm trị đang chứa đi 1 đơn vị

Nếu đúng đó là ý đồ của tác giả bài đăng thì ta phải trãi qua các bước sau:
1./ Vô hiệu hóa dòng lệnh trong macro này đi:

Private Sub TextBox1_Change()
'   TextBox1.Value = lbSelect.Items.Count      '
End Sub

2./ Thêm 1 câu lệnh trong macro này, ngõ hầu khi chọn 1 dòng trên ListBox (bên) trên, trong TextBox1 sẽ tăng thêm 1 đơn vị:

Private Sub MHList_Click()
Dim W As Integer
On Error GoTo LoiCT
lbID = Me!MHList.ListIndex
SeL = SeL + 1
For W = 0 To 2
    Me!lbSelect.List(SeL, W) = Me!MHList.List(lbID, W)
Next W
Me!TextBox1.Value = SeL            'Mói Thêm       '
Err_:           Exit Sub
LoiCT:
If Err = 381 Then
    MsgBox "Quá Dòng", , "Chào Ban!"
    Resume Next
Else
    Resume Err_
End If
End Sub

3./ Còn khi nhấn nút 'Xóa' thì macro kèm theo nó sẽ phải thêm những dòng lệnh sau:

Private Sub Xoa_Click()
For J = 1 To SeL
    If FormDMDG.lbSelect.Selected(J) Then FormDMDG.lbSelect.RemoveItem (J)
Next J
SeL = SeL - 1           '**     '
Me!TextBox1.Value = Me!TextBox1.Value - 1       '**     '
End Sub

Nhưng cần nói thêm rằng, tác giả nên thử nghiệm nhiều lần để khẳng định các bước sửa đổi trên có đáp ứng không(!)

* * * * *

 

[AnhThu-1976]

Em cảm ơn anh nhiều!

(1) Đúng là Form này mình có tham gia, nhưng là kết quả 'tổng hợp' thêm của nhiều

Ít nhất là có 4 cao thủ chỉnh sửa kể từ khi em sưu tầm

Nhưng cần nói thêm rằng, tác giả nên thử nghiệm nhiều lần để khẳng định các bước sửa đổi trên có đáp ứng không(!)

Trong quá trình sử dụng, nếu thấy gì em thông báo ạ!