Skip i'r prif gynnwys

Sut i orfodi llinyn testun i uchafbwynt / llythrennau bach / achos cywir yn Excel?

Yn Excel, pan fyddwch chi'n rhoi rhai llythrennau neu eiriau i mewn i'r celloedd, rydych chi am orfodi'r tannau testun i ddod i ben er i chi fynd i mewn i'r llythrennau bach neu lythrennau achos cywir ac i'r gwrthwyneb. Efallai y bydd y mwyafrif ohonom yn ystyried y nodwedd Dilysu Data yn Excel, gyda'r swyddogaeth hon, byddwn yn cael rhybudd pan na fyddwn yn teipio achos cywir y testun. Yn yr erthygl hon, byddaf yn cyflwyno rhai ffyrdd diddorol o orfodi'r testun i uchafbwynt, llythrennau bach neu achos priodol yn ôl yr angen.

Gorfodwch y tannau testun i uchafbwynt / llythrennau bach / achos cywir gyda Dilysu Data

Gorfodwch y tannau testun i uchafbwynt / llythrennau bach / achos cywir gyda chod VBA

Newid testun i UCHAF / llythrennau bach / Achos Priodol gyda Kutools ar gyfer Excel syniad da3

Mae Dilysu Data yn offeryn pwerus yn Excel, gall ein helpu i wneud llawer o weithrediadau, gyda'i help, gallwn hefyd orfodi'r uppercase, llythrennau bach neu achos cywir y tannau testun wrth deipio, gwnewch fel a ganlyn:

1. Ewch i glicio Dyddiad > Dilysu Data > Dilysu Data, gweler y screenshot:

doc-rym-mawr-1

2. Yn y Dilysu Data deialog, o dan y Gosodiadau tab, cliciwch ar Caniatáu rhestr ostwng a dewis Custom opsiwn, yna yn y Fformiwla blwch testun, nodwch y fformiwla hon = EXACT (UCHAF (A1), A1), (A1 yn sefyll am golofn y byddwch chi'n defnyddio'r nodwedd hon, gallwch ei newid i'ch angen), gweler y screenshot:

doc-rym-mawr-1

3. Yna gallwch greu rhybudd yn ôl yr angen, cliciwch Rhybudd Gwall tab, a dewis Stop oddi wrth y arddull rhestr ostwng, ar gornel dde'r Neges gwall blwch testun, nodwch eich neges rybuddio eich hun, gweler y screenshot:

doc-rym-mawr-1

4. Ac yna cliciwch OK i gau'r ymgom, nawr pan fyddwch chi'n mynd i mewn i'r llinyn testun nad yw yn yr uwchgynhadledd yng ngholofn A, bydd blwch rhybuddio yn galw allan i'ch atgoffa rhag nodi'r llythrennau uchaf.

doc-rym-mawr-1

Nodyn:

Os oes angen i chi orfodi'r tannau testun i lythrennau bach neu achosion cywir, defnyddiwch y fformwlâu canlynol yn y Dilysu Data yng ngham 2.

Grym i lythrennau bach: = EXACT (ISEL (A1), A1);

Llu i achos priodol: = EXACT (EIDDO (A1), A1)

Gyda'r cod VBA canlynol, pan fyddwch chi'n nodi'r geiriau llythrennau bach i mewn i gell, bydd y testun llythrennau bach yn cael ei newid i'r llythrennau uchaf yn awtomatig.

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Yna dewiswch eich taflen waith ail-law o'r chwith Archwiliwr Prosiect, cliciwch ddwywaith arno i agor y Modiwlau, ac yna copïo a gludo gan ddilyn y cod VBA i'r Modiwl gwag:

Cod VBA: Llinyn testun yr heddlu i ddod i ben

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

doc-rym-mawr-1

3. Yna cadwch a chau'r cod hwn i ddychwelyd i'r daflen waith, nawr pan fyddwch chi'n nodi llinyn testun pryd bynnag y bydd yn llythrennau bach neu'n achos cywir, bydd yn dod yn uwch ar ôl tapio'r Rhowch allwedd yn awtomatig.

Nodiadau:

1. Mae'r cod hwn yn cael ei gymhwyso i'r daflen waith gyfan.

2. Os na allwch ddod o hyd i'r P.roject Pane Explorer yn y ffenestr, gallwch glicio Gweld > Archwiliwr Prosiect i'w agor.

3. I orfodi'r geiriau llythrennau bach neu achos cywir, gallwch gymhwyso'r cod VBA canlynol: (Mae'r weithdrefn yr un peth â'r uchod)

Cod VBA: Llinyn testun yr heddlu i Lowercase

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

Cod VBA: Llinyn testun yr heddlu i'r achos cywir

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

Os ydych chi am newid rhai testunau penodol yn UPPERCASE, llythrennau bach neu Achos Priodol, gallwch gymhwyso'r Newid Achos cyfleustodau Kutools ar gyfer Excel i'w gyflawni'n gyflym.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 
Lawrlwythiad Am Ddim
am ddim llawn-ymddangos mewn 30 diwrnod

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

1. Dewiswch y testunau rydych chi am eu newid achos a chlicio Kutools > Testun > Newid Achos. Gweler y screenshot:
newid doc achos 6

2. Yn y Newid Achos deialog, gwiriwch yr opsiwn gweithredu yn ôl yr angen, a gallwch gael rhagolwg o'r canlyniad yn y Rhagolwg cwarel. Gweler y screenshot:
newid doc achos 2

3. Cliciwch Ok or Gwneud cais ac mae'r testunau wedi bod yn achos newid.

 Newid i UCHAF  Newid i Achos Priodol  Newid i achos Dedfryd
 newid doc achos 3  newid doc achos 4 newid doc achos 5 

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad

Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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