Chào bạn mình là thành viên của diễn đàn Webketoan, mình đã đọc nhiều bài viết của bạn trên forum thấy rất có ích, bạn là người hiểu rất sâu về VBA. Mình có việc này rất mong bạn giúp đỡ, mình không biết nhiều về VBA.
Bài viết hơi dài mong bạn đọc hết để hiểu ý tưởng của mình. (bài đăng trên forum tại: )
Công ty mình có nhiều cửa hàng, mình có nhiệu vụ theo dõi việc xuất hàng từ kho của công ty cho các cửa hàng này. mỗi tuần có ít nhất 2 lần xuất hàng, số lượng hàng xuất trong mỗi tuần được in trên một cột, hàng xuất trong mỗi tháng đựơc theo dõi trên một sheet (file "XUAT DO TAP PHAM.XLS"). Hàng ngày mình nhận order từ các cửa hàng gửi lên công ty, căn cứ vào đó và vào kế hoạch đặt hàng đầu tháng của các cửa hàng mình sẽ xuất hàng. Mình thường dùng công cụ Find and Replace để tìm mã hàng cần xuất sau đó dóng hàng cho đúng cột tương ứng với cửa hàng đã order. Việc này rất mất thời gian và dễ nhầm lẫn. Mình mong bạn giúp mình xây dựng một form nhập liệu.
Trong file gửi kèm "XUAT DO TAP PHAM.XLS", mình phác thảo một form, ý tưởng của mình là mỗi khi muốn nhập liệu cho của hàng nào thì chọn tên của hàng đó trong Combox "cob_NameOutlet" và ngày xuất hàng trong Combox "cob_Date", một Listbox "lstView" dùng để hiển thị tất cả các mặt hàng có trong sheet, các cột của listview thể hiện các cột trong sheet đang theo dõi bao gồm các cột: Mã hàng, tên hàng, tồn đầu, tồn cuối và các cột dl tương ứng với tên cửa hàng đang theo dõi là các cột: Số KH, Số còn trong KH, W1... W5. Mỗi khi mình đưa dữ liệu vào combobox "cob_code" ngay lập tức chương trình sẽ so sánh với dữ liệu ở cột A(cột chứa mã hàng) của sheet cần nhập liệu nếu trùng thì chương trình sẽ đọc dữ liệu từ các cột tên hang, tồn đầu, tồn cuối và cột Số KH, Số còn trong KH của cửa hàng tương ứng đồng thời hàng tương ứng với mã hàng đó trong Listbox "lstView" cũng được tô sáng. Từ dữ liêu đó hiển thị lên các đối tượng tương ứng trên form nhập liệu, người dùng sẽ nhập số lượng hàng xuất vào các textbox Xuất tuần 1...i tương ứng với tuần đang xuất hàng, nếu tuần đang xuất hàng là i>1 thì các textbox "txtXuatj" (với 1<= j <i) sẽ đặt thuộc tính Locked và hiển thị slg xuất trong tuần tương ứng, txtXuat thứ j chỉ hiển thị (Visible=true) khi j<=i. Nếu trong tuần đó hàng cần xuất đã đc xuất ít nhất một lần thì sau khi nhấn button "update" chương trình sẽ tự động cộng giá trị cũ với giá trị mới nhập vào và ghi vào ô tương ứng trong bảng tính.
Người dùng có thể click vào một hàng trong lisbox "lstView" dữ liệu tương ứng sẽ đc hiển thị lên các control tương ứng trên form như: mã hàng, tên hàng, tồn đầu .v..v....
Button "Edit" dùng để chỉnh sửa số lượng xuất của các tuần, lệnh undo dùng để undo lệnh update gần nhất.
Mình đã post bài này trên diễn đàn để mọi người cùng giúp đỡ
Bạn có thể giúp mình upload file đính kèm này lên diễn đàn cho các bạn tham khảo không.
Thank!
Lê Hùng Thắng
mailto:
hungthangdl@yahoo.com
hungthangdl@gmail.com
