Preskoči na glavno vsebino

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


puščica modri desni mehurček 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:

doc dovoli samo negativno 1

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.

doc dovoli samo negativno 2

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:

doc dovoli samo negativno 3


puščica modri desni mehurček 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

doc dovoli samo negativno 4

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 pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


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