[英]Change plus to minus based on another cell value
我在互联网上获得了此代码。
如果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"
我认为VBA宏对于您所需要的过于复杂。
如果是一次性的,请创建另一列,其中您有一个公式,例如“ = I9 *(IF(F9 =“ Debit-Outstanding”,-1,1)),向下复制到最后,然后将值复制到,删除计算出的列,仅此而已。
如果“未付帐款”值可能会发生变化,或者您将要添加数据,只需将具有上述公式的列合并到工作簿中,然后使用它代替包含值的当前列。
希望有帮助!
试试看:
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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.