Hoe alleen negatieve getallen in Excel toestaan?
In Excel, hoe kun je ervoor zorgen dat alleen negatieve getallen worden ingevoerd? Dit artikel introduceert enkele nuttige en snelle trucs om deze taak op te lossen.
Alleen negatieve getallen in Excel toestaan met Gegevensvalidatie
Alleen negatieve getallen in Excel toestaan met VBA-code
Alleen negatieve getallen in Excel toestaan met Gegevensvalidatie
Normaal gesproken kan de functie Gegevensvalidatie je helpen, doe het volgende:
1. Selecteer de cellen of kolom waarin je alleen negatieve getallen wilt toestaan, en klik vervolgens op Gegevens > Gegevensvalidatie > Gegevensvalidatie, zie screenshot:
2. In het dialoogvenster Gegevensvalidatie, onder het tabblad Instellingen, voer je de volgende opties uit:
(1.) In de sectie Toestaan, kies Decimaal uit de vervolgkeuzelijst;
(2.) In de sectie Gegevens, kies dan de optie kleiner dan of gelijk aan;
(3.) Voer tot slot het getal 0 in het tekstvak Maximum in.
3. Klik vervolgens op OK, en nu zijn alleen negatieve getallen en 0 toegestaan. Als er een positief getal wordt ingevoerd, verschijnt er een waarschuwingsbericht, zie screenshot:
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Alleen negatieve getallen in Excel toestaan met VBA-code
Hier is ook een stukje VBA-code dat je kan helpen. Met de volgende code wordt een positief getal automatisch omgezet in een negatief getal wanneer je het invoert. Doe het volgende:
1. Klik met de rechtermuisknop op het werkbladtabblad waarop je alleen negatieve getallen wilt toestaan, en kies Weergave Code uit het contextmenu. In het venster Microsoft Visual Basic for Applications dat verschijnt, kopieer en plak je de volgende code in de lege Module:
VBA-code: Alleen negatieve getallen in werkblad toestaan:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const sRg As String = "A1:A1000"
Dim xRg As Range
On Error GoTo err_exit:
Application.EnableEvents = False
If Not Intersect(Target, Range(sRg)) Is Nothing Then
For Each xRg In Target
If Left(xRg.Value, 1) <> "-" Then
xRg.Value = xRg.Value * -1
End If
Next xRg
End If
err_exit:
Application.EnableEvents = True
End Sub
Opmerking: In de bovenstaande code is A1:A1000 de celbereik waarin je alleen negatieve getallen wilt invoeren.
2. Sla daarna de code op en sluit deze, ga terug naar het werkblad, en nu zullen de positieve getallen die je in de door jou gespecificeerde cellen invoert automatisch worden omgezet in negatieve getallen.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen