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

Ինչպե՞ս կանխել հատուկ նիշերի մուտքը Excel:

Որոշ դեպքերում մենք պարզապես ցանկանում ենք տառեր կամ թվեր մուտքագրել բջիջներում և կանխել հատուկ նիշերի մուտքագրումը, ինչպիսիք են @ # $% և այլն: Excel- ում կա՞ն գործառույթներ, որոնք թույլ չեն տալիս հատուկ նիշերը մուտքագրել, երբ արժեքներ ենք տեղադրում:

Կանխել հատուկ նիշերի մուտքը տվյալների վավերացումով

Կանխել հատուկ նիշերի մուտքը VBA կոդով

Կանխել հատուկ նիշերի Excel- ի համար Kutools- ի մուտքը լավ գաղափար 3


Կանխել հատուկ նիշերի մուտքը տվյալների վավերացումով

Excel- ի «Տվյալների վավերացումը կարող է օգնել ձեզ թույլ տալ մուտքագրել միայն այբբենական թվերը: Խնդրում ենք անել հետևյալը.

1, Ընտրեք մի տիրույթ, որը ցանկանում եք կանխել հատուկ նիշերի մուտքը:

2. Այնուհետեւ կտտացրեք Ամսաթիվ > Տվյալների վավերացում > Տվյալների վավերացում, տես նկարի նկարը.

doc- կանխել-նիշերը -1

3, Մեջ Տվյալների վավերացում երկխոսության վանդակում, սեղմեք Կարգավորումներ էջանշանը եւ ընտրեք Սովորություն - ից Թույլ տալ բացվող ցուցակ, ապա մուտքագրեք այս բանաձևը =ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))) մեջ Ֆորմուլա տեքստային տուփ, տես նկարի նկարը.

Նշում:A1 նշում է ձեր ընտրած տիրույթի առաջին բջիջը (ձախից աջ):

doc- կանխել-նիշերը -1

4. Այնուհետեւ կտտացրեք OK այս երկխոսությունը փակելու համար, և այժմ, երբ մուտքագրեք նշված սյունակում հատուկ նիշեր պարունակող արժեքներ, կիրառեք ընտրանքը, կստանաք հետևյալ նախազգուշական հաղորդագրությունը:

doc- կանխել-նիշերը -1


Կանխել հատուկ նիշերի մուտքը VBA կոդով

