File tồn kho!

[Tuấn Giang]

Hi all,

Em có file XNT kho thế này, nhưng post lên nhờ các bác tư vấn giúp nó hoàn thiện hơn. Với lại, hình như nó có vấn đề thì phải. Nhờ các bác chỉ dùm.

Thanks,

PS: File đính kèm ở #8.

 

[minhlev]

Chào bạn Giang, mình thấy file bạn viết rất hữu ích. Tuy nhiên vẫn còn một vài vấn đề nho nhỏ (theo như mình thấy) như sau:
1- Trong sheet Rep của bạn, khi ấn nút Report thì toàn bộ bảng báo cáo (từ cột A đến cột H) của bạn bị hide hết luôn.
2- Vẫn trong sheet này mình không thấy có cột lượng tồn cho từng mã vật tư mà chỉ có 2 dòng tồn đầu và tồn cuối tổng toàn bộ vật tư thôi. Cho nên theo ý mình nên đổi tên báo cáo là "Tổng hợp nhập xuất vật tư"
Hy vọng file NXT của bạn ngày càng hoàn thiện hơn.

 

[Tuấn Giang]

@ minhlev:

Cảm ơn bạn nhiều!

1- Trong sheet Rep của bạn, khi ấn nút Report thì toàn bộ bảng báo cáo (từ cột A đến cột H) của bạn bị hide hết luôn.

Đây chính là vấn đề mà mình không hiểu tại sao? Ở các file khác mình vẫn làm được, nhưng không hiểu sao file này nó chạy ra như thế?!

2- Vẫn trong sheet này mình không thấy có cột lượng tồn cho từng mã vật tư mà chỉ có 2 dòng tồn đầu và tồn cuối tổng toàn bộ vật tư thôi.

Thực ra thì mình chưa hoàn thiện nó. Nhưng mình post lên để nhận được sự đóng góp của mọi người để nó hoàn thiện hơn.

Về điều bạn nói đó, nếu bạn chọn từng vật tư, nó sẽ thể hiện tồn đầu, tồn cuối cho bạn. Còn muốn báo cáo NXT của tất cả thì mình sẽ hoàn thiện thêm.

Best regards,

 

[OverAC]

Bị hide hết là do thế này

Columns("e:g").Select
Selection.EntireColumn.Hidden = True

nhưng phía trên dòng 1 lại có mergecell từ A1:I1 nên mới thế
sửa câu trên lại thế này là ổn

Columns("e:g").Hidden = True

Anh Giang Xem lại cách advance filter để tránh phải có một doạn code lọc sản phẩm theo ngày như thế.

Điều kiện advance filter của anh như thế này sẽ làm được

Ngày CT___Ngày CT _____Mã Vật tư____________CN
=">="&D2 __="<="&D3_____=IF(D4="All","",D4)_____=IF(D6="All","",D6)

 

[OverAC]

Range("H9:I5000").Select
    Selection.Style = "Comma"
    Selection.NumberFormat = "_(* #,##0.0_);_(* (#,##0.0);_(* ""-""??_);_(@_)"
    Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"

Đoạn này anh chỉ cần lấy câu thứ 3, chứ 2 cái trước không còn tác dụng vì khi recording code mới sinh ra các câu 1 và 2 câu thứ 3 đả phủ định 2 câu trên.

Nên như thế này

Range("H9:I5000").Select
    Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"

Không thì thế này càng tốt

Range("H9:I5000").NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"

 

[minhlev]

Ngoài ra, tôi nhận thấy số lượng tồn đầu kỳ sẽ không đúng nếu tôi thay đổi ngày bắt đầu. VD: với mã hàng A31 ta thấy như sau:
- Tồn đầu kỳ(01/01/07): 223
- Nhập ngày 01/01/07: 15
- Xuất ngày 04/01/07: 50
- Tồn cuối ngày 04/01/07: 188
Tuy nhiên nếu ta chọn từ ngày 01/02/07 đến ngày 06/02/07 thì số tồn đầu kỳ vẫn là 223 và số tồn cuối kỳ không thể hiện.

 

[Tuấn Giang]

Hi all,

File này em đã chỉnh sửa. Đã khắc phục được một vài điểm mà bạn minhlev nêu ra. Mong các bạn góp ý thêm để hoàn thiện hơn.

Thanks,

PS: File đính kèm ở #8.

 

[Tuấn Giang]

Chào các bác, vẫn là file tồn kho của em. Khi chạy nó báo lỗi này có nghĩa là sao nhỉ?