يكون ذلك من خلال الكود التالي:
Private Sub Worksheet_Change(ByVal Target As Range)
TC = Target.Column
TR = Target.Row
If TC = 2 Or TC = 3 And TR > 2 And TR < 10 Then
[E13] = Application.WorksheetFunction.SumProduct([B3:B9], [C3:C9])
End If
End Sub
شاهد المرفق،
SUMPRODUCT_In_VBA.rar