valama
Thành viên mới
- Tham gia
- 8/9/16
- Bài viết
- 15
- Được thích
- 1
Lần trước em có hỏi về nhập nhiều dữ liệu vào userform và được các anh chị tư vấn dùng listbox.
Nay em có làm thành 1 file mới sử dụng listbox với code như sau
Trong quá trình sử dụng thì sau khoảng 5 lần nhập thì bắt đầu có lỗi không get được dữ liệu từ listbox. Bắt buộc em phải tắt tất cả file excel rồi mở lại mới dùng tiếp được
Xin mọi người hỗ trợ giúp em xem thử nó là lỗi gì theo hình ảnh bên dưới
Cứ sau vài lần nhập là em lại cứ bị lỗi này. Mặc dù đã select listbox nhóm khách hàng rồi
Nay em có làm thành 1 file mới sử dụng listbox với code như sau
Mã:
Private Sub B21_change()
Set A1 = Sheets("list").Range("D2")
'Lay du lieu nhom khach hang
nhomkhach = ""
'B21 là tên của listbox
'Fr1 là tên của userform
For x = 0 To fr1.B21.ListCount - 1
If fr1.B21.Selected(x) Then
If nhomkhach = "" Then
nhomkhach = fr1.B21.List(x, 0)
End If
End If
Next x
A1.Value = nhomkhach
If Len(A1.Value) = 0 Then
Application.Assistant.DoAlert "Thông Báo", _
s1, 0, 1, 0, 0, 0
's1 la nội dung thông báo lỗi
Exit Sub
End If
End SubTrong quá trình sử dụng thì sau khoảng 5 lần nhập thì bắt đầu có lỗi không get được dữ liệu từ listbox. Bắt buộc em phải tắt tất cả file excel rồi mở lại mới dùng tiếp được
Xin mọi người hỗ trợ giúp em xem thử nó là lỗi gì theo hình ảnh bên dưới
Cứ sau vài lần nhập là em lại cứ bị lỗi này. Mặc dù đã select listbox nhóm khách hàng rồi
Lần chỉnh sửa cuối:
