Lập giúp VBA thay cho công thức excel (1 người xem)

[thuanntk]

Chào các bạn diễn đàn!
Mình có file excel, vì dữ liệu mình nặng nên mình muốn thay công thức bằng VBA, các bạn giúp mình nhé, với mục tiêu như sau:

- Số dư đầu kỳ trên sheet"tonghop" sẽ lấy theo điều kiện của Mã tài khoản (I5) và điều kiện từ ngày nhở hơn I6 dò tìm trên sheet "DMKH" và sheet "PHATSINH"
- Số phát sinh trong kỳ trên sheet"tonghop" sẽ lấy theo điều kiện của Mã tài khoản (I5) và điều kiện từ ngày đến ngày dò tìm trên sheet "PHATSINH"
-Số dư cuối kỳ theo công thức.

Cảm ơn các bạn!

 

[thuanntk]

Có ai giúp được mình không vậy?

 

[chucuoi92]

Có ai giúp được mình không vậy?

Bạn cứ từ từ nào!
Bạn vội, bạn cần nhưng người khác chưa vội.
Xem file đính kèm nhé!
Mình ko biết về KT đâu nhưng làm ra thấy KQ cũng .....không biết sao. hi hi
File đính kèm ở bài 17

 

[thuanntk]

Bạn cứ từ từ nào!
Bạn vội, bạn cần nhưng người khác chưa vội.
Xem file đính kèm nhé!
Mình ko biết về KT đâu nhưng làm ra thấy KQ cũng .....không biết sao. hi hi

Bạn ơi, bạn làm kết quả đúng rồi, nhưng có cách nào để lọc mã có phát sinh kết quả thôi không bạn và điền vào cột B,C tự động được không bạn

 

[chucuoi92]

Bạn ơi, bạn làm kết quả đúng rồi, nhưng có cách nào để lọc mã có phát sinh kết quả thôi không bạn và điền vào cột B,C tự động được không bạn

Như thế này đúng không.
File đính kèm ở bài 17

 

[thuanntk]

Như thế này đúng không.

Tốt rồi bạn ơi, nhưng có cách nào để cột i,j và dòng tổng cộng không cần công thức được không bạn. Với định dạng ở cột tổng cộng bị lỗi khi thêm nhiều dòng. Cảm ơn bạn nhé

 

[chucuoi92]

Tốt rồi bạn ơi, nhưng có cách nào để cột i,j và dòng tổng cộng không cần công thức được không bạn. Với định dạng ở cột tổng cộng bị lỗi khi thêm nhiều dòng. Cảm ơn bạn nhé

làm mãi mà không nhận được nhấn nút cám ơn nào.
Nản...
File đính kèm ở bài 17

 

[thuanntk]

làm mãi mà không nhận được nhấn nút cám ơn nào.
Nản...

Bạn ơi, bạn sửa lại khi mã mà có kết quả = 0 thì bỏ qua không thể hiện trên sheet Tonghop được không bạn, còn một xíu đó nữa là ok rồi bạn ơi, cảm ơn bạn nhiều nhé

 

[chucuoi92]

Bạn ơi, bạn sửa lại khi mã mà có kết quả = 0 thì bỏ qua không thể hiện trên sheet Tonghop được không bạn, còn một xíu đó nữa là ok rồi bạn ơi, cảm ơn bạn nhiều nhé

Ôi mệt nhoài !
Được voi đòi hai bà Trưng.
File đính kèm ở bài 17

 

[thuanntk]

Ôi mệt nhoài !
Được voi đòi hai bà Trưng.

Bạn ơi, mình xem lại nó vẫn lên mã có kết quả = 0 khi mình chọn " đến ngày " các mã không thỏa mãn điều kiện có kết quả = 0 vẫn hiện lên trên sheet Tonghop. Bạn giúp lại mình tí nghe

 

[doveandrose]

tính sửa mà tải file về nhìn cái Sub viết ớn quá chạy luôn . hic . chắc bạn phải lên cung trăng kiếm chú Cuội thui

 

[chucuoi92]

Bạn ơi, mình xem lại nó vẫn lên mã có kết quả = 0 khi mình chọn " đến ngày " các mã không thỏa mãn điều kiện có kết quả = 0 vẫn hiện lên trên sheet Tonghop. Bạn giúp lại mình tí nghe

Bạn đưa file đó lên đi để xem thực hư thế nào nhé!

 

[thuanntk]

Bạn đưa file đó lên đi để xem thực hư thế nào nhé!

Bạn xem lại giúp mình nhé, mình có ghi chú màu đỏ

 

[chucuoi92]

Bạn xem lại giúp mình nhé, mình có ghi chú màu đỏ

Sao lại có trường hợp trên cùng 1 dòng có cả "nợ" và "có" cùng số tiền của 2 mã KH khác nhau à ?
Còn trường hợp nào khác không ???
cả mã E và mã D trên cùng dòng đều có phát sinh "Nợ" = 131 và "có" = 131 ???
Ôi Kế Toán đau đầu vì tiền.....
Ôi nhầm !
Tài chính thì đau đầu vì tiền...

 

[thuanntk]

Sao lại có trường hợp trên cùng 1 dòng có cả "nợ" và "có" cùng số tiền của 2 mã KH khác nhau à ?
Còn trường hợp nào khác không ???
Ôi Kế Toán đau đầu vì tiền.....

Trường hợp đó là chuyển công nợ sang cho đối tượng khác(bù trừ công nợ) đó bạn.

 

[chucuoi92]

Trường hợp đó là chuyển công nợ sang cho đối tượng khác(bù trừ công nợ) đó bạn.

Sau vụ này mình chuyển nghề làm KT thôi.
Ôi đau đầu quá!!!
chạy thôi !

 

[thuanntk]

Sau vụ này mình chuyển nghề làm KT thôi.
Ôi đau đầu quá!!!
chạy thôi !

Bạn xem lại giúp mình số dư đầu kỳ nó sai, giúp mình nhé

 

[chucuoi92]

Bạn xem lại giúp mình số dư đầu kỳ nó sai, giúp mình nhé

Bạn mở code ra:
Đoạn này:

With Application.WorksheetFunction
For h = 1 To UBound(PS)
MDT1 = PS(h, 12)
MDT2 = PS(h, 13)

If PS(h, 1) >= Ndau And PS(h, 1) <= Ncuoi Then
If PS(h, 7) Like ma And MDT1 <> "" Then
If Not d.exists(MDT1) Then

sửa thành:

With Application.WorksheetFunction
For h = 1 To UBound(PS)
MDT1 = PS(h, 12)
MDT2 = PS(h, 13)

If PS(h, 1) <= Ncuoi Then
If PS(h, 7) Like ma And MDT1 <> "" Then
If Not d.exists(MDT1) Then