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

Ինչպե՞ս թույլ տալ միայն բացասական թվեր 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. Դրանից հետո պահեք և փակեք այս կոդը, հետ գնացեք աշխատաթերթը, և այժմ, երբ որոշ դրական թվեր մուտքագրեք ծածկագրում ձեր կողմից նշված բջիջները, դրական թվերը ավտոմատ կերպով կվերածվեն բացասականների:


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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (4)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Հիանալի հոդված: Մի հարց. եթե բջիջների համահունչ խմբի փոխարեն ես ուզում եմ սա կիրառել թերթի տարբեր մասերում (օրինակ՝ A1:A2 ԵՎ A6:A8), կա՞ արդյոք դա անելու VBA լուծումը: Այսինքն՝ ինչպե՞ս փոխարինեմ «A1:A1000»-ը մի քանի բջիջներով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ԳԲ,
Այս կոդը մի քանի միջակայքերի համար կիրառելու համար խնդրում ենք օգտագործել հետևյալ կոդը.

Նշում. այս կոդը օգտագործելիս նախ պետք է աջ սեղմել թերթի ներդիրին, այնուհետև համատեքստի ընտրացանկից սեղմել Դիտել կոդը, այնուհետև պատճենել հետևյալ կոդը մոդուլում:

Private Sub Worksheet_Change (ByVal Target as Range)
― Թարմացնելով Extendoffice
Const sRg As String = "A1:A10,B1:B10,C1:C20" 'Առանձնացրեք միջակայքերը ստորակետերով
Dim xRg որպես տիրույթ
Dim xSRg որպես միջակայք
Սխալի դեպքում GoTo err_exit:
Application.EnableEvents = False
Սահմանել xSRg = միջակայք (sRg)
If Not Intersect (Target, xSRg) ոչինչ է, ապա
Յուրաքանչյուր xRg թիրախում
If Left(xRg.Value, 1) <> "-" Ապա
xRg.Value = xRg.Value * -1
Վերջ: Եթե
Հաջորդ xRg
Վերջ: Եթե
err_exit:
Application.EnableEvents = Ճիշտ է
Վերջ Sub

Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սուպեր, շնորհակալություն: Շատ օգտակար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ այս կոդով ավտոմատ ձևաչափումը արժույթից փոխել հաշվապահականի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից