Jak změnit kladná čísla na záporná v aplikaci Excel?

Jak můžete rychle změnit všechna kladná čísla nebo hodnoty na negativní v aplikaci Excel? Následující metody vám pomohou rychle změnit všechna kladná čísla na záporná v aplikaci Excel.

Změňte kladná čísla na záporná pomocí funkce Vložit jinak

Změňte kladná čísla na záporná nebo naopak pomocí Kutools pro Excel

Změňte kladná čísla na záporná pomocí kódu VBA

Změňte kladná čísla na záporná pomocí funkce Vložit jinak

Pomocí čísla můžete změnit kladná čísla na záporná Vložit jinak funkce v aplikaci Excel. Postupujte prosím následovně.

1. Klepněte na číslo -1 do prázdné buňky a zkopírujte ji.

2. Zvýrazněte rozsah, který chcete změnit, klikněte pravým tlačítkem a vyberte Vložit jinak z kontextové nabídky otevřete Vložit jinak dialogové okno. Viz snímek obrazovky:

3. Potom vyberte Vše možnost z nabídky Pasta, a Násobit z Operace.

4. A pak klikněte na tlačítko OK, všechna kladná čísla byla změněna na záporná čísla.

5. Nakonec můžete odstranit číslo -1, jak potřebujete.

Změňte kladná čísla na záporná nebo naopak pomocí Kutools pro Excel

Můžete také použít Kutools pro ExcelJe Změnit znaménko hodnot nástroj pro rychlou změnu všech kladných čísel na záporná.

Pokud jste nainstalovali Kutools pro Excel, můžete změnit kladná čísla na záporná takto:

1. Vyberte rozsah, který chcete změnit.

2, klikněte Kutools > Obsah > Změnit znaménko hodnot, viz screenshot:

3. A v Změnit znaménko hodnot dialogové okno vyberte Změňte všechny kladné hodnoty na záporné volba.

4. Pak klikněte na tlačítko OK or Přihláška. A všechna kladná čísla byla převedena na záporná čísla.

Změňte kladná čísla na záporná pomocí kódu VBA

Pomocí kódu VBA můžete také změnit kladná čísla na záporná, ale musíte vědět, jak používat VBA. Postupujte podle následujících kroků:

1. Vyberte rozsah, který chcete změnit.

2, klikněte Vývojka >Visual Basic, nový Microsoft Visual Basic pro aplikace Zobrazí se okno, klikněte na Vložit > Modula poté zkopírujte a vložte následující kódy do modulu:

Sub ChangeToNegative()
'Updateby Extendoffice
Dim rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
    xValue = rng.Value
    If xValue > 0 Then
        rng.Value = xValue * -1
    End If
Next
End Sub

3. klikněte  tlačítko pro spuštění kódu, zobrazí se dialogové okno pro výběr rozsahu, který chcete převést pozitivní hodnoty na záporné. Viz snímek obrazovky:

4, klikněte Ok, pak jsou kladné hodnoty ve vybraném rozsahu převedeny na záporné hodnoty najednou.

Ukázka: Změňte kladná čísla na záporná nebo naopak pomocí Kutools pro Excel

Související články