Chọn listbox từ Form nhập liệu (1 người xem)

[thuanntk]

Chào các bạn!
Mình đang tạo một một Form nhưng có một số lỗi sau mong các bạn chỉnh giúp mình:
1/ Mình muốn khi mở Form lên nhóm hàng mặt định là "Tat ca" khi đó Listbox hiện tất cả các mặt hàng, còn khi chọn từng nhóm hàng thì Listbox lấy danh sách theo nhóm và bỏ qua danh sách rỗng và lấy đến hết mặt hàng trong nhóm hàng
2/ Trong ListBox thể hiện mã hàng, tên hàng, ĐVT, giá bán
3/Khi thực hiện nút "chọn" thì điền mã hàng, tên hàng,ĐVT, giá bán vào tuơng ứng với cột ở sheet chi tiết
Cảm ơn các bạn nhiều

 

[viehoai]

Chào các bạn!
Mình đang tạo một một Form nhưng có một số lỗi sau mong các bạn chỉnh giúp mình:
1/ Mình muốn khi mở Form lên nhóm hàng mặt định là "Tat ca" khi đó Listbox hiện tất cả các mặt hàng, còn khi chọn từng nhóm hàng thì Listbox lấy danh sách theo nhóm và bỏ qua danh sách rỗng và lấy đến hết mặt hàng trong nhóm hàng
2/ Trong ListBox thể hiện mã hàng, tên hàng, ĐVT, giá bán
3/Khi thực hiện nút "chọn" thì điền mã hàng, tên hàng,ĐVT, giá bán vào tuơng ứng với cột ở sheet chi tiết
Cảm ơn các bạn nhiều

Dữ liệu (sheet MENU) chẳng thống nhất gì cả, có một số hạng mục có mã hàng thì công có tên hàng, có tên hàng thì không có mã hàng. Bạn muốn lọc để list theo mã hàng hay tên hàng. Dự liệu của bạn như vậy bótay.com. Tốt nhất bạn đưa dữ liệu thật một tí đi mới có kết quả tốt nhất

 

[thuanntk]

Dữ liệu (sheet MENU) chẳng thống nhất gì cả, có một số hạng mục có mã hàng thì công có tên hàng, có tên hàng thì không có mã hàng. Bạn muốn lọc để list theo mã hàng hay tên hàng. Dự liệu của bạn như vậy bótay.com. Tốt nhất bạn đưa dữ liệu thật một tí đi mới có kết quả tốt nhất

Trong listbox thể hiện cả mã hàng,tên hàng,đvt,giá bán, nhưng nếu dòng nào có mã hàng trống thì bỏ qua

 

[viehoai]

Trong listbox thể hiện cả mã hàng,tên hàng,đvt,giá bán, nhưng nếu dòng nào có mã hàng trống thì bỏ qua

Vậy khi bạn chọn nhóm hàng BIA chẳng hạn (tất cả dều không có mã hàng) thì không list lên hay sao?
Mà tôi góp ý bạn nên bỏ nhóm hàng và thay vào đó tìm kiếm hàng hoặc mã hàng nhanh hơn, thuận lợi cho bạn hơn

 

[thuanntk]

Vậy khi bạn chọn nhóm hàng BIA chẳng hạn (tất cả dều không có mã hàng) thì không list lên hay sao?
Mà tôi góp ý bạn nên bỏ nhóm hàng và thay vào đó tìm kiếm hàng hoặc mã hàng nhanh hơn, thuận lợi cho bạn hơn

ah. mấy chỗ đó là mình chưa đánh xong mã. Nhưng bạn có cáh nào hay hơn để nhập cho nhanh giúp mình với

 

[viehoai]

ah. mấy chỗ đó là mình chưa đánh xong mã. Nhưng bạn có cáh nào hay hơn để nhập cho nhanh giúp mình với

Bạn xem file the ý bạn trước, tôi làm theo ý tôi sau

 

[thuanntk]

Bạn xem file the ý bạn trước, tôi làm theo ý tôi sau

