Tạo hàm trong file excel theo dõi hàng tồn kho!!!

[Overclocking]

Ðề: Rảnh rỗi mình thử xài VBA cho file này với khoảng thống kê tùy ý

Trong file trên của chủ topic, ta cần thống kê từ đầu năm đến cuối năm
Như vậy cũng có lúc không fục vụ được cho công tác quản lý đề ra
Ví dụ như ta cần biết trong tuần nào đó, hay tháng nào đó hoặc mùa nào đó tồn đầu kỳ là bao nhiêu, số lượng nhập & xuất trong kì đó bao nhiêu
Điều này VBA hoàn toàn có thể làm được.

Để tiện trong việc xài với VBA mình có chuyển đổi 1 số chi tiết thiết kế các trang tính khác với file gốc, mong các bạn chú í!

Để các bạn tiên theo dõi, mình chỉ mới thực hiện cột 'Tồn đầu kỳ'

Giả dụ trong file là ta cần báo cáo số liệu hoạt động từ 1/02/2014 cho đến 31/3/2014
Thì macro chỉ mới tính tồn đầu kỳ ngày 1/2/2014; Có nghĩa là với từng mặt hàng, mới chỉ tính khối lượng tồn đầu năm + số lượng nhập trước 1/2/2014 - số lượng xuất trước ngày 1/2/2014

Xin các bạn kiểm tra thử theo file đính kèm!

[nivodigital]

Ðề: Tạo macro trong file excel theo dõi hàng tồn kho!!!

Nếu 1 khi bạn đã chạy & kiểm tra độ tin cậy của macro, ta bước sang bước sau; Đó là viết đầy đủ macro để nó tính toán thêm những mặt hàng nhập & xuất trong kỳ;
Macro đó có nội dung sau:

