根據另一個單元格的值將加號更改為減號

Question

我在互聯網上獲得了此代碼。

如果F列中的值（與金額在同一行中）為欠款，我希望I列（第9行）中的金額更改為減額（借方金額）。

Sub test()
Dim rcel As range
Dim Rng As range
Set Rng = range(ActiveCell, Cells(Rows.Count, _
ActiveCell.Column).End(xlUp))
For Each rcel In Rng
If rcel.Value <> "" And rcel.Value >= 0 Then
rcel.Value = rcel.Value * -1
End If
Next rcel
End Sub

我帶了這部分來檢查F列中的值

And Text.Offset("-3, 0") = "Debit-Outstanding"

Answer 1

我認為VBA宏對於您所需要的過於復雜。

如果是一次性的，請創建另一列，其中您有一個公式，例如“ = I9 *（IF（F9 =“ Debit-Outstanding”，-1,1）），向下復制到最后，然后將值復制到，刪除計算出的列，僅此而已。

如果“未付帳款”值可能會發生變化，或者您將要添加數據，只需將具有上述公式的列合並到工作簿中，然后使用它代替包含值的當前列。

希望有幫助！

Answer 2

試試看：

Sub test()
    Dim rcel As Range
    Dim Rng As Range
    Dim rw As Long
    Set Rng = Range(ActiveCell, Cells(Rows.Count, ActiveCell.Column).End(xlUp))
    For Each rcel In Rng
        With rcel
            rw = .Row
            If .Value <> "" And .Value >= 0 And Cells(rw, "F") = "Debit-Outstanding" Then
                .Value = -.Value
            End If
        End With
    Next rcel
End Sub