Skip i'r prif gynnwys

Sut i drosi / newid testun yn gyflym i achosion uchaf yn Microsoft Excel?

Mae'r erthygl hon yn mynd i siarad am rai awgrymiadau ar sut i newid llinynnau testun i bob llythyren uchaf yn hawdd yn Microsoft Excel.

Gan dybio bod angen i chi newid tannau testun yn A1: A5 i lythrennau uchaf, gweler y lluniau sgrin canlynol:


swigen dde glas saeth Newid llinynnau testun i uchafbwyntiau yn Excel gyda swyddogaeth UPPER

Mae defnyddio swyddogaeth uchaf Microsoft Excel yn hawdd newid llinynnau testun i lythrennau uchaf mewn un cell.

Rhowch = UCHAF (A1) yng Nghell C1, a gwasgwch Enter key. Yna mae cynnwys "newid achos" yng Nghell A1 yn cael ei gopïo a'i newid i "ACHOS NEWID" yng Nghell C1. Gweler y sgrinlun:

Dewiswch y Cell C1, a gallwch chi gopïo'r fformiwla i gelloedd eraill trwy lusgo yn y gornel dde-dde a gollwng i gelloedd eraill.


swigen dde glas saeth Newid llinynnau testun i uchafbwynt yn Excel gyda VBA

Mae yna god VBA a all eich helpu chi i newid y llinyn testun i uchafbwynt yn Excel.

1. Gwasgwch Alt + F11 i arddangos y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y ffenestr, cliciwch Mewnosod > Modiwlau i ddangos ffenestr modiwl newydd, yna copïwch y cod VBA canlynol i mewn i ffenestr y modiwl.

VBA: Newid llinyn testun i uchafbwynt yn Excel.

Sub UCase()
'Upadateby20140701
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = VBA.UCase(Rng.Value)
Next
End Sub

3. Yna cliciwch Run botwm, ac mae deialog yn galw allan i chi ddewis ystod i newid llinyn testun i uchafbwynt. Gweler y screenshot:

4. Ar ôl dewis, cliciwch OK. Bydd yr holl linyn testun yn y detholiad yn cael ei newid i uchafbwynt.


swigen dde glas saeth Newid llinynnau testun i briflythrennau yn Excel gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel's Newid Achos gall offeryn eich helpu chi i gyd â llinynnau testun neu lythyrau i uwch-lythrennau mewn ystod o Microsoft Excel.

Kutools ar gyfer Excel yn cynnwys mwy na 100 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now.

Cam 1: Dewiswch yr ystod y byddwch chi'n newid tannau testun i lythrennau uchaf.

Cam 2: Cliciwch y Kutools > Offer Testun > Newid Achos…. Gweler y sgrinlun:

Cam 3: Yn Newid Achos blwch deialog, gwiriwch y ACHOS UCHAF opsiwn, a chlicio OK or Gwneud cais botwm. Gweler y sgrinlun:

Yna fe welwch fod yr holl dannau testun wrth eu dewis yn cael eu newid i lythrennau uchaf. Gweler y screenshot:

Kutools ar gyfer Excel's Newid Achos gall offeryn newid achos testun yn gyflym i UPPER, LOWER, PROPER, Sentence Case, a cASE tOGGLE. Cliciwch i wybod mwy ...


Erthyglau cymharol:

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 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 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 (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA was freaking awesome thanks a lot :lol: .
This comment was minimized by the moderator on the site
This is one the ways that i know it could be done with VBA Sub UPPER () Dim Addrr As Atring Addr = Intersect(ActiveSheet.UsedRange, Selection).Address Range(Addr) = _ Evaluate("IF(LEN(" & Addr & "),UPPER(" & Addr & "),"""")") End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations