Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս թույլ տալ միայն բացասական թվեր Excel- ում:

Excel- ում ինչպե՞ս թույլատրել միայն մուտքագրված բացասական թվերը: Այս հոդվածը ձեզ կներկայացնի օգտակար և արագ հնարքներ այս խնդիրը լուծելու համար:

Excel- ում թույլատրեք միայն բացասական թվեր տվյալների վավերացումով

Excel- ում թույլ տվեք բացասական թվեր միայն VBA կոդով


նետ կապույտ աջ պղպջակ Excel- ում թույլատրեք միայն բացասական թվեր տվյալների վավերացումով

Սովորաբար, Տվյալների վավերացում գործառույթը կարող է օգնել ձեզ, խնդրում ենք անել հետևյալը.

1, Ընտրեք այն բջիջները կամ սյունակը, որոնք ցանկանում եք թույլ տալ մուտքագրել միայն բացասական թվեր, ապա կտտացրեք Ամսաթիվ > Տվյալների վավերացում > Տվյալների վավերացում, տես նկարի նկարը.

doc թույլ են տալիս միայն բացասական 1

2, Մեջ Տվյալների վավերացում երկխոսության տուփ, տակ Կարգավորումներ էջանիշը, կատարեք հետևյալ ընտրանքները.

(1.) Ի Թույլ տալ Բաժին ընտրել Տասնորդական կոտորակ բացվող ցուցակից;

(2.) Ի Ամսաթիվ բաժին, խնդրում եմ ընտրել պակաս կամ հավասար տարբերակ;

(3.) Վերջապես մուտքագրեք համարը 0 մեջ Առավելագույնը տեքստային վանդակում:

doc թույլ են տալիս միայն բացասական 2

3. Այնուհետեւ կտտացրեք OK, և այժմ թույլատրվում է մուտքագրել միայն բացասական թվեր և 0, եթե դրական թիվ է մուտքագրվել, այն կցուցադրի նախազգուշական հաղորդագրություն, տես նկարի նկարը.

doc թույլ են տալիս միայն բացասական 3


նետ կապույտ աջ պղպջակ Excel- ում թույլ տվեք բացասական թվեր միայն VBA կոդով

Ահա VBA կոդը կարող է նաև օգնել ձեզ հետևյալ կոդով, երբ դրական թիվ եք մուտքագրում, այն ավտոմատ կերպով կվերածվի բացասականի, արեք հետևյալը.

1, Աջ կտտացրեք այն թերթիկի ներդիրին, որը ցանկանում եք թույլ տալ միայն բացասական թվեր, և ընտրեք Դիտել կոդը համատեքստի ընտրացանկից ՝ դուրս եկած պատուհանում Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և տեղադրեք հետևյալ կոդը դատարկի մեջ Մոդուլներ:

VBA կոդ. Աշխատաթերթում թույլ տվեք միայն բացասական թվեր.

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 թույլ են տալիս միայն բացասական 4

ՆշումՎերոհիշյալ ծածկագրում A1: A1000 այն բջիջներն են, որոնք ցանկանում եք մուտքագրել միայն բացասական թվերի մուտքագրում:

2. Դրանից հետո պահեք և փակեք այս կոդը, հետ գնացեք աշխատաթերթը, և այժմ, երբ որոշ դրական թվեր մուտքագրեք ծածկագրում ձեր կողմից նշված բջիջները, դրական թվերը ավտոմատ կերպով կվերածվեն բացասականների:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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