Skip to main content

Conas sreang téacs a chur i bhfeidhm ar uachtair / cás íochtair / cás ceart in Excel?

In Excel, nuair a chuireann tú roinnt litreacha nó focail isteach sna cealla, ba mhaith leat iallach a chur ar na teaghráin téacs dul i bhfeidhm cé gur iontráil tú na litreacha beaga nó na litreacha cás cearta agus a mhalairt. B’fhéidir go mbreithneoidh an chuid is mó dínn an ghné Bailíochtaithe Sonraí in Excel, leis an bhfeidhm seo, gheobhaidh muid rabhadh nuair nach gclóscríobhaimid cás ceart an téacs. San Airteagal seo, tabharfaidh mé isteach roinnt bealaí suimiúla chun an téacs a chur i bhfeidhm ar chás uachtarach, cás íochtair nó cás ceart de réir mar is gá duit.

Cuir na teaghráin téacs i bhfeidhm go dtí an cás uachtair / cás íochtair / cás ceart le Bailíochtú Sonraí

Cuir na teaghráin téacs i bhfeidhm go dtí an cás uachtair / cás íochtair / cás ceart le cód VBA

Athraigh an téacs go UPPERCASE / lowercase / Cás Cuí le Kutools le haghaidh Excel smaoineamh maith3


Is uirlis chumhachtach é Bailíochtú Sonraí in Excel, féadann sé cabhrú linn go leor oibríochtaí a dhéanamh, lena chabhair, is féidir linn forlámhas, cás íochtair nó cás ceart na dtéad téacs a chur i bhfeidhm agus tú ag clóscríobh, déan mar a leanas:

1. Téigh chun cliceáil Dáta > Bailíochtú Sonraí > Bailíochtú Sonraí, féach ar an scáileán:

doc-fhórsa-uachtar-1

2. Sa an Bailíochtú Sonraí dialóg, faoin Socruithe tab, cliceáil ar an Ceadaigh liosta anuas agus roghnaigh An Chustaim rogha, ansin sa Foirmle bosca téacs, cuir isteach an fhoirmle seo = EXACT (UPPER (A1), A1), (A1 seasann do cholún a chuirfidh tú an ghné seo i bhfeidhm, is féidir leat é a athrú de réir do riachtanas), féach ar an scáileán:

doc-fhórsa-uachtar-1

3. Ansin is féidir leat foláireamh a chruthú de réir mar is gá duit, cliceáil le do thoil Foláireamh Earráide tab, agus roghnaigh stad ó na stíl liosta anuas, ag an choirnéal ceart den Teachtaireacht earráide bosca téacs, iontráil do theachtaireacht rabhaidh féin, féach an scáileán:

doc-fhórsa-uachtar-1

4. Agus ansin cliceáil OK chun an dialóg a dhúnadh, anois nuair a iontrálann tú an sreangán téacs nach bhfuil in uachtar i gcolún A, tiocfaidh bosca rabhaidh amach le cur i gcuimhne duit na litreacha uachtaracha a iontráil.

doc-fhórsa-uachtar-1

Nóta:

Más gá duit na teaghráin téacs a chur i bhfeidhm i litreacha beaga nó i gcás ceart, cuir na foirmlí seo a leanas i bhfeidhm ar an Bailíochtú Sonraí i gcéim 2.

Fórsa go litreacha beaga: = EXACT (LOWER (A1), A1);

Fórsa go cás ceart: = EXACT (PROPER (A1), A1)


Leis an gcód VBA seo a leanas, nuair a iontrálann tú na focail litreacha beaga i gcill, athrófar an téacs litreacha beaga go dtí na litreacha uachtair go huathoibríoch.

1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.

2. Ansin roghnaigh do bhileog oibre a úsáidtear ón taobh clé Explorer Tionscadail, cliceáil faoi dhó air chun an Modúil, agus ansin cóipeáil agus greamaigh an cód VBA seo a leanas sa Mhodúl bán:

Cód VBA: Teaghrán téacs a chur i bhfeidhm

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

doc-fhórsa-uachtar-1

3. Ansin sábháil agus dún an cód seo le filleadh ar an mbileog oibre, anois nuair a iontrálann tú sreangán téacs aon uair a bhíonn sé i litreacha beaga nó i gcás ceart, beidh sé uachtarach tar éis duit an Iontráil eochair go huathoibríoch.

Nótaí:

1. Cuirtear an cód seo i bhfeidhm ar an mbileog oibre iomlán.

2. Mura féidir leat an P.Roject Pane Explorer san fhuinneog, is féidir leat cliceáil Amharc > Explorer Tionscadail chun é a oscailt.

3. Chun na focail litreacha beaga nó cás ceart a chur i bhfeidhm, is féidir leat an cód VBA seo a leanas a chur i bhfeidhm: (Tá an nós imeachta mar an gcéanna leis an méid thuas)

Cód VBA: Teaghrán téacs fórsa go Lowercase

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

Cód VBA: Teaghrán téacs fórsa go cás ceart

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

Mura dteastaíonn uait ach roinnt téacsanna ar leith a athrú go UPPERCASE, litreacha beaga nó Cás Cuí, is féidir leat an Cás Athraithe fóntais de Kutools le haghaidh Excel a chur i gcrích go tapa.

Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. 

Tar éis suiteáil saor in aisce Kutools for Excel, déan mar atá thíos le do thoil:

1. Roghnaigh na téacsanna is mian leat cás a athrú agus cliceáil Kutools > Téacs > Cás Athraithe. Féach an pictiúr:
cás athraithe doc 6

2. Sa Cás Athraithe dialóg, seiceáil an rogha oibríochta de réir mar is gá duit, agus is féidir leat an toradh a réamhamharc sa réamhamharc pána. Féach an pictiúr:
cás athraithe doc 2

3. cliceáil Ok or Cuir iarratas isteach agus tá na téacsanna cás athraithe.

 Athraigh go UPPERCASE  Athrú go Cás Cuí  Athraigh go cás Pianbhreithe
 cás athraithe doc 3  cás athraithe doc 4 cás athraithe doc 5 

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (10)
No ratings yet. Be the first to rate!
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.
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!
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