Code tính tổng xuất và số lượng còn lại

[LuuAnh980]

Chào các anh chị !!!!
Em có file này nhờ các anh chị viết code tính tổng xuất ở cột M của sheet "DonHang" theo Đơn Hàng - Số hóa đơn - mã số.
Cột N là số lượng còn lại = SL yêu cầu trừ SL Xuất.
Trong file hai cột này em dùng công thức.
Mong các anh chị viết code thay công thức và khi mở sheet"DonHang" là chạy code chohai cột M và N ạ.
(trong file em có được anh @bebo021999 viết code cho trong sheet"Xuat" và sheet"DonHang").

 

[Hoàng Tuấn 868]

Trong file hai cột này em dùng công thức.
Mong các anh chị viết code thay công thức

Trong file mình thấy bạn đang dùng công thức bình thường, có điều là không nên chọn toàn bộ cột như vậy sẽ bị chậm thôi, ngoài ra có vấn đề gì đâu mà cần chuyển sang dùng code nhỉ?

 

[LuuAnh980]

Ủa sao kỳ vậy anh @bebo021999 ơi.
Em mới gõ đại số nào vào cột mã số của cả hai sheet"Xuat"và "DonHang" đều chạy ra cột diễn giải hết vậy anh.
Ví dụ em gõ số 1, code cũng chạy ra cột Diên giải.
Tới anh @Hoàng Tuấn 868 , em thấy file em cỡ 800 dòng, mà khi gõ mã số vào phải 3-4 giây sau mới nhảy ra diễn giải anh ơi.

Bài đã được tự động gộp: 2/10/22

 

[Hoàng Tuấn 868]

Tới anh @Hoàng Tuấn 868 , em thấy file em cỡ 800 dòng, mà khi gõ mã số vào phải 3-4 giây sau mới nhảy ra diễn giải anh ơi.

Không hiểu bạn nói file nào, thử đính kèm lên với 800 dòng xem sao.

 

[snow25]

Ủa sao kỳ vậy anh @bebo021999 ơi.
Em mới gõ đại số nào vào cột mã số của cả hai sheet"Xuat"và "DonHang" đều chạy ra cột diễn giải hết vậy anh.
Ví dụ em gõ số 1, code cũng chạy ra cột Diên giải.
Tới anh @Hoàng Tuấn 868 , em thấy file em cỡ 800 dòng, mà khi gõ mã số vào phải 3-4 giây sau mới nhảy ra diễn giải anh ơi.

Bài đã được tự động gộp: 2/10/22

View attachment 281597

Code dùng Find thì giống như bạn tìm kiếm bằng ctrl+F.Nó ra số tương đối là đúng rồi.Còn nếu dữ liệu nhiều thì dùng Dictionary và lưu dữ dic lại.

 

[LuuAnh980]

Vậy anh @snow25 viết code dùng Dic giúp em với. !!!!!

 

[Hoàng Tuấn 868]

Vậy anh @snow25 viết code dùng Dic giúp em với. !!!!!

Vậy là bạn này bỏ qua những ý kiến còn lại mất rồi.

 

[LuuAnh980]

Xin lỗi anh @Hoàng Tuấn 868 , file thực của em là file của công ty, nên em không dám đưa lên, trong file thì sheet DanhMuc có 1937 dòng, sheet Xuất theo tháng chỉ có 765 dòng, em đang tính gõ giả định để đưa lên. Nhưng nhiều quá, gõ không nổi.Mong anh thông cảm.

 

[snow25]

Vậy anh @snow25 viết code dùng Dic giúp em với. !!!!!

Dạo này bận lắm bạn.Nên không code được đâu.

 

[LuuAnh980]

Các anh giúp em với.

 

[TongDe]

Số phiếu, lượng yêu cầu ... lấy ở đâu ?
Đây là vài dòng code đơn giản cho bạn ngâm cứu
Nhấn nút Clear , run ...

 

[LuuAnh980]

code của anh @Tống Văn Đệ chỉ bê nguyên xuất qua đơn hàng chứ không tính tổng.

 

[TongDe]

code của anh @Tống Văn Đệ chỉ bê nguyên xuất qua đơn hàng chứ không tính tổng.

Thay bằng đoạn ruột này:

    With CreateObject("ADODB.Recordset")
        .Open ("Select f3,'',f4,'',f5,'','','','',sum(f9) From [Xuat$c2:k] group by f3,f4,f5" _
        ), "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=No"""
        Sheet3.Range("d20").CopyFromRecordset .DataSource
    End With

 

[LuuAnh980]

Code của anh @Tống Văn Đệ đã tính tổng xuất đúng rồi, mong anh ghép vào phần trên của em với. Ghép vào cột M của em với (thế công thức bằn code ạ)

 

[TongDe]

Thêm số lượng yêu cầu vào sheet DanhMuc, có thể có nhiều đợt thì Sum lại tại cột J
Thêm số lượng xuất,
Khi active Sheet DonHang code sẽ RUN