Bảng tổng hợp nhập xuất tồn (1 người xem)

[DMQ]

Chào Các AC, Em có file đính kèm nhờ các AC giúp. Đây là file giả định, nhờ các AC viết code giúp em. Em có ghi rỏ ở sheet TONGHOP .

 

[DMQ]

Chào các AC, em mong các AC giúp em bài này với!!!!!

 

[DMQ]

Các AC Đại Nghĩa, Bate, Thầy NDU, Vdoi, ThuNghi, HaiYen,..... giúp em với.

 

[vodoi2x]

Chào Các AC, Em có file đính kèm nhờ các AC giúp. Đây là file giả định, nhờ các AC viết code giúp em. Em có ghi rỏ ở sheet TONGHOP .

Chú ý
Tôi làm nhanh thế này , xem file kèm, chưa có điều kiện test nhiều, bạn kiểm tra kỹ lại nhé

Bấm Ctrl+F3 để biết các ô được đặt name định vị như: DMvTON, NHAP, XUAT, KETQUA,.... -- các ô này hiện được tô màu cam

Hiện cho thêm 1 số số liệu giả định để test chương trình - số liệu bôi đỏ ở các sheet

Chương trình cho phép tính nhập xuất tồn, cả nhưng mã mà ở trong danh mục không có và cảnh báo có bao nhiêu mã như thế khi kết thúc chương trình (khi đó nên kiểm tra lại mã hàng ở nhập xuất có đúng không, hoặc cần bổ sung mã này vào danh mục hay không),

Chương trình cũng loại khỏi kết quả những hàng hoá không có (=0) ở tồn đầu kỳ, nhập, và xuất

Chú ý đọc code để hiểu về nhập dữ liệu hiệu chỉnh khi cần

Các thứ tự cột kết quả có thể thay đổi qua Enum ColRes ở đầu module

 

[DMQ]

Cám Ơn Anh vodoi2x nhiều, em đang thử kiểm tra lại!!!!

 

[vodoi2x]

Cám Ơn Anh vodoi2x nhiều, em đang thử kiểm tra lại!!!!

Tôi nhầm, do để dấu <= "từ ngày" - chính xác là < "từ ngày" để tính Tồn ĐK mà thôi, còn lại là trong kỳ, nên tôi đã sửa trong File mới kèm đây nhé, down load lại

Vẫn chú ý các điều trên:

Chú ý
Tôi làm nhanh thế này , xem file kèm, chưa có điều kiện test nhiều, bạn kiểm tra kỹ lại nhé

Bấm Ctrl+F3 để biết các ô được đặt name định vị như: DMvTON, NHAP, XUAT, KETQUA,.... -- các ô này hiện được tô màu cam

Hiện cho thêm 1 số số liệu giả định để test chương trình - số liệu bôi đỏ ở các sheet

Chương trình cho phép tính nhập xuất tồn, cả nhưng mã mà ở trong danh mục không có và cảnh báo có bao nhiêu mã như thế khi kết thúc chương trình (khi đó nên kiểm tra lại mã hàng ở nhập xuất có đúng không, hoặc cần bổ sung mã này vào danh mục hay không),

Chương trình cũng loại khỏi kết quả những hàng hoá không có (=0) ở tồn đầu kỳ, nhập, và xuất

Chú ý đọc code để hiểu về nhập dữ liệu hiệu chỉnh khi cần

Các thứ tự cột kết quả có thể thay đổi qua Enum ColRes ở đầu module

 

[DMQ]

Em đã thử thấy chưa đúng Anh vodoi2x ah!!!(Cả bài mới sửa của Anh) Ví dụ như báo cáo từ ngày 1/3/2014 đến 30/3/2014 thì mặt hàng S8VN(Sắt 8 Việt Nam) bị sai ah: SL Tồn đầu kỳ phải là 2869(anh là -1641), SL nhập trong kỳ thì đúng, SL xuất trong kỳ phải là 4510(Anh là 0) Anh có thể coi chỉnh lại giúp em!!! Ah mà Anh có làm code báo mặt hàng không có trong DM rất hay, thế Anh có thể cho nó nạp vô lại trong bảng DM được không Ah!!!.Chân thành cám ơn Anh!!!

 

[vodoi2x]

