Làm thế nào để cộng số lượng theo tháng (1 người xem)

[nguyenminh121a122]

Làm thế nào để cộng số lượng trong sổ Thẻ Kho theo tháng như ví dụ.
Xin mọi người có kinh nghiệm hướng dẫn hoặc gợi ý giúp. Xin cảm ơn !!

 

[Hoàng Tuấn 868]

Làm thế nào để cộng số lượng trong sổ Thẻ Kho theo tháng như ví dụ.
Xin mọi người có kinh nghiệm hướng dẫn hoặc gợi ý giúp. Xin cảm ơn !!

Bài bạn này nhờ giúp mà lại còn đặt khóa code giống y bài trước. Chán hẳn.

 

[nguyenminh121a122]

Bài bạn này nhờ giúp mà lại còn đặt khóa code giống y bài trước. Chán hẳn.

À, xin lỗi bạn, không nhớ là có khóa!

 

[Maika8008]

Làm thế nào để cộng số lượng trong sổ Thẻ Kho theo tháng như ví dụ.
Xin mọi người có kinh nghiệm hướng dẫn hoặc gợi ý giúp. Xin cảm ơn !!

Bấm hình mũi tên ở sheet Thekho để chạy code

 

[nguyenminh121a122]

Bấm hình mũi tên ở sheet Thekho để chạy code

Cảm ơn bạn rất nhiều !!!. Mình đã xem qua rồi, chạy tốt lắm.

 

[kiennahang]

sao mình không mở được file ?

 

[nguyenminh121a122]

sao mình không mở được file ?

Vẫn bình thường mà. File Excel 2010 là mở được. không có khóa gì hết.

 

[nguyenminh121a122]

Bấm hình mũi tên ở sheet Thekho để chạy code

Bạn có thể xem chỉnh giúp mình một chút được không, nó bị không đúng ở 1 chỗ mà mình sửa hoài vẫn không được.
Khi chọn Mã F thì không cộng được. Vì Mã F xuất hiện chỉ 1 lần vào cuối năm. (Nếu Mã nào xuất hiện 1 lần trong năm thì nó đều không cộng).

 

[Maika8008]

Bạn có thể xem chỉnh giúp mình một chút được không, nó bị không đúng ở 1 chỗ mà mình sửa hoài vẫn không được.
Khi chọn Mã F thì không cộng được. Vì Mã F xuất hiện chỉ 1 lần vào cuối năm. (Nếu Mã nào xuất hiện 1 lần trong năm thì nó đều không cộng).

Bạn thay: If Month(.Cells(i, 5)) <> Th Then

bằng: If Month(.Cells(i, 5)) <> Th Or .Cells(i, 5) = "" Then

 

[nguyenminh121a122]

Viết If Month(.Cells(i, 5)) <> Th Or .Cells(i, 5) = 0 Then
thì ghi được "Cộng tháng " nhưng nó không cộng số lượng bạn ơi !!!!!

 

[nguyenminh121a122]

Bạn thay: If Month(.Cells(i, 5)) <> Th Then

bằng: If Month(.Cells(i, 5)) <> Th Or .Cells(i, 5) = "" Then

Vâng !!!! đã chỉnh được rồi. Xin cảm ơn bạn rất nhiều !!!