Excel VBA для умножения ячейки, если другая ячейка содержит текст

Question

Я знаю формулу, но не уверен, как перевести ее в VBA.

Необходимо выполнить скрипт VBA, чтобы выполнить следующее.

Если ячейка содержит D дебет, то значение F -1 умножить Если ячейка содержит D кредит, то значение в F кратно 1

Loop до последней строки.

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