Lập trình số liệu Nhập-Xuất-Tồn

[hieuvietmy2020]

Kính gửi Quý Anh Chị trong diễn đàn,

Em có viết 1 đoạn code để tổng hợp số liệu Nhập-Xuất-Tồn,
+ Code Tồn đầu kỳ đã hoạt động,
+ Code Số phát sinh Nhập-Xuất-Tồn cuối kỳ, em chưa rõ bị thiếu sót ở đâu vẫn chưa chạy được ạ,
+ Điều kiện hiện tại của em chạy code: Tên hàng hóa, giả sử em cần thêm điều kiện về Đơn vị tính + Bộ Phận ở cột C&D Sheets("NXT") thì em viết thêm ra sao ạ.

Kính nhờ Quý Anh Chị hướng dẫn thêm giúp em ạ!
Em chân thành cảm ơn!

 

[hieuvietmy2020]

Em nhờ anh @HUONGHCKT hướng dẫn thêm giúp em ạ,
Giả sử khi em thay đổi điều kiện thì em chỉ cần trích lọc các dữ liệu theo điều kiện gồm: TenHH, DVT, BoPhan và Từ ngày... đến ngày...
Tương ứng với đó là Tồn đầu kỳ sẽ chạy lại Giả sử em trích lọc từ ngày 05.09 đến ngày 06.09, thì Tồn = Tồn đầu ngày 01.09 + (Phát sinh mua hàng - Phát sinh xuất hàng từ ngày 01.09 đến 04.09).
Rất mong nhận được thêm hướng dẫn từ anh ạ!

 

[HUONGHCKT]

Em nhờ anh @HUONGHCKT hướng dẫn thêm giúp em ạ,
Giả sử khi em thay đổi điều kiện thì em chỉ cần trích lọc các dữ liệu theo điều kiện gồm: TenHH, DVT, BoPhan và Từ ngày... đến ngày...
Tương ứng với đó là Tồn đầu kỳ sẽ chạy lại Giả sử em trích lọc từ ngày 05.09 đến ngày 06.09, thì Tồn = Tồn đầu ngày 01.09 + (Phát sinh mua hàng - Phát sinh xuất hàng từ ngày 01.09 đến 04.09).
Rất mong nhận được thêm hướng dẫn từ anh ạ!

Có nghĩa là lúc này tồn là tồn cuối ngày 4/9 phải không?

 

[hieuvietmy2020]

Dạ đúng rồi anh @HUONGHCKT

 

[HUONGHCKT]

Dạ đúng rồi anh @HUONGHCKT

Nếu vậy thử thay đoạn code này

Rw = .Item(tmp)
               .......
    Next i

thành

Rw = .Item(tmp)
                If DiGi Like "Ton dau ky" Or NgayPS <= DayTon Then
                    kq(Rw, 1) = kq(Rw, 1) + DL1(i, 15) + kq(Rw, 3) - kq(Rw, 5)
                    kq(Rw, 2) = kq(Rw, 2) + DL1(i, 16) + kq(Rw, 4) - kq(Rw, 6)
                End If
                If NgayPS >= FrD And NgayPS <= ToD Then
                    kq(Rw, 3) = kq(Rw, 3) + DL1(i, 11)
                    kq(Rw, 4) = kq(Rw, 4) + DL1(i, 12)
                    kq(Rw, 5) = kq(Rw, 5) + DL1(i, 13)
                    kq(Rw, 6) = kq(Rw, 6) + DL1(i, 14)
               End If
                kq(Rw, 7) = kq(Rw, 1) + kq(Rw, 3) - kq(Rw, 5)
                kq(Rw, 8) = kq(Rw, 2) + kq(Rw, 4) - kq(Rw, 6)
            End If
    Next i

Chạy thử=> Kiểm tra. (tôi chưa kiểm tra lại)