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

Ինչպե՞ս Excel- ում տեքստի տողը ստիպել մեծատառի / փոքրատառի / պատշաճ տառի:

Excel- ում, երբ որոշ տառեր կամ բառեր եք մուտքագրում բջիջներ, ցանկանում եք տեքստային տողերը ստիպել մեծացնել, չնայած որ մուտքագրել եք փոքրատառ կամ պատշաճ տառեր և հակառակը: Մեզանից շատերը կարող են հաշվի առնել Excel- ում Տվյալների Վավերացման հատկությունը, այս գործառույթով մենք կստանանք նախազգուշացում, երբ չգրենք տեքստի ճիշտ գործը: Այս հոդվածում ես կներկայացնեմ մի քանի հետաքրքիր ձևեր `տեքստը մեծ, փոքր կամ պատշաճ տառերով ստիպելու համար, որքան ձեզ հարկավոր է:

Տեքստի տողերը հարկադրեք մեծատառ / փոքրատառ / պատշաճ տառեր տվյալների վավերացումով

Ստիպեք տեքստային տողերը VBA կոդի հետ մեծ / փոքր / պատշաճ տառերի

Excel- ի համար Kutools- ի հետ փոխեք տեքստը ՓՈՔՐԻԿ / փոքրատառ / Caseիշտ գործ լավ գաղափար 3

Տվյալների վավերացումը Excel- ում հզոր գործիք է, այն կարող է օգնել մեզ շատ գործողություններ կատարել, իր օգնությամբ մուտքագրելիս կարող ենք նաև ստիպել տեքստային տողերի մեծ, փոքրատառ կամ պատշաճ պատյան, խնդրում ենք կատարել հետևյալը.

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

դոկ-ուժ-մեծատառ -1

2, Մեջ Տվյալների վավերացում երկխոսություն, տակ Կարգավորումներ ներդիրը, սեղմեք Թույլ տալ բաց թողեք ցուցակը և ընտրեք Սովորություն տարբերակը, ապա ՝ Ֆորմուլա տեքստային տուփ, մուտքագրեք այս բանաձևը = ACՇՄԱՐ (ՎԵՐP (A1), A1)(A1 նշանակում է սյուն, որը դուք կկիրառեք այս հատկությունը, այն կարող եք փոխել ըստ ձեր կարիքի), տե՛ս նկարը

դոկ-ուժ-մեծատառ -1

3, Այնուհետև կարող եք նախազգուշացում ստեղծել, որքան անհրաժեշտ է, խնդրում ենք կտտացնել Erգուշացման սխալ էջանշանը եւ ընտրել Դադարեցնել - ից ոճ բացվող ցուցակը, աջ անկյունում Error message տեքստային տուփ, մուտքագրեք ձեր սեփական նախազգուշական հաղորդագրությունը, տես նկարի նկարը.

դոկ-ուժ-մեծատառ -1

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

դոկ-ուժ-մեծատառ -1

Նշում:

Եթե ​​Ձեզ անհրաժեշտ է ստիպել տեքստի տողերը փոքրատառ կամ պատշաճ տառերով, խնդրում ենք կիրառել հետևյալ բանաձևերը Տվյալների վավերացում 2-րդ քայլին:

Ստիպել փոքրատառերի: = ACՇՄԱՐ (OWածր (A1), A1);

Ստիպել պատշաճ պատյանին. = ACՇՄԱՐ (Pիշտ (A1), A1)

Հետևյալ VBA կոդով, երբ փոքր բառերը մուտքագրեք բջիջ, փոքրատառ տեքստը ավտոմատ կերպով կփոխվի մեծատառերով:

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

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

VBA կոդ. Տեքստի տողը ստիպել մեծատառով

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.UCase(Target.Value)
End Sub

դոկ-ուժ-մեծատառ -1

3, Այնուհետև պահեք և փակեք այս կոդը ՝ աշխատանքային թերթին վերադառնալու համար, հիմա, երբ մուտքագրեք տողի տող, երբ այն փոքր է կամ պատշաճ, այն կդառնա մեծատառ ՝ Մտնել ինքնաբերաբար բանալին:

Նշումներ:

1. Այս կոդը կիրառվում է ամբողջ աշխատանքային թերթի վրա:

2. Եթե չեք կարողանում գտնել P- նroject Explorer- ի պատուհանը պատուհանում կարող եք սեղմել Դիտել > Project Explorer բացելու համար:

3. Փոքր կամ պատշաճ տառ բառերը ստիպելու համար կարող եք կիրառել հետևյալ VBA կոդը. (Ընթացակարգը նույնն է, ինչ վերը նշված)

VBA կոդ. Տեքստի տողը ստիպել փոքրատառով

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.LCase(Target.Value)
End Sub

VBA կոդ. Տեքստի տողը հարկադրի պատշաճ պատյանով

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub

Եթե ​​դուք պարզապես ուզում եք փոխել որոշ հատուկ տեքստեր ՓՈՔՐԻԿ, փոքրատառ կամ Caseիշտ գործի, կարող եք կիրառել Փոխեք գործը օգտակարությունը Excel- ի համար նախատեսված գործիքներ արագ ավարտելու համար:

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

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

1. Ընտրեք տեքստերը, որոնք ցանկանում եք փոխել գործը, և կտտացրեք Կուտոլս > Տեքստ > Փոխեք գործը, Տեսեք,
փաստաթուղթ փոխելու դեպք 6

2. Մեջ Փոխեք գործը երկխոսություն, ստուգեք գործողության տարբերակը, որքան ձեզ հարկավոր է, և արդյունքը կարող եք նախադիտել այստեղում Preview պատուհան Տեսեք,
փաստաթուղթ փոխելու դեպք 2

3: սեղմեք Ok or Դիմել և տեքստերը փոփոխվել են գործով:

 Փոխել մեծատառի  Փոխել պատշաճ գործի  Փոխել նախադասության գործը
 փաստաթուղթ փոխելու դեպք 3  փաստաթուղթ փոխելու դեպք 4 փաստաթուղթ փոխելու դեպք 5 

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

🤖 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 (10)
No ratings yet. Be the first to rate!
DS
DS
This comment was minimized by the moderator on the site
Please suggest modifications in the VBA code to force the text strings to change to the desired format (Upper/Lower/Proper case) in selected/specified cells only rather than changing the Case of the text strings in the entire worksheet.
Reply
0
0
skyyang
skyyang     DS
This comment was minimized by the moderator on the site
Hello, DS,
To apply the code to a specified range instead of entire worksheet, please apply the following code:
VBA code: Force text string to uppercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to lowercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.LCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to propercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Application.Proper(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


Please have a try, thank you!
Reply
Report
0
0
Spencer
Spencer
This comment was minimized by the moderator on the site
Use: On Error Resume Next

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
On Error Resume Next
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub
Reply
0
0
wilson
wilson
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
Reply
0
0
Thomas Reid
Thomas Reid
This comment was minimized by the moderator on the site
This worked for me, however if you went to delete the contents of the cell then a "runtime error '13': type mismatch" came up

Any ideas?
Reply
0
0
Miguel Neves
Miguel Neves     Thomas Reid
This comment was minimized by the moderator on the site
i have the same problem. if you know how to deal with it please tell me!
Reply
0
0
Sunny
Sunny     Miguel Neves
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
Reply
Report
0
0
Russ Maurer
Russ Maurer
This comment was minimized by the moderator on the site
Like your VBA solution, but how could I limit it to a single column and format other columns differently, e.g., columns A and C force uppercase, column B force proper case?
Reply
0
0
Sunny
Sunny     Russ Maurer
This comment was minimized by the moderator on the site
I do not know which VBA can handle your job (some columns in uppercase, some in proper case), but the data validation can solve it, why do not use it?
Reply
Report
0
0
Patrick
Patrick
This comment was minimized by the moderator on the site
thanks for the macro to convert all entries to capital letters, but is there something i need to do to stop the macro from crashing excel every fe minutes? Appreciate the help!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations