Hoe verander je positieve getallen in negatieve in Excel?

Hoe kunt u snel alle positieve getallen of waarden in Excel naar negatief veranderen? De volgende methoden kunnen u helpen om snel alle positieve getallen in Excel naar negatief te veranderen.

Positieve getallen naar negatief veranderen met de functie Plakken speciaal

Positieve getallen naar negatief of vice versa veranderen met Kutools voor Excel

Positieve getallen naar negatief veranderen met VBA-code

Positieve getallen naar negatief veranderen met de functie Plakken speciaal

U kunt positieve getallen naar negatief veranderen met de functie Plakken speciaal in Excel. Volg de volgende stappen.

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

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

3. Selecteer vervolgens de optie Alles in Plakken en Vermenigvuldigen in de Bewerking.

4. Klik daarna op OK, alle positieve getallen zijn nu veranderd in negatieve getallen.

5. Tot slot kunt u het getal -1 verwijderen indien nodig.

Positieve getallen naar negatief of vice versa veranderen met Kutools voor Excel

U kunt ook het hulpprogramma Het teken van getallen wijzigen van Kutools voor Excel gebruiken om snel alle positieve getallen naar negatief te veranderen.

Als u Kutools voor Excel hebt geïnstalleerd, kunt u positieve getallen naar negatief veranderen zoals volgt:

1. Selecteer het bereik dat u wilt wijzigen.

2. Klik op Kutools > Tekst > Het teken van getallen wijzigen, zie screenshot:

3. En in het dialoogvenster Het teken van getallen wijzigen selecteert u 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.

Positieve getallen naar negatief veranderen met VBA-code

Door middel van VBA-code kunt u ook positieve getallen naar negatief veranderen, maar u moet weten hoe u VBA moet gebruiken. Volg de volgende stappen:

1. Selecteer het bereik dat u wilt wijzigen.

2. Klik op Ontwikkelaar > Visual Basic, er verschijnt een nieuw venster van Microsoft Visual Basic voor applicaties. Klik op Invoegen > Module en kopieer en plak vervolgens 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 dat u wilt converteren van positieve naar negatieve waarden. Zie screenshot:

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

Demo: Positieve getallen naar negatief of vice versa veranderen met Kutools voor Excel

Gerelateerde artikelen