با سلام
در فایل پیوست کلیه موارد خواسته شده در یک شیت محاسبه میگردد
با ورود دیتا در قسمت زرد رنگ ورودی و خروجی ، مانده کل و ورودی کل و خروجی کل محاسبه میگردد
کد PHP:
Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("Table1[vorodi]")) Is Nothing Then
Target.Offset(, 2) = Target + Target.Offset(, 2)
Target.Offset(, 3) = Target + Target.Offset(, 3)
End If
If Not Intersect(Target, Me.Range("Table1[khoroji]")) Is Nothing Then
Target.Offset(, 1) = Target.Offset(, 1) - Target
Target.Offset(, 3) = Target + Target.Offset(, 3)
End If
End Sub
علاقه مندی ها (Bookmarks)