Em đã thử thấy chưa đúng Anh vodoi2x ah!!!(Cả bài mới sửa của Anh) Ví dụ như báo cáo từ ngày 1/3/2014 đến 30/3/2014 thì mặt hàng S8VN(Sắt 8 Việt Nam) bị sai ah: SL Tồn đầu kỳ phải là 2869(anh là -1641), SL nhập trong kỳ thì đúng, SL xuất trong kỳ phải là 4510(Anh là 0) Anh có thể coi chỉnh lại giúp em!!! Ah mà Anh có làm code báo mặt hàng không có trong DM rất hay, thế Anh có thể cho nó nạp vô lại trong bảng DM được không Ah!!!.Chân thành cám ơn Anh!!!

Đúng là nhầm i thành k thế là lác mắt tìm sửa

xem file mới

Còn câu hỏi thêm . thì xét cho cùng nên để người dùng tự bổ sung, vì biết đầu k phải là bổ sung mà là SAI thì sao, còn tự bổ sung là được rùi

 

[vodoi2x]

thêm file mới

thêm phương án 4 cho thông báo kết quả đẹp hơn

Các chú ý như bài đầu đã nói,

Không có điều kiện test nhiều, vậy bạn test kỹ, có gì cứ hỏi tại đây

 

[DMQ]

Cám ơn Anh vodoi2x nhiều !!!Đúng rồi ah. Hai nút Run và Xoa không phải là commandButton (lá Shape) mà sao click chạy ngon lành vậy Anh. ANh chỉ cách làm cho em với???

 

[vodoi2x]

Cám ơn Anh vodoi2x nhiều !!!Đúng rồi ah. Hai nút Run và Xoa không phải là commandButton (lá Shape) mà sao click chạy ngon lành vậy Anh. ANh chỉ cách làm cho em với???

Thì bạn vẽ 1 shape, nháy phải lên shape đó --> assign Macro ... chọn sub muốn thực hiện, thế là xong

 

[DMQ]

