Giúp mình tính tổng sản phẩm theo từng ngày

[dongthao]

Xin chào mọi người.
Mình có đề bài như sau, mong mọi người giải đáp. Trong file excel đính kèm :
Cột Pro.Pl là số lượng của tất cả các sản phẩm theo từng ngày
Tại cột Prod.Qty, mình muốn tính tổng sản lượng của các mã theo từng ngày.
Hiện tại thì mình đang áp dụng công thức sumproduct đơn thuần, nên file chạy rất nặng. Nhiều khi máy tính bị treo.
Mình mong muốn sử dụng VBA để có thể tính nhanh được số lượng sản phẩm theo từng ngày vào sheet Pro Qty

 

[Phuocam]

1. Thử thay bằng SUMIFS

2. Xóa công thức tại A1 -> lỗi tham chiếu vòng.

 

[Ba Tê]

Cột Pro.Pl là số lượng của tất cả các sản phẩm theo từng ngày
Tại cột Prod.Qty, mình muốn tính tổng sản lượng của các mã theo từng ngày.
Hiện tại thì mình đang áp dụng công thức sumproduct đơn thuần, nên file chạy rất nặng. Nhiều khi máy tính bị treo.
Mình mong muốn sử dụng VBA để có thể tính nhanh được số lượng sản phẩm theo từng ngày vào sheet Pro Qty

Bạn kiểm tra lại dữ liệu cột C sheet "Prod.Pl" rồi chạy thử code này xem sao.

 

[dongthao]

Cám ơn bạn nhiều nhé.
Hàm chạy đúng rồi.

mình có xem qua hàm của bạn, thì mục '.Resize(, 3) ý nghĩa là sao vậy ?
Nhờ bạn giải thích giúp m nhé

 

[huonglien1901]

Cám ơn bạn nhiều nhé.
Hàm chạy đúng rồi.

mình có xem qua hàm của bạn, thì mục '.Resize(, 3) ý nghĩa là sao vậy ?
Nhờ bạn giải thích giúp m nhé

Resize
Cú pháp:
PHP:Sao chép.
Range.Resize([RowSize],[ColumnSize])
RowSize: Số dòng dãn ra so với cell đầu tiên của vùng tham chiếu gốc.
- Nếu không nhập thì RowSize=Range.Rows.Count, cú pháp khi đó:
PHP:Sao chép.
Range.Resize(, ColumnSize)
ColumnSize: Số cột dãn ra so với cell đầu tiên của vùng tham chiếu gốc.
- Nếu không nhập thì ColumnSize=Range.Columns.Count, cú pháp khi đó:
PHP:Sao chép.
Range.Offset(RowSize)

 

[dongthao]

Bạn kiểm tra lại dữ liệu cột C sheet "Prod.Pl" rồi chạy thử code này xem sao.

Cám ơn bạn nhiều nhé.
Hàm chạy đúng rồi.

mình có xem qua hàm của bạn, thì mục '.Resize(, 3) ý nghĩa là sao vậy ?
Nhờ bạn giải thích giúp m nhé

 

[alonelove]

Cám ơn bạn nhiều nhé.
Hàm chạy đúng rồi.

mình có xem qua hàm của bạn, thì mục '.Resize(, 3) ý nghĩa là sao vậy ?
Nhờ bạn giải thích giúp m nhé

Tui đọc thì hiểu nôm na là .resize(,3): Tính từ cột hiện hành sang phải thêm 3 cột nữa

 

[befaint]

mục '.Resize(, 3) ý nghĩa là sao vậy

Đọc thuộc tính Resize ở bài này:
https://www.giaiphapexcel.com/diendan/threads/bài-6-range-cells.130603/

 

[dongthao]

Chào ngày mới mọi người.
Ở Sheet Data, thì mỗi sản phẩm sẽ sử dụng 1 lượng linh kiện nhất định,
Mình muốn tính tổng số linh kiện dùng cho từng sản phẩm sản xuất hàng ngày.