[COLOR=#000000]
Option ExplicitSub NXTTrongKy[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim WF [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Object[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Cls [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range Dim Rws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long 3 Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"NXT"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Nhap"[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]5 Rws [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]B10[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]CurrentRegion[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]a10[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]7 Set WF [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]WorksheetFunction [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Each Cls In Range[/COLOR][COLOR=#007700]([[/COLOR][COLOR=#0000BB]A11[/COLOR][COLOR=#007700]], [[/COLOR][COLOR=#0000BB]A11[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700]))[/COLOR][COLOR=#0000BB]9    Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]ab4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value    Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]ac4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]g1[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value11    Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]ad4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]A6[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value    Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]WF[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]VLookup[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"DMVT"[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]False[/COLOR][COLOR=#007700]) + [/COLOR][COLOR=#0000BB]_        WF[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]DSum[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]e10[/COLOR][COLOR=#007700]], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]ab1[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]ad2[/COLOR][COLOR=#007700]]) - [/COLOR][COLOR=#0000BB]WF[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]DSum[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]f10[/COLOR][COLOR=#007700]], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]ab1[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]ad2[/COLOR][COLOR=#007700]])[/COLOR][COLOR=#0000BB]13    Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]ac4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]A6[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value    Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]ad4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]A7[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]115    Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]WF[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]DSum[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]e10[/COLOR][COLOR=#007700]], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]ab1[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]ad2[/COLOR][COLOR=#007700]])    [/COLOR][COLOR=#0000BB]Cls[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]5[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]WF[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]DSum[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]f10[/COLOR][COLOR=#007700]], [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]ab1[/COLOR][COLOR=#007700]:[/COLOR][COLOR=#0000BB]ad2[/COLOR][COLOR=#007700]])[/COLOR][COLOR=#0000BB]17 Next ClsEnd Sub[/COLOR] 

/(/hư vậy, so với macro trong file đính kèm bên trên của mình, macro này có then các dòng lệnh từ số 13 đến dòng 16

Chúc các bạn ngày cuối tuần vui vẻ!

:boilan:​

[truongnx]

Ðề: Xin diễn dịch macro từ ngôn ngữ VBA sang tiếng Việt

Hai dòng lệnh trước dòng mang số 3: Khai báo các biến để xài trong chương trình;

D3: Kích hoạt trang tính "NXT"

D4: Ta lấy trang tính 'Nhap' gán vô biến đối tượng Sh đã khai báo ở dòng 1

D5: Lấy số dòng của vùng dữ liệu xung quanh ô B10 cho vô biến Rws (khai báo ở D2)

D6: Lấy vùng bắt đầu từ [A10], mở rọng Rws dòng & 7 cột đem gán vô biện đối tượng Rng

D7: Lấy đối tượng 'Hàm Trong Excel' đem gán vô biến đối tượng WF

D8: Thiết lập vòng lặp duyệt toàn bộ các ô thuộc cột [A], nơi chứa mã hàng hóa.
Vòng lặp này kết thúc tại dòng cuối của macro;

D9: Lấy giá trị của ô đang duyệt (mã HH) gán vô ô [AB4] của trang Sh
Ô này cùng với các ô khác xung quanh nó sẽ hỗ trợ ta làm vùng chuẩn cho hàm CSDL DSUM()

D10: lấy giá trị ô [G1] của trang tính hiện hành cho vô ô [AC4]
Trị trong [G1] là ngày thấp nhất trong cột số liệu [Ngày] của trang tính Sh

D11: Tương tự, ta lấy ngày đầu tiên cần khảo sát (thống kê) cho vô [AD4]

Cả 3 dòng lệnh vừa nêu là ta không đưa các trị tương ứng trực tiếp vô vùng chuẩn [AB1:AD2], mà ta cần đến cách đưa vô gián tiếp; Lí do vì sao fải làm như vậy xin các bạn hãy tìm hiểu thêm

D12: Tính tồn đầu kì, gồm: Số tồn đầu năm (ở trang 'DanhMuc') cộng với lượng nhập trước thời điểm khảo sát (cụ thể trong file là 1/02/2014) trừ đi số lượng đã xuất của mắt hàng đang duyệt trước mốc khảo sát
(đồng nghĩa với lượng nhập & xuất trong tháng giêng!)

D13 & D14: Ta đưa 2 thời điểm bắt đầu & kết thúc khảo sát gián tiếp vô vùng chuẩn của hàm DSUM()

D15 & D16: Tính lượng nhập & xuất tương ứng trong kì của từng mặt hàng cho đến hết vòng lặp.


Chúc vui vẻ & thành công!

[atisovananh]

Ðề: Tạo hàm trong file excel theo dõi hàng tồn kho!!!



File của bạn có công thức như sau:

Bạn ơi mình làm theo công thức của bạn mà sao ko đc

[skygame]

Ðề: Tạo hàm trong file excel theo dõi hàng tồn kho!!!

đầu tiên bạn tạo hai sheet : một sheet là nhập hàng, một sheet la xuất hàng. sao đó tạo thêm một sheet co tên là nhập xuấ tôn tại sheet này tạo : tồn đầu, Nhập Trong Kỳ, Xuất Trong Kỳ, và Tồn cuoói kỳ. tại cột nhập bạn dùng hàm sụmif để tính tổng các mặt hàng nhập xuất có điều kiện như sau: sumif(vùng dò tìm, điều kiện tìm, vùng tính tổng) vùng dò tìm là mã hàng của bạn, điều kiện tìm là mặt hàng bạn muốn tính tổng, và vùng tính tổng là cột số lượng bên nhập xuất. bạn làm vậy là sẽ ra thôi nêu ko làm được thì liên hệ face book: trinhkimthanh1984@gmail.com mình sẽ hướng dẫn cho.

CHO MÌNH HỎI TỒN ĐẦU KỲ BẠN LÀM THẾ NÀO VẬY

[quanghuongit]

bạn dùng công thức: =+'tên sheet'!tên cột tổng nhập của mặt hàng đó.