Rất tốt,cảm ơn bạn nhiều nhé.Mình thấy được listbox rồi như trong combobox chưa có chọn "tất cả" mặt hàng và khi chọn nút chọn thì chưa ghi vào được ở cách cột tương ứng trong sheet "Chi tiết"

 

[viehoai]

Rất tốt,cảm ơn bạn nhiều nhé.Mình thấy được listbox rồi như trong combobox chưa có chọn "tất cả" mặt hàng và khi chọn nút chọn thì chưa ghi vào được ở cách cột tương ứng trong sheet "Chi tiết"

1. Để trông thì xem như chọn tất cả, nếu không bạn thích thì làm tiếp
2. Hàng màu đỏ trên bạn làm, mình chưa làm, bạn nêu yêu cầu mình sẽ giúp bạn tiếp. Như sheet chi tiết cần gì phải làm cobo vậy bạn?

 

[thuanntk]

1. Để trông thì xem như chọn tất cả, nếu không bạn thích thì làm tiếp
2. Hàng màu đỏ trên bạn làm, mình chưa làm, bạn nêu yêu cầu mình sẽ giúp bạn tiếp. Như sheet chi tiết cần gì phải làm cobo vậy bạn?

Vậy bạn giúp mình 2 yêu cầu đó giúp mình nha. Còn sheet chi tiết mình muốn làm như vậy để tìm kiếm cho nhanh vì mặt hàng nhiều, bạn có cách nào khác cho mình tham khảo được không?

 

[viehoai]

Vậy bạn giúp mình 2 yêu cầu đó giúp mình nha. Còn sheet chi tiết mình muốn làm như vậy để tìm kiếm cho nhanh vì mặt hàng nhiều, bạn có cách nào khác cho mình tham khảo được không?

Nội dung 2 yêu cầu cụ thể như thế nào?
Bạn xem file mới và chọn phương án nào rồi mới làm tiếp tránh mất thời gian

 

[thuanntk]

Nội dung 2 yêu cầu cụ thể như thế nào?
Bạn xem file mới và chọn phương án nào rồi mới làm tiếp tránh mất thời gian

Bạn vẫn giữ nguyên (như file đính kèm) và thêm vào Combobox nhóm hàng có "tất cả" nữa và chi kích nút "CHON" thì mã hàng, tên hàng, đơn giá được ghi vào tương ứng với cột trong sheet chi tiết.

 

[viehoai]

Bạn vẫn giữ nguyên (như file đính kèm) và thêm vào Combobox nhóm hàng có "tất cả" nữa và chi kích nút "CHON" thì mã hàng, tên hàng, đơn giá được ghi vào tương ứng với cột trong sheet chi tiết.

Bạn xem file rồi có gì nói tiếp

 

[thuanntk]

Bạn xem file rồi có gì nói tiếp

Đúng theo như theo ý mình rồi, cảm ơn bạn nhiều. Nhưng khi ở sheet chi tiết đã có dữ liệu rồi thì ghi lên thông báo yes/no ghi đè lên bàng tính, bạn giúp mình luôn nhé

 

[viehoai]

Đúng theo như theo ý mình rồi, cảm ơn bạn nhiều. Nhưng khi ở sheet chi tiết đã có dữ liệu rồi thì ghi lên thông báo yes/no ghi đè lên bàng tính, bạn giúp mình luôn nhé

Bạn thay code dưới đây
[GPECODE=vb]Private Sub Chon_Click()
Dim i As Byte
Dim Traloi
On Error Resume Next
If ActiveCell.Value <> "" Then
Traloi = MsgBox("Ban muon ghi de len khong?", vbYesNo, "Thông báo")
If Traloi = vbNo Then
GoTo Thoat
Else
GoTo Tiep
End If
Else
Tiep:
With Me.LB
'Sheet3.CB.Value = LB.Text
For i = 0 To 3
ActiveCell.Offset(, i) = .List(.ListIndex, i)
Next
End With
End If
Thoat:
Unload Me
End Sub[/GPECODE]