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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

---

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...