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

Conas uimhreacha diúltacha a cheadú in Excel amháin?

In Excel, conas gan ach uimhreacha diúltacha a iontráiltear a cheadú? Tabharfaidh an t-alt seo roinnt cleasanna úsáideacha gasta isteach duit chun an tasc seo a réiteach.

Ná lig ach uimhreacha diúltacha in Excel le Bailíochtú Sonraí

Ná lig ach uimhreacha diúltacha in Excel le cód VBA


mboilgeog cheart gorm saighead Ná lig ach uimhreacha diúltacha in Excel le Bailíochtú Sonraí

De ghnáth, bíonn an Bailíochtú Sonraí is féidir le feidhm cabhrú leat, déan mar a leanas le do thoil:

1. Roghnaigh na cealla nó an colún nach dteastaíonn uait ach uimhreacha diúltacha a iontráladh a cheadú, agus ansin cliceáil Dáta > Bailíochtú Sonraí > Bailíochtú Sonraí, féach ar an scáileán:

ní cheadaíonn doc ach diúltach 1

2. Sa an Bailíochtú Sonraí bosca dialóige, faoin Socruithe cluaisín, déan na roghanna seo a leanas:

(1.) Sa Ceadaigh alt seo, a roghnú Deachúlach ón liosta anuas;

(2.) Sa Dáta alt, roghnaigh le do thoil níos lú ná nó cothrom leis rogha;

(3.) Faoi dheireadh, iontráil an uimhir 0 isteach sa Uasmhéid Bosca téacs.

ní cheadaíonn doc ach diúltach 2

3. Ansin cliceáil OK, agus anois, ní cheadaítear ach uimhreacha diúltacha agus 0 a iontráil, má iontráiltear uimhir dhearfach, taispeánfaidh sí teachtaireacht rabhaidh, féach an scáileán:

ní cheadaíonn doc ach diúltach 3


mboilgeog cheart gorm saighead Ná lig ach uimhreacha diúltacha in Excel le cód VBA

Seo cód VBA is féidir leis cabhrú leat, leis an gcód seo a leanas, nuair a iontrálann tú uimhir dhearfach, athrófar go diúltach í go huathoibríoch, déan mar a leanas:

1. Cliceáil ar dheis ar an táb bileog nach dteastaíonn uait ach uimhreacha diúltacha a cheadú, agus roghnaigh Féach an cód ón roghchlár comhthéacs, sa popped amach Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód seo a leanas sa bán Modúil:

Cód VBA: Ná lig ach uimhreacha diúltacha sa bhileog oibre:

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

ní cheadaíonn doc ach diúltach 4

nótaí: Sa chód thuas, A1: A1000 an bhfuil na cealla nach dteastaíonn uait ach ionchur uimhreacha diúltacha a ionchur.

2. Ansin sábháil agus dún an cód seo, téigh ar ais ar an mbileog oibre, agus anois, nuair a iontrálann tú roinnt uimhreacha dearfacha sna cealla a shonraigh tú sa chód, athrófar na huimhreacha dearfacha go cinn diúltacha go huathoibríoch.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (4)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh! Alt iontach. Ceist amháin: más rud é, in ionad grúpa comhleanúnach cealla, gur mhaith liom é seo a chur i bhfeidhm i gcodanna éagsúla den bhileog (eg A1:A2 AGUS A6:A8), an bhfuil bealach ann chun é sin a dhéanamh leis an réiteach VBA? ie: conas is féidir roinnt tacair cealla a chur in ionad an "A1:A1000"?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, GB,
Chun an cód seo a chur i bhfeidhm ar raonta iolracha, úsáid an cód seo a leanas le do thoil:

Tabhair faoi deara: nuair a bhíonn an cód seo á úsáid agat, ar dtús, ba cheart duit cliceáil ar dheis ar an gcluaisín bileog, agus ansin cliceáil View cód ón roghchlár comhthéacs, agus ansin cóipeáil an cód seo a leanas isteach sa mhodúl.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
'Updateby Extendoffice
Const sRg As Teaghrán = "A1:A10,B1:B10,C1:C20" 'Deighil na raonta le camóga
Dim xRg Mar Raon
Dim xSRg Mar Raon
Ar Earráid GoTo err_exit:
Application.EnableEvents = Bréagach
Socraigh xSRg = Raon(sRg)
Más rud é Not Intersect(Sprioc, xSRg) Is Faic Ansin
Do Gach xRg I Sprioc
Má Clé(xRg.Value, 1) <> "-" Ansin
xRg.Value = xRg.Value * -1
Deireadh Má
Ar Aghaidh xRg
Deireadh Má
earráid_scoir:
Application.EnableEvents = Fíor
Fo Deireadh

Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Super, go raibh maith agat! An-chabhrach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas a athraím an fhormáidiú uathoibríoch leis an gcód seo ó Airgeadra go Cuntasaíocht?
Níl aon tráchtanna curtha suas anseo go fóill

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL