Question

我正在尝试在excel中编写宏。理想情况下，我会选择一组带数字的单元格并按一个键，这些数字都会变为负数。这将节省我很多时间，我希望得到一个解决方案。

Answer 1

考虑：

Sub Negativize()
    Dim cel As Range
    For Each cel In Selection
        cel.Value = -Abs(cel.Value)
    Next cel
End Sub

Answer 2

尝试此代码进行选择：

Sub negative()

    Dim cel As Range
    Dim selectedRange As Range

    Set selectedRange = Application.Selection

    For Each cel In selectedRange.Cells
        If cel.Value > 0 Then
        cel.Value = cel.Value - (cel.Value * 2)
        End If
    Next cel

End Sub

或者对于一个单元格：

Sub negative()
if ActiveCell.Value > 0 then
ActiveCell.Value = ActiveCell.Value - (ActiveCell.Value * 2)
end if

End Sub

Answer 3

Sub Make_Selection_Negative()
    Dim cell As Object

    For Each cell In Selection
        cell = cell - cell - cell
    Next cell

End Sub

在VBA中更改数字范围为负

3 个答案: