Skip to main content

Conas teaghráin téacs a athrú go cás pianbhreithe i Microsoft Excel?

B’fhéidir go mbeidh ort teaghráin téacs a athrú go cás pianbhreithe i Microsoft Excel. Má cheaptar go bhfuil na céadta teaghráin téacs in uachtair nó i litreacha beaga, ní rogha mhaith iad iad a athrú de láimh ceann ar cheann. An bhfuil cleasanna éasca ann teaghráin téacs a athrú go cás pianbhreithe i Microsoft Excel?


mboilgeog cheart gorm saighead Athraigh teaghráin téacs go cás pianbhreithe in Excel le VBA

Má tá taithí agat ar Microsoft Excel, is rogha maith é VBA a úsáid chun teaghráin téacs a athrú go cás pianbhreithe.

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

Céim 2: Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas sa Modúil fhuinneog.

Sub SentenceCase()
'Updateby20131127
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
    xValue = Rng.Value
    xStart = True
    For i = 1 To VBA.Len(xValue)
        ch = Mid(xValue, i, 1)
        Select Case ch
            Case "."
            xStart = True
            Case "?"
            xStart = True
            Case "a" To "z"
            If xStart Then
                ch = UCase(ch)
                xStart = False
            End If
            Case "A" To "Z"
            If xStart Then
                xStart = False
            Else
                ch = LCase(ch)
            End If
        End Select
        Mid(xValue, i, 1) = ch
    Next
    Rng.Value = xValue
Next
End Sub

Céim 3: Brúigh an F5 eochair chun an macra seo a rith, ansin cuirtear dialóg aníos ar an scáileán chun raon a roghnú, féach an scáileán:

doc-athrú-cás7

Céim 4: Cliceáil Ok, agus is féidir leat an toradh a fheiceáil mar a thaispeántar thíos:


mboilgeog cheart gorm saighead Athraigh teaghráin téacs go cás pianbhreithe in Excel le Kutools le haghaidh Excel

Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Faigh é anois

B’fhéidir nach mbeadh macra VBA éasca d’úsáideoirí tosaigh Microsoft Excel. Ná bíodh imní ort faoi. Kutools le haghaidh Excel's Cás Athraithe is féidir leis an uirlis gach teaghrán téacs a athrú go cás abairte i roghnúcháin go tapa.

Céim 1: Roghnaigh an raon ina n-athróidh tú teaghráin téacs go cás pianbhreithe.

Céim 2: Cliceáil ar an Kutools > Uirlisí Téacs > Cás Athraithe…. Féach an pictiúr:

Céim 3: Sa bhosca dialóige Change Case, seiceáil an Cás Pianbhreithe. Rogha, agus cliceáil OK or Cuir iarratas isteach cnaipe.

Ansin féachfaidh tú go n-athraítear gach cineál teaghráin téacs go cás abairte sa roghnú. Féach an figiúr seo a leanas:

Kutools le haghaidh Excel's Cás Athraithe is féidir leis an uirlis cás téacs a athrú go tapa go UPPER, LOWER, PROPER, Sentence Case, agus CASE tOGGLE. Cliceáil chun níos mó a fháil amach ...


Earraí coibhneasta:

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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Here is simple way of converting any text with multiple sentences to Sentence Case. The comments on the right show how the text gets transformed at each step. Private Function SentenceConvert(strText As String) As String strText = LCase(strText) 'I GO. i went. --> i go. i went. strText = Replace(Replace(Replace(strText, ". ", ".~"), "? ", "?~"), "! ", "!~") 'i go. i went. --> i go.~i went. strText = Replace(strText, " ", "^") 'i go.~i went. --> i^go.~i^went. strText = Replace(strText, "~", " ") 'i^go.~i^went. --> i^go. i^went. strText = StrConv(strText, vbProperCase) 'i^go. i went. --> I^go. I^went. strText = Replace(strText, "^", " ") 'I^go. I^went. --> I go. I went. strText = Replace(strText, " i ", " I ") SentenceConvert = strText End Function
This comment was minimized by the moderator on the site
OR you could simply copy the selection to MS Word, change to sentence case there and copy back.
This comment was minimized by the moderator on the site
Good macro, but it would help to have all the variables defined.
This comment was minimized by the moderator on the site
Really helpful! Thanks! :lol:
This comment was minimized by the moderator on the site
Thanks for the great tutorial for the macro! I noticed though that any sentences following a sentence ending in an exclamation point did not get capitalized. How do I add this to the macro?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations