Hoe verandert u positieve getallen in negatieve getallen in Excel?

Hoe wijzigt u snel alle positieve getallen of waarden naar negatief in Excel? De volgende methoden helpen u om al die positieve getallen razendsnel om te zetten in negatieve waarden.

Wijzig positieve getallen naar negatief met de Plakken speciaal functie

Wijzig positieve getallen naar negatief of vice versa met Kutools voor Excel

Wijzig positieve getallen naar negatief met VBA-code

Wijzig positieve getallen naar negatief met de Plakken speciaal functie

U kunt positieve getallen omzetten naar negatieve waarden met de Plakken speciaal-functie in Excel. Volg hiervoor de onderstaande stappen.

1. Typ het getal -1 in een lege cel en kopieer het.

2. Markeer het bereik dat u wilt wijzigen, klik met de rechtermuisknop en kies Plakken speciaal in het contextmenu om het Plakken speciaal-dialoogvenster te openen. Zie schermafbeelding:

3. Selecteer vervolgens de optie Alles in het gedeelte Plakken en kies Vermenigvuldigen onder Bewerking.

4. Klik daarna op OK, waarna alle positieve getallen zijn gewijzigd in negatieve getallen.

5. Ten slotte kunt u het getal -1 verwijderen, indien gewenst.

Wijzig positieve getallen in negatieve getallen of vice versa met Kutools voor Excel

U kunt ook gebruikmaken van het Kutools voor Excel-hulpmiddel Wijziging van het teken van het getal om snel alle positieve getallen in negatieve getallen te veranderen.

Als u Kutools voor Excelhebt geïnstalleerd, kunt u positieve getallen als volgt in negatieve getallen wijzigen:

1. Selecteer het bereik dat u wilt aanpassen.

2. Klik op Kutools > Inhoud > Wijziging van het teken van het getal, zie schermafbeelding:

3. Selecteer in het dialoogvenster Wijziging van het teken van het getal de optie Verander alle positieve getallen in negatieve getallen.

4. Klik vervolgens op OK of Toepassen. Alle positieve getallen zijn nu omgezet in negatieve getallen.

Wijzig positieve getallen naar negatief met VBA-code

Met VBA-code kunt u positieve getallen eenvoudig omzetten naar negatieve getallen – mits u weet hoe u VBA gebruikt. Volg hiervoor de onderstaande stappen:

1. Selecteer het bereik dat u wilt aanpassen.

2. Klik op Ontwikkelaar > Visual Basic. Er verschijnt een nieuw Microsoft Visual Basic for Applications-venster. Klik op Invoegen > Module en plak de volgende code in de module:

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. Klik op de knop om de code uit te voeren. Er verschijnt een dialoogvenster waarin u een bereik kunt selecteren om positieve waarden om te zetten in negatieve waarden. Zie schermafbeelding:

4. Klik op Ok, waarna de positieve waarden in het geselecteerde bereik direct worden omgezet in negatieve waarden.

Demo: Wijzig positieve getallen in negatieve getallen of vice versa met Kutools voor Excel

Gerelateerde artikelen