Note: The other languages of the website are Google-translated. Back to English

Sut i ganiatáu rhifau negyddol yn Excel yn unig?

Yn Excel, sut i ganiatáu rhifau negyddol a gofnodwyd yn unig? Bydd yr erthygl hon yn cyflwyno rhai triciau defnyddiol a chyflym i chi ddatrys y dasg hon.

Dim ond caniatáu rhifau negyddol yn Excel gyda Dilysu Data

Dim ond caniatáu rhifau negyddol yn Excel gyda chod VBA


swigen dde glas saeth Dim ond caniatáu rhifau negyddol yn Excel gyda Dilysu Data

Fel rheol, mae'r Dilysu Data gall swyddogaeth eich helpu chi, gwnewch fel a ganlyn:

1. Dewiswch y celloedd neu'r golofn rydych chi am ganiatáu dim ond rhifau negyddol a gofnodwyd, ac yna cliciwch Dyddiad > Dilysu Data > Dilysu Data, gweler y screenshot:

dim ond 1 negyddol y mae doc yn ei ganiatáu

2. Yn y Dilysu Data blwch deialog, o dan y Gosodiadau tab, gwnewch yr opsiynau canlynol:

(1.) Yn y Caniatáu adran, dewiswch Degol o'r gwymplen;

(2.) Yn y Dyddiad adran, dewiswch yn llai na neu'n hafal i opsiwn;

(3.) O'r diwedd, nodwch y rhif 0 i mewn i'r Uchafswm blwch testun.

dim ond 2 negyddol y mae doc yn ei ganiatáu

3. Yna cliciwch OK, ac yn awr, dim ond rhifau negyddol a 0 y caniateir eu nodi, os cofnodir rhif positif, bydd yn arddangos neges rhybuddio, gweler y screenshot:

dim ond 3 negyddol y mae doc yn ei ganiatáu


swigen dde glas saeth Dim ond caniatáu rhifau negyddol yn Excel gyda chod VBA

Dyma god VBA a all hefyd eich helpu chi, gyda'r cod canlynol, pan fyddwch chi'n nodi rhif positif, bydd yn cael ei drawsnewid yn negyddol yn awtomatig, gwnewch fel a ganlyn:

1. Cliciwch ar y dde ar y tab dalen rydych chi am ganiatáu rhifau negyddol yn unig, a dewiswch Gweld y Cod o'r ddewislen cyd-destun, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i'r gwag Modiwlau:

Cod VBA: Dim ond caniatáu rhifau negyddol yn y daflen waith:

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

dim ond 4 negyddol y mae doc yn ei ganiatáu

Nodyn: Yn y cod uchod, A1: A1000 yw'r celloedd rydych chi am fewnbynnu mewnbwn rhifau negyddol yn unig.

2. Yna arbedwch a chau'r cod hwn, ewch yn ôl i'r daflen waith, ac yn awr, pan fyddwch chi'n rhoi rhai rhifau positif i'r celloedd a nodwyd gennych yn y cod, bydd y rhifau positif yn cael eu trosi'n rhai negyddol yn awtomatig.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (4)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Erthygl wych. Un cwestiwn: os wyf, yn lle grŵp cydlynol o gelloedd, am gymhwyso hyn mewn gwahanol rannau o'r ddalen (ee A1:A2 AC A6:A8), a oes ffordd o wneud hynny gyda'r datrysiad VBA? Hy: sut ydw i'n disodli'r "A1:A1000" gyda sawl set o gelloedd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, GB,
I gymhwyso'r cod hwn ar gyfer ystodau lluosog, defnyddiwch y cod canlynol:

Sylwch: wrth ddefnyddio'r cod hwn, yn gyntaf, dylech glicio ar y tab dalen ar y dde, ac yna cliciwch Gweld cod o'r ddewislen cyd-destun, ac yna copïwch y cod canlynol i'r modiwl.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
'Updateby Extendoffice
Const sRg As String = "A1:A10,B1:B10,C1:C20" 'Gwahanu'r ystodau gan atalnodau
Dim xRg Fel Ystod
Dim xSRg Fel Ystod
Ar Gwall GoTo err_exit:
Application.EnableEvents = Gau
Gosod xSRg = Ystod(sRg)
Os Nad yw Croestorri (Targed, xSRg) Yn Dim Yna
Ar gyfer Pob xRg Mewn Targed
Os Chwith(xRg.Value, 1) <> " -" Yna
xRg.Value = xRg.Gwerth *-1
Gorffennwch Os
xRg nesaf
Gorffennwch Os
gwall_allanfa:
Application.EnableEvents = Gwir
Is-End

Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Super, diolch! Cymwynasgar iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae newid y fformatio awtomatig gyda'r cod hwn o Arian i Gyfrifo?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir