تفضل الكود التالى
Sub زر1_انقر()
Dim myc As Range
Dim myr As Range
Set myr = Range("c1:c3000")
For Each myc In myr
If myc.Offset(0, -2) <> "" And myc.Offset(0, -1) <> "" Then
myc = myc.Offset(0, -2) * myc.Offset(0, -1)
End If
Next myc
Set myr = Nothing
End Sub
المرفقات
Microsoft Excel kemas جديد ??.zip