أبو صاصا قام بنشر مارس 9, 2014 قام بنشر مارس 9, 2014 Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 3 Or Target.Column = 4 And Target <> "" Then _Cells(Target.Row, 2) = Application.WorksheetFunction.Subtotal(3, Range("$B:$B"))End Sub س.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.