Tính ngày và số công khi hết thời gian thử việc.

[tam8678]

Rất mong các anh em trên GPE xem và giúp cho cách tính ngày và số công khi hết thời gian thử việc. Mong muốn cụ thể được ghi trong file đính kèm. Cám ơn

 

[huuthang_bd]

Rất mong các anh em trên GPE xem và giúp cho cách tính ngày và số công khi hết thời gian thử việc. Mong muốn cụ thể được ghi trong file đính kèm. Cám ơn

Cái này dùng công thức cũng đơn giản thôi chứ đâu cần đến lập trình đâu anh.
Anh tham khảo công thức. Nếu vẫn muốn dùng Macro thì em làm tiếp.
Công thức cho ô AK7

=IF(EOMONTH(AJ7+30,-1)+1=$E$4,AJ7+30,"")

Công thức cho ô AL7

=IF(AK7="","",SUMIF($E$4:$AI$4,">"&AK7,$E7:$AI7))

 

[tam8678]

Cái này dùng công thức cũng đơn giản thôi chứ đâu cần đến lập trình đâu anh.
Anh tham khảo công thức. Nếu vẫn muốn dùng Macro thì em làm tiếp.
Công thức cho ô AK7

=IF(EOMONTH(AJ7+30,-1)+1=$E$4,AJ7+30,"")

Công thức cho ô AL7

=IF(AK7="","",SUMIF($E$4:$AI$4,">"&AK7,$E7:$AI7))

---
Cám ơn em, nhưng anh cần macro cơ, nếu được em xem giúp anh.

 

[huuthang_bd]

---
Cám ơn em, nhưng anh cần macro cơ, nếu được em xem giúp anh.

Vậy anh muốn là hàm tự tạo hay là nhấn nút ra kết quả luôn?

 

[tam8678]

Vậy anh muốn là hàm tự tạo hay là nhấn nút ra kết quả luôn?

---
Nhấn nút ra kết quả luôn Th ơi.

 

[huuthang_bd]

---
Nhấn nút ra kết quả luôn Th ơi.

Nếu không có hàm EOMONTH() thì anh thay thế bằng công thức này cho ô K7

=IF(TEXT(AJ7+30,"myy")=TEXT($E$4,"myy"),AJ7+30,"")

Code thì cũng nhập công thức vào rồi gán giá trị lại thôi. Như thế nhanh hơn.

Sub GPE()
Application.Calculation = xlCalculationManual
With Range([AK7], [AJ65536].End(xlUp).Offset(, 1))
    .FormulaR1C1 = "=IF(TEXT(RC[-1]+30,""myy"")=TEXT(R4C5,""myy""),RC[-1]+30,"""")"
    .Offset(, 1).FormulaR1C1 = "=IF(RC[-1]="""","""",SUMIF(R4C5:R4C[-3],"">""&RC[-1],RC5:RC[-3]))"
    .Resize(, 2).Value = .Resize(, 2).Value
End With
Application.Calculation = xlCalculationAutomatic
End Sub