Hur tillåter jag bara negativa siffror i Excel?

Hur tillåter jag bara att ange negativa siffror i Excel? Denna artikel kommer att presentera några användbara och snabba knep för dig att lösa denna uppgift.

Tillåt endast negativa siffror i Excel med datavalidering

Tillåt endast negativa siffror i Excel med VBA-kod

Tillåt endast negativa siffror i Excel med datavalidering

Normalt är Datagransknings funktionen kan hjälpa dig, gör så här:

1. Markera cellerna eller kolumnerna som du vill att endast negativa siffror ska anges och klicka sedan på Data > Datagransknings > Datagransknings, se skärmdump:

2. I Datagransknings under dialogrutan Inställningar gör följande alternativ:

(1.) I Tillåt avsnitt väljer Decimal från listrutan;

(2.) I Data avsnitt, välj mindre än eller lika med alternativ;

(3.) Ange äntligen numret 0 i Maximal textruta.

3. Klicka sedan OK, och nu får endast negativa siffror och 0 anges, om positivt antal anges kommer det att visas ett varningsmeddelande, se skärmdump:

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

Tillåt endast negativa siffror i Excel med VBA-kod

Här är en VBA-kod som också kan hjälpa dig, med följande kod, när du anger ett positivt tal kommer det att konverteras till negativt automatiskt, gör så här:

1. Högerklicka på arkfliken där du bara vill tillåta negativa siffror och välj Visa kod från snabbmenyn, i poppade ut Microsoft Visual Basic för applikationer kopiera och klistra in följande kod i tomt Modulerna:

VBA-kod: Tillåt endast negativa siffror i kalkylbladet:

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

Anmärkningar: I ovanstående kod, A1: A1000 är de celler som du vill bara mata in negativa siffror.

2. Spara och stäng sedan den här koden, gå tillbaka till kalkylbladet, och nu, när du anger några positiva siffror i cellerna du angav i koden, kommer de positiva siffrorna att konverteras till negativa automatiskt.