Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
I = Target.Row
If Target <> "" And Target = "پنچ شنبه" Then
Target.Offset(0, 2).Value = "=$R$5-$R$4"
Target.Offset(0, 10).Value = "=IF(D" & I & "=0,0,IF(E" & I & "<$R$5,(E" & I & "-$R$4),($R$5-$R$4))+IF(AND(F" & I & "<$R$5,G" & I & "<$R$5),(G" & I & "-F" & I & "),0)+IF(F" & I & ">$R$5,0,IF(G" & I & ">=$R$5,$R$5-F" & I & ",0))+IF(OR(J" & I & "=E" & I & ",J" & I & "=G" & I & "),0,IF(AND(J" & I & ">$R$5,H" & I & ">$R$5),0,(IF(H" & I & "<$R$5,$R$5-H" & I & ",J" & I & "-H" & I & "))))-IF(D" & I & ">$R$4,D" & I & "-$R$5,0))"
ElseIf Target <> "" Then
Target.Offset(0, 2).Value = "=$R$3-$R$2"
Target.Offset(0, 10).Value = "=IF(D" & I & "=0,0,IF(E" & I & "<$R$3,(E" & I & "-$R$2),($R$3-$R$2))+IF(AND(F" & I & "<$R$3,G2<$R$3),(G" & I & "-F" & I & "),0)+IF(F" & I & ">$R$3,0,IF(G" & I & ">=$R$3,$R$3-F" & I & ",0))+IF(OR(J" & I & "=E" & I & ", J" & I & "=G" & I & "),0,IF(AND(J" & I & ">$R$3,H" & I & ">$R$3),0,(IF(H" & I & "<$R$3,$R$3-H" & I & ",J" & I & "-H2))))-IF(D" & I & ">$R$2,D" & I & "-$R$2,0))"
End If
End If
End Sub
کامنت