Tính tổng theo ca và theo tuần

[tiendat210]

Chào mọi người
Xin mọi người giúp đỡ em cod VBA tính tổng 1 sản phẩm ca ngày (gồm ca 1 và ca 2) , ca đêm theo tuần với ạ. Em cũng nghĩ rồi mà nó tào lao quá không được ạ. Em có trích file của em vào để mn dễ giúp đỡ ạ.
Em xin cảm ơn ạ

 

[HUONGHCKT]

Chào mọi người
Xin mọi người giúp đỡ em cod VBA tính tổng 1 sản phẩm ca ngày (gồm ca 1 và ca 2) , ca đêm theo tuần với ạ. Em cũng nghĩ rồi mà nó tào lao quá không được ạ. Em có trích file của em vào để mn dễ giúp đỡ ạ.
Em xin cảm ơn ạ

Tại sao bạn không dùng hàm WEEKNUM(...) của Excel nhỉ?
File của bạn trống rỗng thế thì người giúp bạn phải tự điền thêm số liệu giúp bạn nữa à?.
Tại sao không tách Phần từ cột H đến cột BI, và cố thể còn nhiều cột khác nữa sang 1 sheet khác nhỉ?

 

[Phuocam]

Chào mọi người
Xin mọi người giúp đỡ em cod VBA tính tổng 1 sản phẩm ca ngày (gồm ca 1 và ca 2) , ca đêm theo tuần với ạ. Em cũng nghĩ rồi mà nó tào lao quá không được ạ. Em có trích file của em vào để mn dễ giúp đỡ ạ.
Em xin cảm ơn ạ

.

Dùng 1 dòng ghi số tuần làm trợ giúp, rồi dùng SUMIFS để tính => không cần code.

.

 

[tiendat210]

.

Dùng 1 dòng ghi số tuần làm trợ giúp, rồi dùng SUMIFS để tính => không cần code.

.

Em tính làm 1 dòng trợ theo ý bác. Em viết code thế này, nhưng sợ sau này thêm cột vào nó sai hết. Bác vui lòng giúp em chuyển nó sang dạng vòng lặp được không ạ? Hiện tại, em bắt đầu từ cột 35 đến 1.000 ạ
'Cot AI =35
Cells(4, 35) = "W" & " " & Application.WeekNum(Cells(5, 35))
Cells(4, 36) = "W" & " " & Application.WeekNum(Cells(5, 35))
Cells(4, 37) = "W" & " " & Application.WeekNum(Cells(5, 35))

'Cot AL =38
Cells(4, 38) = "W" & " " & Application.WeekNum(Cells(5, 38))
Cells(4, 39) = "W" & " " & Application.WeekNum(Cells(5, 38))
Cells(4, 40) = "W" & " " & Application.WeekNum(Cells(5, 38))


Cells(4, 41) = "W" & " " & Application.WeekNum(Cells(5, 41))
Cells(4, 42) = "W" & " " & Application.WeekNum(Cells(5, 41))
Cells(4, 43) = "W" & " " & Application.WeekNum(Cells(5, 41))

Cells(4, 44) = "W" & " " & Application.WeekNum(Cells(5, 44))
Cells(4, 45) = "W" & " " & Application.WeekNum(Cells(5, 44))
Cells(4, 46) = "W" & " " & Application.WeekNum(Cells(5, 44))

Cells(4, 47) = "W" & " " & Application.WeekNum(Cells(5, 47))
Cells(4, 48) = "W" & " " & Application.WeekNum(Cells(5, 47))
Cells(4, 49) = "W" & " " & Application.WeekNum(Cells(5, 47))

 

[HUONGHCKT]

Chào mọi người
Xin mọi người giúp đỡ em cod VBA tính tổng 1 sản phẩm ca ngày (gồm ca 1 và ca 2) , ca đêm theo tuần với ạ. Em cũng nghĩ rồi mà nó tào lao quá không được ạ. Em có trích file của em vào để mn dễ giúp đỡ ạ.
Em xin cảm ơn ạ

Thử xem, đã đúng chưa. Tôi tách ra thành 2 sheet. 1 sh dữ liệu.1 sh kết quả.
để con chỏ vào dòng nào của sh1 và nhấn nút, dòng đó cho kết quả.
bạn thêm dữ liệu ở sh 2 và trở về sh1, để chuột vào dòng nào đó, nhấn nút===> xem kết quả.

 

[tiendat210]

Xin cảm ơn tất cả mọi người. Nhờ có mọi người mình đã làm được rồi ạ