如果另一個單元格中包含文本，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