他のセルにテキストが含まれている場合に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