Nhờ mọi người giúp mình viết code VBA để tính được sản lượng theo từng linh kiện trong sheet Data nhé
Cảm ơn mọi người .

 

[dongthao]

Nhờ mọi người giải đáp giúp nhé.

 

[Ba Tê]

Nhờ mọi người giải đáp giúp nhé.

Muốn nhờ thì phải làm sao cho người khác hiểu để giúp.
Tôi không chung ngành với bạn, đọc rồi "hiểu chết liền" - Thề nói thiệt luôn!
Bạn chờ thành viên chung ngành bạn, "đọc xong hiểu liền" mới giúp được.

 

[dongthao]

Muốn nhờ thì phải làm sao cho người khác hiểu để giúp.
Tôi không chung ngành với bạn, đọc rồi "hiểu chết liền" - Thề nói thiệt luôn!
Bạn chờ thành viên chung ngành bạn, "đọc xong hiểu liền" mới giúp được.

Xin lỗi vì mình giải thích không rõ ràng.

Yêu cầu của bài toán là :
Tại Sheet Data, mỗi loại sản phẩm (SP) sử dụng 1 lượng linh kiện nhất định.
Ví dụ : SP1 sử dụng 3 Dinh, SP 2 sử dụng 10 Dinh..
Do đó hãy tính sô lượng linh kiện sử dụng của các loại sản phẩm theo từng ngày sản xuất.




Số lượng của từng mã sản phẩm theo ngày sản xuất được lấy từ sheet Pro.Qty.
Do đó trong ngày 24/10 : số linh kiện Dinh sẽ là : 3*199+10*205+3*207+5*211+8*200 = 5923



Thay vì dùng sumproduct nhân giữa 2 mảng, thì mình muốn dùng VBA để tính toán. Do dữ liệu của mình đến hàng chục nghìn dòng .

 

[Ba Tê]

Xin lỗi vì mình giải thích không rõ ràng.

Yêu cầu của bài toán là :
Tại Sheet Data, mỗi loại sản phẩm (SP) sử dụng 1 lượng linh kiện nhất định.
Ví dụ : SP1 sử dụng 3 Dinh, SP 2 sử dụng 10 Dinh..
Do đó hãy tính sô lượng linh kiện sử dụng của các loại sản phẩm theo từng ngày sản xuất.


View attachment 206650

Số lượng của từng mã sản phẩm theo ngày sản xuất được lấy từ sheet Pro.Qty.
Do đó trong ngày 24/10 : số linh kiện Dinh sẽ là : 3*199+10*205+3*207+5*211+8*200 = 5923

View attachment 206651

Thay vì dùng sumproduct nhân giữa 2 mảng, thì mình muốn dùng VBA để tính toán. Do dữ liệu của mình đến hàng chục nghìn dòng .

Bạn kiểm tra lại kết quả.

 

[dongthao]

Bạn kiểm tra lại kết quả.

Cám ơn bạn nhé.
File chạy hoàn toàn chính xác.

 

[dongthao]

@Ba Tê
Nhờ bạn giúp mình giải quyết bài toán này nhé
Trong file excel đính kèm, mình muốn xóa các dòng tại cột A mà dữ liệu bị trùng lặp lại.
Ví dụ : 000T81985 tại Cells A 8,9,10 bị lặp lại 3 lần, thì mình muốn xóa 2 dòng Cells A 9,10. Chỉ giữ lại 1 dòng A8. Sao cho giá trị đó tồn tại là duy nhất.
Mình muốn dùng VBA để xóa được dữ liệu lớn như này.
Cảm ơn bạn

 

[befaint]

.

 

[VetMini]

Yêu cầu mới thì phải có thớt mới chứ. Chú bị phèn quên rồi hả?

 

[dongthao]

Cám ơn mọi người nhé. File chạy đúng ý mình rồi.