Viết VBA tìm dòng (1 người xem)

[hoangdung2906]

em đang tập viết VBA k biết sai chỗ nào nhờ a(c) giúp e vs ạ!!!

Function congdon25(ngay As Date) As Integer
Dim dongngay As Integer
dongngay = "=Row(ngay)"
congdon25 = dongngay
MsgBox "dong" & dongngay
End Function

 

[giaiphap]

Bạn muốn viết hàm như thế nào? Nói rõ thì mới biết mà giúp bạn chứ. Code bạn sai hết rồi.

 

[hoangdung2906]

Bạn muốn viết hàm như thế nào? Nói rõ thì mới biết mà giúp bạn chứ. Code bạn sai hết rồi.

Chủ yếu em muốn viết để tìm dòng tính tổng các mặt hàng từ ngày cho trước đến ngày 25 mà em viết nó sai sai kiểu gì á. mong a chỉ giáo.. em gửi file em viết đây ạ

 

[giaiphap]

Chủ yếu em muốn viết để tìm dòng tính tổng các mặt hàng từ ngày cho trước đến ngày 25 mà em viết nó sai sai kiểu gì á. mong a chỉ giáo.. em gửi file em viết đây ạ

Mình hiểu bạn nói gì chết liền, bạn phải nêu thật cụ thể hàm của bạn muốn là gì? Cụ thể là tìm ngày 25 là sao? Cụ thể tại ô E3 thì kết quả là bao nhiêu mới đúng (Số đó là tổng của những ô nào?)

 

[hoangdung2906]

Mình hiểu bạn nói gì chết liền, bạn phải nêu thật cụ thể hàm của bạn muốn là gì? Cụ thể là tìm ngày 25 là sao? Cụ thể tại ô E3 thì kết quả là bao nhiêu mới đúng (Số đó là tổng của những ô nào?)

em muốn cổng tổng lùi đền 25 tháng trước ạ.
Ví dụ bây giờ là 16/2 thì em muốn cộng từ 25/1 => 16/2
bây giờ là 17/3 thì cộng từ 25/2 => 17/3 ạ...
Hơi củ chuối nên hơi khó hiểu tí anh thông cảm

 

[giaiphap]

em muốn cổng tổng lùi đền 25 tháng trước ạ.
Ví dụ bây giờ là 16/2 thì em muốn cộng từ 25/1 => 16/2
bây giờ là 17/3 thì cộng từ 25/2 => 17/3 ạ...
Hơi củ chuối nên hơi khó hiểu tí anh thông cảm

Nếu vậy đâu cần gì viết hàm VBA cho mệt vậy, dùng hàm có sẳn được mà. Do mình không biết bạn muốn tính tổng cột nào nên làm đại. Sử dụng công thức sau để tính tổng cho cột B.

E2=SUMIFS($B$2:$B$12,$C$2:$C$12,">=" & IF(DAY(C7)<=25,DATEVALUE("25" & MID(TEXT(EOMONTH(C7,-1),"dd/mm/yyyy"),3,8)),DATEVALUE("25" & MID(TEXT(C7,"dd/mm/yyyy"),3,8))),$C$2:$C$12,"<=" & C7)

Nếu muốn tính tổng cột D thì sửa như sau:

E2=SUMIFS($D$2:$D$12,$C$2:$C$12,">=" & IF(DAY(C8)<=25,DATEVALUE("25" & MID(TEXT(EOMONTH(C8,-1),"dd/mm/yyyy"),3,8)),DATEVALUE("25" & MID(TEXT(C8,"dd/mm/yyyy"),3,8))),$C$2:$C$12,"<=" & C8)

Sau đó copy công thức xuống phía dưới.