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 for 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 for Excel i'w gyflawni'n gyflym.

Kutools for Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools for Excel, gwnewch fel y nodir 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

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 Gorau12 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 for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...

tab kte 201905


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 (8)
No ratings yet. Be the first to rate!
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
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
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?
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!
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
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?
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?
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!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations