Code subtotal và tìm điều kiện

[hieuvietmy2020]

Em chào Anh Chị trong diễn đàn,

Em có viết 2 đoạn code nhờ anh chị hướng dẫn thêm ạ:
- Sheets("CDPS") em chưa biết cách viết để cộng TK con vào TK mẹ và dòng "Tổng Cộng" cuối cùng
- Sheets("NKC") code với 2 điều kiện, code không báo lỗi cũng không hoạt động, em chưa rõ mình sai ở đâu ạ

Em cảm ơn Anh Chị đã xem bài!

 

[Hoàng Tuấn 868]

- Sheets("CDPS") em chưa biết cách viết để cộng TK con vào TK mẹ và dòng "Tổng Cộng" cuối cùng
- Sheets("NKC") code với 2 điều kiện, code không báo lỗi cũng không hoạt động, em chưa rõ mình sai ở đâu ạ

Bạn thể hiện cụ thể kết quả mong muốn và cách tính thủ công từng trường hợp vảo trong file có lẽ dễ hình dung hơn.

 

[hieuvietmy2020]

Em chào anh @Hoàng Tuấn 868 ,

Em gửi file kèm kết quả mong muốn ạ!
Hiện, Sheets("CDPS") có các ô không có kết quả khi chạy code mình có thể hiện số 0 lên được không ạ (Ví dụ: Ô H18_Phát sinh Có)

 

[Hoàng Tuấn 868]

Hiện, Sheets("CDPS") có các ô không có kết quả khi chạy code mình có thể hiện số 0 lên

Bạn thử lại xem sao. (Bài này có gì liên quan đến Code subtotal đâu nhỉ)

 

[DeTong]

Rút bài viết vì sai chủ đề

 

[hieuvietmy2020]

Bạn thử lại xem sao. (Bài này có gì liên quan đến Code subtotal đâu nhỉ)

Dạ em diễn giải chưa đúng ạ, hiện code chưa xử lý được kết quả em đang cần ạ
- Tại Sheets("CDPS") em đang lập công thức Sum (Số màu nâu) quy tắc là:
+ Tài khoản ("TK") mẹ 3 chữ số, TK con liền kề bên dưới có 3 chữ số đầu giống TK mẹ sẽ được cộng ngược lên TK mẹ
+ Nếu liền kề bên dưới không có TK con thì giữ nguyên kết quả đã có trước đó
- Sheets("NKC") anh xem giúp em module NKC và kết quả mong muốn em đã nhập sẵn tại ô T2 và T3

 

[Hoàng Tuấn 868]

Dạ em diễn giải chưa đúng ạ, hiện code chưa xử lý được kết quả em đang cần ạ
- Tại Sheets("CDPS") em đang lập công thức Sum (Số màu nâu) quy tắc là:
+ Tài khoản ("TK") mẹ 3 chữ số, TK con liền kề bên dưới có 3 chữ số đầu giống TK mẹ sẽ được cộng ngược lên TK mẹ
+ Nếu liền kề bên dưới không có TK con thì giữ nguyên kết quả đã có trước đó
- Sheets("NKC") anh xem giúp em module NKC và kết quả mong muốn em đã nhập sẵn tại ô T2 và T3

Làm cho bạn Sheet CDPS, sheet còn lại chỉ có kết quả ghi sẵn, không thấy diễn giải cách tính nên cũng lười theo, không muốn mò mẫm.

 

[hieuvietmy2020]

Làm cho bạn Sheet CDPS, sheet còn lại chỉ có kết quả ghi sẵn, không thấy diễn giải cách tính nên cũng lười theo, không muốn mò mẫm.

- Em cảm ơn anh Hoàng Tuấn đã kiên nhẫn, kết quả chạy code Sheets("CDPS") vẫn chưa đúng so với công thức em lập ạ, nhờ anh xem lại giúp.
- Em có diễn giải nội dung ở Sheet còn lại, mong anh giúp ạ!

 

[Hoàng Tuấn 868]

kết quả chạy code Sheets("CDPS") vẫn chưa đúng so với công thức em lập ạ, nhờ anh xem lại giúp.

Mình kiểm tra lại rồi, bạn đã can thiệp vào code nên kết quả sai, cụ thể ở chỗ này:
Code của mình: ReDim kq(1 To 1, 1 To 6)
Code của bạn: 'ReDim kq(1 To 1, 1 To 6)
Có lẽ vô tình bạn đã thêm dấu nháy đơn đầu dòng.
Sheet còn lại mình sẽ xem sau nhé.

 

[Hoàng Tuấn 868]

- Em cảm ơn anh Hoàng Tuấn đã kiên nhẫn, kết quả chạy code Sheets("CDPS") vẫn chưa đúng so với công thức em lập ạ, nhờ anh xem lại giúp.
- Em có diễn giải nội dung ở Sheet còn lại, mong anh giúp ạ!

Bạn chạy thử lại cả hai sheet xem sao nhé.

 

[hieuvietmy2020]

Bạn chạy thử lại cả hai sheet xem sao nhé.

Em cảm ơn anh @Hoàng Tuấn 868
Anh có sử dụng zalo không ạ?

 

[Hoàng Tuấn 868]

Em cảm ơn anh @Hoàng Tuấn 868
Anh có sử dụng zalo không ạ?

Mình không sử dụng Zalo bạn à.