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
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:
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.
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:
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
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
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...
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!