Ugrás a tartalomra

Hogyan lehet csak negatív számokat engedélyezni az Excelben?

Az Excelben hogyan lehet csak a negatív számokat megadni? Ez a cikk néhány hasznos és gyors trükköt mutat be a feladat megoldásához.

Csak az adatok érvényesítésével engedélyezheti a negatív számokat az Excelben

Csak negatív számokat engedélyezhet az Excelben VBA kóddal


nyíl kék jobb buborék Csak az adatok érvényesítésével engedélyezheti a negatív számokat az Excelben

Általában a adatok ellenőrzése funkció segíthet, kérjük, tegye a következőket:

1. Jelölje ki azokat a cellákat vagy oszlopokat, amelyekbe csak negatív számokat szeretne megadni, majd kattintson a gombra dátum > adatok ellenőrzése > adatok ellenőrzése, lásd a képernyőképet:

dok csak negatív 1-et engedélyez

2. Az adatok ellenőrzése párbeszédpanel alatt beállítások lapon tegye a következőket:

(1.) A Hagyjuk szakaszban válassza Decimális a legördülő listából;

(2.) A dátum szakaszban, kérjük, válasszon kevesebb vagy egyenlő választási lehetőség;

(3.) Végül írja be a számot 0 be a Maximális szövegdoboz.

dok csak negatív 2-et engedélyez

3. Ezután kattintson OK, és most csak negatív számokat és 0-t lehet megadni, ha pozitív számot adunk meg, akkor figyelmeztető üzenet jelenik meg, lásd a képernyőképet:

dok csak negatív 3-et engedélyez


nyíl kék jobb buborék Csak negatív számokat engedélyezhet az Excelben VBA kóddal

Itt van egy VBA-kód is, amely a következő kóddal segít, ha pozitív számot ad meg, akkor automatikusan negatívvá válik, kérjük, tegye a következőket:

1. Kattintson a jobb gombbal azon a lapfülön, amelyen csak negatív számokat szeretne engedélyezni, majd válassza a lehetőséget Kód megtekintése a helyi menüből, a kiugrottban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a következő kódot az üresbe Modulok:

VBA kód: Csak a munkalapon engedélyezhet negatív számokat:

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

dok csak negatív 4-et engedélyez

Megjegyzések: A fenti kódban A1: A1000 az a cella, amelybe csak negatív számokat szeretne bevinni.

2. Ezután mentse el és zárja be ezt a kódot, menjen vissza a munkalapra, és most, amikor beír néhány pozitív számot a kódban megadott cellákba, a pozitív számok automatikusan negatívakká alakulnak.

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do I change the automatic formatting with this code from Currency to Accounting ?
This comment was minimized by the moderator on the site
Hi! Great article. One question: if, instead of a coherent group of cells, I want to apply this in different parts of the sheet (e.g. A1:A2 AND A6:A8), is there a way to do that with the VBA solution? I.e.: how do I replace the "A1:A1000" with several sets of cells?
This comment was minimized by the moderator on the site
Hello, GB,
To apply this code for multiple ranges, please use the following code:

Note: when using this code, first, you should right click the sheet tab, and then click View code from the context menu, and then copy the following code into the module.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Const sRg As String = "A1:A10,B1:B10,C1:C20" 'Separate the ranges by commas
Dim xRg As Range
Dim xSRg As Range
On Error GoTo err_exit:
Application.EnableEvents = False
Set xSRg = Range(sRg)
If Not Intersect(Target, xSRg) 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

Please try, hope it can help you!
This comment was minimized by the moderator on the site
Super, thanks! Very helpful.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations