Tính tổng theo điều kiện bằng VBA

[phamdinhnha]

Em nhờ các bác giúp cho ca này:
Em có 1 File excel là SoLuong, trong đó có 2 Sheet là "TongHop" và "ChiTiet", em muốn khi Click vào Button "Tao chi tiet" trên Sheet"TongHop" thì excel tự động tính tổng các giá trị ở các cột khác theo nhóm tỉnh/thành phố (cột C). Kết quả như demo tại Sheet "ChiTiet". Rất mong các bác giúp đỡ, cảm ơn các bác!

 

[HUONGHCKT]

Cảm ơn bạn, mình chưa hiểu tại sao, tải file bạn sửa về thì thấy KQ như ý mình muốn nhưng bấm chạy code lại thì tất cả phần cộng giá trị lại xuống cuối bảng (như hình), bạn gặp thế này chưa, bạn bảo mình với.

Bạn có làm theo hướng dẫn không?
Chắc là bạn không chạy đoạn code sort bảng tính theo cột U. Trong sub tôi đã chú thích rất rõ rằng rồi mà.

 

[phamdinhnha]

Bạn có làm theo hướng dẫn không?
Chắc là bạn không chạy đoạn code sort bảng tính theo cột U. Trong sub tôi đã chú thích rất rõ rằng rồi mà.

Mình sửa chỗ sort (bỏ số 2 chỗ .Sort.SortFields.Add2 Key:=Ws.Range("U10").Resize(k + t), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal) thì đc như bạn làm rồi bạn à. Trước cứ chạy đến đó báo lỗi nên mình tạm không chạy đoạn Sort. Mình có thể kết bạn qua Zalo với bạn được không?

 

[HUONGHCKT]

Nếu để đoạn code sort thì nó báo debug như ảnh dưới. Mình không biết sửa thế nào bạn à!

Lạ nhỉ? Trên máy tôi chạy ngon mà.
Máy tôi cổ điển W8.1- O365 bản crack.
Bạn biết ghi lại macro thì thử dùng cách ghi lại macro để lấy được đoạn code sort theo cột U, rồi khi chạy sub Tong, sau phần định dạng thì thêm vào thủ tục gọi macro vừa ghi được (nhớ vô hiệu đoạn code Sort trong sub Tong), khi ấy sẽ có được kết quả.
Nếu vẫn không được thì sử dụng Ultraview, tôi sẽ hướng đẫn cụ thể hơn.
Chúc thành công.

Bài đã được tự động gộp: 8/3/24

Mình sửa chỗ sort (bỏ số 2 chỗ .Sort.SortFields.Add2 Key:=Ws.Range("U10").Resize(k + t), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal) thì đc như bạn làm rồi bạn à. Trước cứ chạy đến đó báo lỗi nên mình tạm không chạy đoạn Sort. Mình có thể kết bạn qua Zalo với bạn được không?

Số zalo của tôi ngay dưới nickname

 

[phamdinhnha]

Lạ nhỉ? Trên máy tôi chạy ngon mà.
Máy tôi cổ điển W8.1- O365 bản crack.
Bạn biết ghi lại macro thì thử dùng cách ghi lại macro để lấy được đoạn code sort theo cột U, rồi khi chạy sub Tong, sau phần định dạng thì thêm vào thủ tục gọi macro vừa ghi được (nhớ vô hiệu đoạn code Sort trong sub Tong), khi ấy sẽ có được kết quả.
Nếu vẫn không được thì sử dụng Ultraview, tôi sẽ hướng đẫn cụ thể hơn.
Chúc thành công.

Bài đã được tự động gộp: 8/3/24

Số zalo của tôi ngay dưới nickname

Mình KB zalo theo số dưới nickname nhưng không được bạn à (báo như hình), bạn KB với mình theo số 0906191776 nhé!