Հետևյալ VBA կոդը կարող է նաև օգնել ձեզ կանխել հատուկ նիշերը տեքստի արժեքները մուտքագրելիս:

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2. Դրանից հետո ձախից ընտրեք ձեր օգտագործված աշխատանքային թերթը Project Explorer, կրկնակի կտտացրեք այն `բացելու համար Մոդուլներև ապա պատճենեք և կպցրեք հետևյալ VBA կոդը ՝ դատարկի մեջ Մոդուլներ:

VBA կոդ. Կանխել հատուկ նիշերի մուտքը Excel

Private Const FCheckRgAddress As String = "A1:A100"
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140905
    Dim xChanged As Range
    Dim xRg As Range
    Dim xString As String
    Dim sErrors As String
    Dim xRegExp As Variant
    Dim xHasErr As Boolean
    Set xChanged = Application.Intersect(Range(FCheckRgAddress), Target)
    If xChanged Is Nothing Then Exit Sub
    Set xRegExp = CreateObject("VBScript.RegExp")
    xRegExp.Global = True
    xRegExp.IgnoreCase = True
    xRegExp.Pattern = "[^0-9a-z]"
    For Each xRg In xChanged
        If xRegExp.Test(xRg.Value) Then
            xHasErr = True
            Application.EnableEvents = False
            xRg.ClearContents
            Application.EnableEvents = True
        End If
    Next
    If xHasErr Then MsgBox "These cells had invalid entries and have been cleared:"
End Sub

doc- կանխել-նիշերը -1

ՆշումՎերոհիշյալ ծածկագրում կարող եք փոխել տիրույթը A1: A100 of Մասնավոր Const FCheckRgAddress As String = "A1: A100" սցենար ձեր սեփական տիրույթում, որը ցանկանում եք կանխել հատուկ նիշերը:

3, Դրանից հետո պահեք և փակեք այս կոդը, և այժմ, երբ A1: A100 տիրույթում որոշ հատուկ նիշերով տեքստի արժեքներ եք մուտքագրում, ձեր արժեքը միանգամից մաքրվելու է, և կարող եք ստանալ հետևյալ նախազգուշական հաղորդագրությունը:

doc- կանխել-նիշերը -1


Կանխել հատուկ նիշերի Excel- ի համար Kutools- ի մուտքը

Իրականում, եթե ունեք Excel- ի համար նախատեսված գործիքներ - հարմար և բազմաֆունկցիոնալ գործիք, որի միջոցով դուք կարող եք արագորեն կանխել հատուկ նիշերի մուտքագրումը ընտրության մեջ Կանխել մուտքագրումը օգտակարությունը մեկ ստուգմամբ:

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև :(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)

1. Ընտրեք այնպիսի ընտրություն, որը ցանկանում եք կանխել հատուկ նիշերի մուտքագրումը և սեղմել Կուտոլս > Կանխել մուտքագրումը > Կանխել մուտքագրումը, Տեսեք,
doc կանխել նիշերը 10

2. Մեջ Կանխել մուտքագրումը երկխոսություն, ստուգում Կանխել տիպը հատուկ նիշերում տարբերակ: Տեսեք,
doc կանխել նիշերը 7

3: սեղմեք Ok, և դուրս կգա երկխոսություն ՝ հիշեցնելու համար, որ այս ծրագիրը կօգտագործի և կտտատի, այն կհեռացնի տվյալների վավերացումը այո հաջորդ երկխոսությանը անցնելու համար, դա ձեզ կհիշեցնի, որ կոմունալը աշխատել է բաժնում: տե՛ս սքրինշոթը.
doc կանխել նիշերը 8

4: սեղմեք OK երկխոսությունը փակելու համար, և այսուհետ հայտնվում է նախազգուշական երկխոսություն, երբ փորձում եք ընտրության մեջ հատուկ նիշ մուտքագրել:
doc կանխել նիշերը 9

ՀուշումԵթե ​​ցանկանում եք դադարեցնել սյունակում կրկնօրինակ արժեքների մուտքագրումը, փորձեք օգտագործել Excel- ի համար նախատեսված Կոշուլսներ Կանխել կրկնօրինակումը ինչպես ցույց է տրված հետևյալ նկարում Դա լիարժեք գործառույթ է ՝ առանց սահմանափակումների 30 օրվա ընթացքում, խնդրում ենք ներբեռնել և անվճար փորձաշրջան անցնել հիմա:

doc կանխել կրկնօրինակումը doc kutools- ը կանխում է մուտքագրել 2


Առնչվող հոդվածներ քանակը:

Ինչպե՞ս կանխել Excel- ում բացատներով արժեքների մուտքագրումը:

Ինչպե՞ս կանխել Excel- ի սյունակում կրկնօրինակ գրառումները:

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

🤖 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 (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Pessoal, segue formul em portugês com a quantidade de caracteres limitada a 7:

=E(ÉNÚM(SOMARPRODUTO(LOCALIZAR(EXT.TEXTO(A1;LIN(INDIRETO("1:"&NÚM.CARACT(A1)));1);"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ ")));NÚM.CARACT(A1)<8)
This comment was minimized by the moderator on the site
Excelente solucion. como agregas las comillas (") para que sean admitidas?
This comment was minimized by the moderator on the site
Hello herber,

Glad to help. Using the first method, you can use this formula in data validation:
=ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"&CHAR(34))))

The CHAR function takes the ASCII value and returns the corresponding character value. The ASCII value for a double quote is 34. So a double quote will be allowed. Please have a try.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
How to repeat this in other columns?
This comment was minimized by the moderator on the site
When I use your VBA code in excel 2013 it will open up debug option and freezes
This comment was minimized by the moderator on the site
Hi, WilY, if it pops out a dialog as below screenshot shown, just click Yes then OK to enable the code. This issue appears in Excel 2016, too.
This comment was minimized by the moderator on the site
What if i need to prevent in a single cell typing certain characters in combination with length of the text?

For example, i want to prevent the text to be between 5-16 caharacters in comination with certain character prevention? Any advice?
This comment was minimized by the moderator on the site
Maybe you can try the Data Validation function to limit the text length. See screenshot:
This comment was minimized by the moderator on the site
The solution with Data Validation is almost perfect. But I'm able to put "*" character the such protected field. Any advice? Many thanks Pavel
This comment was minimized by the moderator on the site
Instead of SEARCH function try using FIND: =ISNUMBER(SUMPRODUCT(FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")))
This comment was minimized by the moderator on the site
how to set length limit ? i mean if i want to set only 12 character or number
This comment was minimized by the moderator on the site
Hello, raj,
To solve your problem, please apply the below formula:
=AND(ISNUMBER(SUMPRODUCT(FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))),LEN(A1)=12)


Please have a try, hope it can help you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations