Conas sreang téacs a thiontú go cás ceart le heisceachtaí in Excel?
In Excel, is féidir leat an fheidhm cheart a chur i bhfeidhm chun teaghráin téacs a thiontú go cás ceart go héasca, ach, uaireanta, ní mór duit roinnt focal ar leith a eisiamh agus na teaghráin téacs á dtiontú go dtí an cás ceart mar a leanas an pictiúr a thaispeántar. An t-alt seo, labhróidh mé faoi roinnt cleasanna gasta chun an post seo a réiteach in Excel.
Teaghráin téacs a thiontú go cás ceart le heisceachtaí trí fhoirmle a úsáid
Tiontaigh teaghráin téacs go cás ceart le heisceachtaí trí chód VBA a úsáid
Teaghráin téacs a thiontú go cás ceart le heisceachtaí trí fhoirmle a úsáid
B’fhéidir gurb é an fhoirmle seo a leanas a chabhróidh leat déileáil leis an tasc seo go tapa, déan mar seo:
Iontráil an fhoirmle seo:
= UPPER (LEFT (A2)) & MID (TRIM (SUBSTITUTE (SUBSTITUTE (SUBSTITUTE (SUBSTITUTE ("" & PROPER (A2) & "", "Of", "of"), "A", "a"), "Is "," is ")," Usa "," USA ")), 2, LEN (A2)) isteach i gcill inar mian leat an toradh a fháil, agus ansin an láimhseáil líonta a tharraingt chun an fhoirmle seo a líonadh, agus rinneadh na teaghráin téacs a chomhshó i gceart ach eisceachtaí ar leith, féach an scáileán:
nótaí: San fhoirmle thuas, A2 an cill is mian leat a thiontú, “As”, “A”, “Is”, “Usa” is iad na gnáthfhocail chearta tar éis iad a thiontú, “De”, “a”, “is”, “USA” an bhfuil na focail a theastaíonn uait a eisiamh ón gcás ceart. Is féidir leat iad a athrú de réir do riachtanas nó focail eile a chur leis an bhfeidhm SUBSTITUTE.
Tiontaigh teaghráin téacs go cás ceart le heisceachtaí trí chód VBA a úsáid
Má tá an fhoirmle thuas deacair a thuiscint agus a athrú chun do riachtanas, anseo, is féidir leat cód VBA a chur i bhfeidhm chun an tasc seo a chríochnú. Déan na céimeanna seo a leanas ceann ar cheann, le do thoil.
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: teaghráin téacs a thiontú go cás ceart le heisceachtaí:
Sub CellsValueChange()
'Updateby Extendoffice
Dim xSRg As Range
Dim xDRg As Range
Dim xPRg As Range
Dim xSRgArea As Range
Dim xRgVal As String
Dim xAddress As String
Dim I As Long
Dim K As Long
Dim KK As Long
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Original cells:", "KuTools For Excel", xAddress, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Output cells:", "KuTools For Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
Set xPRg = Application.InputBox("Cells to exclude:", "KuTools For Excel", , , , , , 8)
If xPRg Is Nothing Then Exit Sub
Set xDRg = xDRg(1)
For I = 1 To xSRg.Areas.Count
Set xSRgArea = xSRg.Areas.Item(I)
For K = 1 To xSRgArea.Count
xRgVal = xSRgArea(K).Value
If Not IsNumeric(xRgVal) Then
xRgVal = CorrectCase(xRgVal, xPRg)
xDRg.Offset(KK).Value = xRgVal
End If
KK = KK + 1
Next
Next
End Sub
Function CorrectCase(ByVal xRgVal As String, ByVal xPRg As Range) As String
Dim xArrWords As Variant
Dim I As Integer
Dim xPointer As Integer
Dim xVal As String
xPointer = 1
xVal = xRgVal
xArrWords = WordsOf(xRgVal)
For I = 0 To UBound(xArrWords)
xPointer = InStr(xPointer, " " & xVal, " " & xArrWords(I))
Debug.Print xPointer
Mid(xVal, xPointer) = CorrectCaseOneWord(CStr(xArrWords(I)), xPRg)
Next I
CorrectCase = xVal
End Function
Function WordsOf(xRgVal As String) As Variant
Dim xDelimiters As Variant
Dim xArrRtn As Variant
xDelimiters = Array(",", ".", ";", ":", Chr(34), vbCr, vbLf)
For Each xEachDelimiter In xDelimiters
xRgVal = Application.WorksheetFunction.Substitute(xRgVal, xEachDelimiter, " ")
Next xEachDelimiter
xArrRtn = Split(Trim(xRgVal), " ")
WordsOf = xArrRtn
End Function
Function CorrectCaseOneWord(xArrWord As String, xERg As Range) As String
With xERg
If IsError(Application.Match(xArrWord, .Cells, 0)) Then
CorrectCaseOneWord = Application.Proper(xArrWord)
Else
CorrectCaseOneWord = Application.VLookup(xArrWord, .Cells, 1, 0)
End If
End With
End Function
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit na cealla bunaidh a theastaíonn uait a thiontú a roghnú, féach an scáileán:
4. Agus ansin cliceáil OK, roghnaigh na cealla inar mian leat na torthaí a aschur sa bhosca popped out, féach an scáileán:
5. Téigh ar cliceáil OK, agus sa bhosca dialóige aníos, roghnaigh na téacsanna a theastaíonn uait a eisiamh, féach an scáileán:
6. Agus ansin cliceáil OK chun na dialóga a fhágáil, agus athraíodh na teaghráin téacs go léir sa chás ceart ach na focail shonraithe a eisiamh, féach an scáileán:
Uirlisí Táirgiúlachta Oifige is Fearr
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 ...
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á!
