Kho Nhập hàng Có 10 Bạn (Số bạn có thể thêm hoặc bớt) Nhập 10 mã hàng

Chào bạn bài toán này là bài toán tính tổng có điều kiện bạn sử dụng hàm sumifs nhé:
https://gitiho.com/blog/cach-dung-ham...

Thầy cho em hỏi criteria là date thì tính như nào ạ. Ví dụ em muốn tính Từ ngày 10/2 đến 12/3 Sản phẩm “A” Bạn Lan bán được bao nhiêu cái

Chào bạn với bài toán này bạn cần tính như sau: từ khoảng thời gian đến khoảng thời gian: =sumifs(soluong,sanpham,tensanpham,khoangthoigian">="&ngaybatdau,khoangthoigian"<="&ngayketthuc)
Với
soluong là vùng bạn cần tính tổng
tensanpham là sản phẩm A
ngaybatdau là khoảng thời gian từ ngày : 10/02
ngayketthuc là khoảng thời gian từ ngày : 12/03

Thay co the viet giup em doan code do ko a. Em loay hoay mai ma toan bi bao loi

Bạn nên dùng cách sau:
- Đầu tiên viết công thức tính trực tiếp trên excel tại dòng đầu tiên trong báo cáo (ví dụ báo cáo theo 10 mã hàng thì bạn đặt công thức ở dòng mã hàng đầu tiên).
- Sau đó bạn dùng VBA cho các thao tác:
1. Tìm dòng cuối (xác định tới dòng chứa mã hàng thứ 10)
Tham khảo:
https://blog.gitiho.com/tim-dong-cuoi...
2. lệnh Filldown công thức từ dòng đầu tiên tới dòng cuối:
Range("B" & DongDau & ":B" & DongCuoi).Filldown
3. copy công thức giữ nguyên kết quả (tính từ bên dưới dòng đầu tới dòng cuối):
Range("B" & DongDau +1 & ":B" & DongCuoi).Value = Range("B" & DongDau +1 & ":B" & DongCuoi).Value
Tham khảo:
https://gitiho.com/blog/huong-dan-cac...
Như vậy bạn không cần viết hàm SUMIFS trong VBA mà vẫn tận dụng được hàm này.

Có 2 sheet bao gồm Sheet3 và Sheet9
Giá trị cần tính là tại Sheet3 được tính theo hàm sumifs với nội dung như sau

Tại Sheet 3 tính tổng từ G5 đến dòng G cuối với 3 điều kiện sau
- Từ E5 đến E cuối bằng giá trị E3 tại Sheet 9
- Từ Từ D5 đến D cuối bằng giá trị ngày be hơn hoặc bằng Ngày trong Sheet 9 ô F5
- Từ Từ D5 đến D cuối bằng giá trị ngày lớn hơn hoặc bằng Ngày trong Sheet 9 ô E5
- Giá trị từ hàm sumif được gán vào ô G dòng cuối trong Sheet9

Hàm viết như sau nhưng không chạy được. Mong thầy chỉnh sửa giúp

Sub Tinh_KLNDet()
Dim kl_ndtheongay As Long
Dim dcnd As Long

kl_ndtheongay = WorksheetFunction.SumIfs(Sheet3.Range("G5:G&dcnm +1"), Sheet3.Range("E5:E&dcnm +1"), " = " & Sheet9.Range(E3).Value, Sheet3.Range("D5:D&dcnm +1"), " <= " & Sheet9.Range(f5).Value, Sheet3.Range("D5:D&dcnm +1"), " <= " & Sheet9.Range(e5).Value)

dcnd = Sheet9.Range("D" & Rows.Count).End(xlUp).Row



Sheet9.Range("g" & dcnd + 1).Value = kl_ndtheongay
End Sub

Bạn chú ý cú pháp chỗ này:
Sheet3.Range("G5:G" & dcnm +1)
"<=" & Sheet9.Range("F5)".Value
Bạn viết chưa đúng cách viết Range nên code đang lỗi, không chạy ra kết quả được.