Kako v Excelu dovoliti samo negativne številke?

Kako v Excelu dovoliti samo vnesena negativna števila? Ta članek bo predstavil nekaj koristnih in hitrih trikov za rešitev te naloge.

Negativne številke v Excelu dovoljujte samo s preverjanjem podatkov

Negativna števila v Excelu smejo imeti samo s kodo VBA

Negativne številke v Excelu dovoljujte samo s preverjanjem podatkov

Običajno je Preverjanje podatkov funkcija vam lahko pomaga, naredite naslednje:

1. Izberite celice ali stolpce, za katere želite, da se dovolijo samo vnesena negativna števila, in kliknite datum > Preverjanje podatkov > Preverjanje podatkov, glej posnetek zaslona:

2. v Preverjanje podatkov v pogovornem oknu pod Nastavitve zavihek naredite naslednje možnosti:

(1.) V Dovoli oddelek, izberite Decimalno s spustnega seznama;

(2.) V datum prosimo izberite manj kot ali enako možnost;

(3.) Končno vnesite številko 0 v največja Polje z besedilom.

3. Nato kliknite OK, in zdaj je dovoljeno vnašati samo negativne številke in 0, če je vnesena pozitivna številka, se bo prikazalo opozorilno sporočilo, glej posnetek zaslona:

Negativna števila v Excelu smejo imeti samo s kodo VBA

Tu je tudi koda VBA, ki vam lahko pomaga, z naslednjo kodo, ko vnesete pozitivno številko, se samodejno pretvori v negativno, naredite naslednje:

1. Z desno miškino tipko kliknite zavihek lista, za katerega želite dovoliti samo negativne številke, in izberite Ogled kode iz kontekstnega menija v izpuščenem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v prazno Moduli:

Koda VBA: Dovoli samo negativne številke na delovnem listu:

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

Opombe: V zgornji kodi, A1: A1000 je celice, za katere želite vnesti samo negativna števila.

2. Nato shranite in zaprite to kodo, se vrnite na delovni list in zdaj, ko v celice, ki ste jih navedli v kodi, vnesete nekaj pozitivnih števil, se pozitivna števila samodejno pretvorijo v negativna.

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...