如果另一个单元格中包含文本，Excel VBA会将单元格相乘

Question

我知道该公式，但不知道如何转换为VBA。

需要一个VBA脚本来执行以下操作。

如果小区d包含借记卡，则F中的乘法-1 值如果单元格d包含信用卡，然后F中乘1

循环值，直到最后一排。

Answer 1

使用此宏：

Sub subMultiply() 
    For Each cel In Range("D1:D" & Range("D1").End(xlDown).Row) 
     If cel.Value = "Debit" Then 
      cel.Offset(0, 2).Value = Val(cel.Offset(0, 2)) * (-1) 
     ElseIf cel.Value = "Credit" Then 
      cel.Offset(0, 2).Value = Val(cel.Offset(0, 2)) * 1 
     End If 
    Next 
End Sub