Anh Vodoi2x ơi, Anh có Anh có thể chỉnh code cho hiện luôn những mặt hàng mà có SL tồn(nhập, xuất ) = 0 dùm em đi anh(#6, anh nói là không hiện). Vì để đối chiếu với người khác không bị nhảy dòng. Mong ANh và các AC giúp đỡ!!!

 

[caphemua]

em khong the tai duoc file nay, anh chi nao giup em voi a

 

[HUONGHCKT]

Tự dong gn dữ liệu theo cột

Kính gửi các anh chị trên diễn đàn GPE!<BR>Tôi muốn tổng hơp Nhập và Xuất LTTP hàng ngày để tính lượng tồn kho cuối mỗi ngày (sẽ tự dộng hiện ở cột D và E). Nếu copy sang thi dũ liệu của ngày hôm trước lại không tồn tại. Do trang NX LTTP hàng ngày là trang tính toán (chi có 1 trang này thôi-số liệu tự động tính toán khi đánh số ngày và quân số ăn). kiến thức về VBA và tiếng Anh của tôi hoàn toàn là " L-T-M". Mong các anh chị trên diễn dàn viết code giúp. Trân trọng cảm ơn nhiều!<BR>Các yêu cầu tôi đã viết trong file đính kèm. Máy tôi dùng excel 2003

 

[ChanhTQ@]

/(hông chắc là đã đúng í của bạn.

 

[HUONGHCKT]

Cảm ơn Anh ChanhTQ@ nhiều nhiều, Đây đúng lag cái tôi đang rất cần, Nếu có thể cho số điện thoại và địa chi để liên lạc thì tốt biết mấy. Nhân đây đây cũng nhờ anh hoàn thiện cho một yêu cầu nhỏ nữa nhé. Dó là ngày tự nó nhập vào sheet NHAP -XUAT và chi can 1 nut "GHI" là nó cho số liệu và cả 2 sheet NHAP -XUAT

 

[SA_DQ]

Vì bạn đã tách ra ngay từ đầu thành 2 nút lệnh, nên tạm xài cái này đi;

Sẽ viết lại 1 nút lệnh cho tất cả.

 

[HUONGHCKT]

Vì bạn đã tách ra ngay từ đầu thành 2 nút lệnh, nên tạm xài cái này đi;

Sẽ viết lại 1 nút lệnh cho tất cả.

Cảm ơn bạn nhiều!
Tôi đã định dạng lại ô H2 của sheet "N-X LTTP hang ngay" rồi (đã sửa cả trong co de) - chạy tốt. Nhưng có một vấn đề là khi đưa công thức tính thành tiền của cột H (= SL*giá) và cột O thì ở sheet Nhap và XUAT chi ra công thức thôi (= 2 ô liền kề phía trước nhân nhau) chứ không ra được số như ở sheet N-X LLTTP...Và có cách nào hoặc bằng công thức hoặc bằng code để tính lượng tồn kho đến một ngày nào đó theo chỉ định ở 1 ô nào đó (ngày này ở phía trước ngày hiện tại đang nhập (có thể 1, 2,... ngày ). Mong các anh chị trên diễn đàn giúp tôi với. Trân trong cảm ơn!

 

[SA_DQ]

Thêm cả 2 iêu cầu của bạn đây;

Xem trong file:

 

[SA_DQ]

Ta tạm dừng chuyện này:

Và có cách nào hoặc bằng công thức hoặc bằng code để tính lượng tồn kho đến một ngày nào đó theo chỉ định ở 1 ô nào đó (ngày này ở phía trước ngày hiện tại đang nhập (có thể 1, 2,... ngày ). Mong các anh chị trên diễn đàn giúp tôi với.

lại cái đã;
Cái mà mình muốn thảo luận với bạn bây giờ là cấu trúc CSDL của bạn

Các trang tính 'Nhap' & 'Xuat' sao bạn không xoay ngang lại
Trang tính luôn có số cột ít hơn số hàng; Mà dữ liệu của bạn thì số lương thực, thực fẩm thì không nhiều, số ngày thì mình chưa rõ, nhưng có thể dùng để xài có cả 1 năm dữ liệu trở lên sẽ có vấn đề ngay.
Theo mình để tính lượng tồn tiền của ngày hôm trước với câu trúc hiện nay sẽ khó hơn trang tính ta xoay đi 90 độ
Nếu vậy có trỡ ngại gì đến các trang tính khác hay không?
Bạn có thể nêu các trỡ ngại đó ra để bàn cách khắc fục.
Chuyện xoay sẽ có người giúp bạn hoàn toàn, bạn đồng í không?

Một chuyện khác nữa, là các loại lương thực, thực fẩm nên có mã, nhưng để bàn sau. . . .

Chờ tin từ bạn.

 

[HUONGHCKT]

Ta tạm dừng chuyện này:

lại cái đã;
Cái mà mình muốn thảo luận với bạn bây giờ là cấu trúc CSDL của bạn

Các trang tính 'Nhap' & 'Xuat' sao bạn không xoay ngang lại
Trang tính luôn có số cột ít hơn số hàng; Mà dữ liệu của bạn thì số lương thực, thực fẩm thì không nhiều, số ngày thì mình chưa rõ, nhưng có thể dùng để xài có cả 1 năm dữ liệu trở lên sẽ có vấn đề ngay.
Theo mình để tính lượng tồn tiền của ngày hôm trước với câu trúc hiện nay sẽ khó hơn trang tính ta xoay đi 90 độ
Nếu vậy có trỡ ngại gì đến các trang tính khác hay không?
Bạn có thể nêu các trỡ ngại đó ra để bàn cách khắc fục.
Chuyện xoay sẽ có người giúp bạn hoàn toàn, bạn đồng í không?

Một chuyện khác nữa, là các loại lương thực, thực fẩm nên có mã, nhưng để bàn sau. . . .

Chờ tin từ bạn.

Cảm ơn bạn nhé!
Xoay 90 độ lại bảng "NHAP" &"XUAT". Đây đúng là vấn đề mình không nghĩ đến, bởi vì mình chỉ thấy để cột thì nó trùng với bến Sheet "N-X LTTP...". Mà sheet "N-X LTTP" mình phải để ngang-không thể không đúng mẫu được.
Có cách nào không, Các bạn giúp mình với. Mình đang rất cần.
Còn vấn đề code hình như chỉ chạy dược 1 lần. Thêm ngày khác thì báo lỗi ở dòng mình bôi đỏ đậm dưới đây
......
MyFormat = Rng.NumberFormat
Rng.NumberFormat = "MM/DD/yyyy"
Rws = Rng.CurrentRegion.Rows.Count
.......
Ô h2 ở sheet "N-X LTTP" mình luôn định dạng là kiểu Việtnam "14 tháng 3 năm 2001".
Nếu bạn nào biết cho thêm cả thứ vào nữa thì thật tuyệt vời.
Giúp mình với nhé, Cảm ơn nhiều!!!
Mong chờ tin các bạn

 

[SA_DQ]

Còn vấn đề code hình như chỉ chạy dược 1 lần. Thêm ngày khác thì báo lỗi ở dòng mình bôi đỏ đậm dưới đây
......
MyFormat = Rng.NumberFormat

Tạm thời bạn thử vô hiệu hóa dòng lệnh đó đi; Bằng cách thêm dấu nháy đơn vô đầu dòng lệnh.
& nhớ vô hiệu hóa dòng lệnh tương tự cuối macro:

'Rng.NumberFormat = MyFormat

Tạm thời là vậy, trong khi chờ . . . . .

 

[HUONGHCKT]

Tạm thời bạn thử vô hiệu hóa dòng lệnh đó đi; Bằng cách thêm dấu nháy đơn vô đầu dòng lệnh.
& nhớ vô hiệu hóa dòng lệnh tương tự cuối macro:

'Rng.NumberFormat = MyFormat

Tạm thời là vậy, trong khi chờ . . . . .

Nhưng nếu vô hiệu dòng đó thì lại lỗi ở dòng tiếp theo. Khẩn thiết mong các anh chị giúp đỡ. Trân trọng cảm ơn!

 

[SA_DQ]

Bạn thử xài bảng mình đã xoay ngang này xem có lỗi như thế nào?

 

[HUONGHCKT]

Cảm ơn bạn HYen17! Mình xem rồi, đúng ý mình rồi, nhưng cho hỏi thêm 1 tý nữa nhé:
- sao nó không chép luôn danh mục LTTP vào dòng 4 (bỏi vì khi mình cần thêm thì lại phải copy sang cả hai bảng (cũng có khi quên).
- Khị chèn thêm dòng ở bảng "N-X LTTP.." thì nó không gán số liệu dòng tổng cộng.
Bạn làm hộ mình với theo hướng là khi thêm tên LTTP vào thì nó tự gán vào dòng 4 của sheet "NHAP"&"XUAT". Và khi chèn thêm dòng ở bảng "N-X LTTP.." thì nó tự động chèn thêm cột ở sheet "NHAP"&"XUAT", như thế cột tổng cộng cũng được gán số liệu theo.
Ở ô H2 bạn có thể cho nó hiện cả là ngày thứ mấy trong tuần được không?
Giúp mình với nhé, sắp có đoàn kiểm tra của Phòng và Sở GD rồi.
Mình cảm ơn bạn nhiều!

 

[ChanhTQ@]

Mình xem & đúng ý mình rồi, nhưng cho hỏi thêm 1 tý nữa nhé:
(1) - sao nó không chép luôn danh mục LTTP vào dòng 4 (bỏi vì khi mình cần thêm thì lại phải copy sang cả hai bảng (cũng có khi quên).
(2)- Khị chèn thêm dòng ở bảng "N-X LTTP.." thì nó không gán số liệu dòng tổng cộng.
Bạn làm hộ mình với theo hướng là khi thêm tên LTTP vào thì nó tự gán vào dòng 4 của sheet "NHAP"&"XUAT". Và khi chèn thêm dòng ở bảng "N-X LTTP.." thì nó tự động chèn thêm cột ở sheet "NHAP"&"XUAT", như thế cột tổng cộng cũng được gán số liệu theo.
(3) Ở ô H2 bạn có thể cho nó hiện cả là ngày thứ mấy trong tuần được không?

(1): Xong;

(3): Xem trong trang tính; Nếu không ưng vậy thì tham khảo & tự sửa đổi.

(2): Làm cho bạn cũng được; Nhưng bạn sinh lười, sau này chũng loại LTTF tăng lên, bạn sẽ sai mà không biết tại sao; Cho nên việc này bạn nên làm bằng tay:

Dời cột công thức tổng này sang fải đến độ zôi an toàn;
FillDown công thức hàng tuần để bảo đảm an toàn & toàn vẹn lãnh thổ trang tính CSDL của bạn!

(4) Bạn cho biết kỹ hơn về tồn ngày hôm trước là sao?
Có fải cộng dồn từ đầu tháng (năm) hay chỉ là số dư của ngày hôm trước?

Chúc vui!

 

[HUONGHCKT]

Em trân trọng Cảm ơn Bác ChanhTQ@ rất nhiều! Bác đã giúp em để em có sổ kịp thời cho đoàn kiểm tra. Tồn ngày hôm trước là số dư của ngày hôm + nhập hôm trước-Xuất hôm trước. Phần này Em đang phải làm thủ công cho kịp. Nhưng E nghĩ có thể dùng hàm Hlookup để dò tham chiếu vào Sheet "Nhap"&"xuất" là có thể được (E chưa thử). Không biết E nghĩ vậy có đúng không? Nếu có cao kiến gì Bác chỉ gùm cho Em với nhé.
Bác cho Em xin thêm đoạn code để "GHI và thoát" vào một nút nữa bác nhé!

 

[ChanhTQ@]

(1) Tồn ngày hôm trước là số dư của ngày hôm + nhập hôm trước-Xuất hôm trước. Phần này Em đang phải làm thủ công cho kịp. Nhưng E nghĩ có thể dùng hàm Hlookup để dò tham chiếu vào Sheet "Nhap"&"xuất" là có thể được (E chưa thử). Không biết E nghĩ vậy có đúng không? Nếu có cao kiến gì Bác chỉ gùm cho Em với nhé.

(2) Bác cho Em xin thêm đoạn code để "GHI và thoát" vào một nút nữa bác nhé!

(1) Mình sẽ thực hiện với khái niệm:
Số tiền dư ngày hôm trước sẽ bằng số dư đầu kì (từng mặt hàng, hiễn nhiên rồi!) cộng thêm số nhập từ đầu kì đến trước ngày khảo sát & trừ đi số xuất trong những ngày í.

Tuy nhiên để bạn tiện kiểm tra từng bước, mình mới làm fần đầu (nghĩa là chưa có fần xuất trước kì)

Cách kiểm tra:

(Bạn cần gỏ ngày khảo sát vô [H2] & {ENTER}; Macro sẽ tính số liệu cho bạn)
File đang có số liệu tồn trước ngày 5/09, thực ra đây là số liệu tồn đầu kỳ, vì trước ngày 5/09 ta không giao dịch mua bán.

Bạn gỏ vô [H2] tăng thêm 1 ngày & kiểm tra số liệu xem thử
Khi nào số đã đúng ta sẽ sang bước sau

 

[HUONGHCKT]

Em Cảm ơn Bác ChanhTQ@ rất nhiều!
E kiểm tra rồi rất đúng với cách E phải làm rồi: Tồn hôm trước = Dư đầu kỳ + lũy kế nhập đến ngày cần tính- Lũy kế xuất đến ngày ấy.
Bác cố giúp E cho trọn vẹn bác nhé.
Mong tin Bác nhiều!
Trân trọng !

 

[ChanhTQ@]

Em Cảm ơn Bác ChanhTQ@ rất nhiều!
E kiểm tra rồi rất đúng với cách E phải làm rồi: Tồn hôm trước = Dư đầu kỳ + lũy kế nhập đến ngày cần tính- Lũy kế xuất đến ngày ấy.
Bác cố giúp E cho trọn vẹn bác nhé. Mong tin Bác nhiều!
Trân trọng !

Thật ra mình làm xong từ trước khi đưa file lên; Nhưng e rằng bạn rối khi kiểm tra thôi.
Mà bạn kiểm lâu thật í!

Chúc ngày cuối tuần vui vẻ.

(Bạn nhấn 'OK' để mình còn tháo file bài trước; thu hồi tài nguyên.)

 

[HUONGHCKT]

Cảm ơn Bác ChanhTQ@ nhiều nhiều!
Em đã nhận được file bác gủi cho em. Thật đúng ý E- Bác thật là tuyệt vời. Nhưng cho em hỏi là có thể làm để truy ngược lại được không? Bởi vì các ô của phần ăn bán trú và ăn Ko bán trú em làm bằng hàm VLOOKUP, trên cơ sở thực đơn và định lượng được thiết lập từ trước. Chỉ có phần nhập (gồm các ô từ B12-B19-LT+chất đốt +gia vị khô mua sẵn 1 lần) là phải nhập vào bằng bàn phím, còn các ô từ B20=O20 ....Khi truy ngược lại các ô nhập vào có tự gán số liệu từ sheet "NHAP" để thể hiện lại trang tính của ngày cần truy ko? Nếu làm được thì Bác giúp Em với.
Trân thành cảm ơn Bác!

 

[ChanhTQ@]

Đọc câu này muốn hụt hơi, lấy sức đâu để hiểu đây hở trời!
[thongbao] Chỉ có phần nhập (gồm các ô từ B12-B19-LT+chất đốt +gia vị khô mua sẵn 1 lần) là phải nhập vào bằng bàn phím còn các ô từ B20- B..) là bằng phần chi những ô này khi truy ngược cũng tự có số liệu-chỉ các ô nhập vào có tự gán số liệu từ phần Nhạp để thể hiện lại trang tính của ngày cần truy lại hay không?[/thongbao]

 

[ChanhTQ@]

Đọc câu này muốn hụt hơi, lấy sức đâu để hiểu đây hở trời!
[thongbao] Chỉ có phần nhập (gồm các ô từ B12-B19-LT+chất đốt +gia vị khô mua sẵn 1 lần) là phải nhập vào bằng bàn phím còn các ô từ B20- B..) là bằng phần chi những ô này khi truy ngược cũng tự có số liệu-chỉ các ô nhập vào có tự gán số liệu từ phần Nhạp để thể hiện lại trang tính của ngày cần truy lại hay không?[/thongbao]

 

[HUONGHCKT]

Cảm ơn Bác ChanhTQ@ nhiều nhiều!
Em đã nhận được file bác gủi cho em. Thật đúng ý E- Bác thật là tuyệt vời. Nhưng cho em hỏi là có thể làm để truy ngược lại được không? Bởi vì các ô của phần ăn bán trú và ăn Ko bán trú em làm bằng hàm VLOOKUP, trên cơ sở thực đơn và định lượng được thiết lập từ trước. Chỉ có phần nhập (gồm các ô từ B12-B19-LT+chất đốt +gia vị khô mua sẵn 1 lần) là phải nhập vào bằng bàn phím, còn các ô từ B20=O20 ....Khi truy ngược lại các ô nhập vào có tự gán số liệu từ sheet "NHAP" để thể hiện lại trang tính của ngày cần truy ko? Nếu làm được thì Bác giúp Em với.
Trân thành cảm ơn Bác!

 

[ChanhTQ@]

[B19] đang là 'tỏi củ'
Theo mình hiểu thì từ dòng 12 đến dòng 19 này là cần tính 'Tồn hôm trước'; Còn dưới đó thì không cần tính nữa, fải không?

Ngược lại, khi chép sang 'Nhap' hay 'Xuat' thì chỉ chép số liệu trên dòng 20 của chúng thôi, fải không?
Còn lại là tính theo định suất ghi trên các dòng 4 & 5?

???

 

[HUONGHCKT]

Ý Em là các dòng từ 12 -19 là cần truy ngược còn các dòng từ 20 đến ... thì nó tự bằng với tổng xuất rồi. và như thế số tồn hôm trước cũng thể hiện được.
Em copy code của bác sang file của E và chèn thêm 2 dòng phía trên dòng 9 nhưng không chay được-nó báo lỗi . Em sửa thành
.......
[aa4].Value = Nh.[a1].Value '<-|Ngày Luu Tòn'
[ab4].Value = Target.Value '''Nh.Cells(2, Cls.Row - 10).Value '_
Cls.Offset(, 3).Value = WF.DSum(nRg, nRg(1).Offset(, Cls.Row - 13), [AA1:AB2]) - WF.DSum(xRg, xRg(1).Offset(, Cls.Row - 13), [AA1:AB2]).
nó vẫn báo lỗi ở dòng E bôi đỏ, E không biết sửa, đành theo gợi ý của bác ở ô AA6 để tính cũng tính được bác ạ.
Cảm ơn bác nhiều!