Chào mừng đến với Diễn đàn Dân Kế Toán - Kế toán tổng hợp thực tế.
Trang 3 của 3 Đầu tiênĐầu tiên 123
Kết quả 21 đến 26 của 26
  1. #21
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: 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!

  2. #22
    Ngày tham gia
    Nov 2015
    Bài viết
    0
    Ðề: 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:



    Mã nguồn PHP:
    [COLOR=#000000]
    Option Explicit Sub 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]Value 11 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]1 15 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 Cls End 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:​

  3. #23
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: 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!

  4. #24
    Ngày tham gia
    May 2016
    Bài viết
    9
    Trích dẫn Gửi bởi Daniel
    Ðề: 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

  5. #25
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi songbien
    Ðề: 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

  6. #26
    Ngày tham gia
    Nov 2015
    Bài viết
    3
    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 đó.

 

 
Trang 3 của 3 Đầu tiênĐầu tiên 123

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •