Sut i drosi llinyn testun yn achos cywir gydag eithriadau yn Excel?
Yn Excel, gallwch gymhwyso'r swyddogaeth Briodol i drosi llinynnau testun i achos cywir yn hawdd, ond, weithiau, mae angen i chi eithrio rhai geiriau penodol wrth drosi'r tannau testun i'r achos cywir fel y dangosir y screenshot canlynol. Yr erthygl hon, byddaf yn siarad am rai triciau cyflym ar gyfer datrys y swydd hon yn Excel.
Trosi tannau testun yn achos cywir gydag eithriadau trwy ddefnyddio fformiwla
Trosi llinynnau testun yn achos cywir gydag eithriadau trwy ddefnyddio cod VBA
Trosi tannau testun yn achos cywir gydag eithriadau trwy ddefnyddio fformiwla
Efallai mai'r fformiwla ganlynol all eich helpu i ddelio â'r dasg hon yn gyflym, gwnewch fel hyn:
Rhowch y fformiwla hon:
? "," yw ")," Usa "," UDA ")), 2, LEN (A2)) i mewn i gell lle rydych chi am gael y canlyniad, ac yna llusgwch y ddolen llenwi i lenwi'r fformiwla hon, ac mae'r tannau testun wedi'u trosi'n achos cywir ond eithriadau penodol, gweler y screenshot:
Nodyn: Yn y fformiwla uchod, A2 yw'r gell rydych chi am ei throsi, “Of”, “A”, “Is”, “Usa” yw'r geiriau achos priodol arferol ar ôl trosi, “O”, “a”, “yw”, “UDA” yw'r geiriau rydych chi am eu heithrio o'r achos cywir. Gallwch eu newid i'ch angen neu ychwanegu geiriau eraill gyda'r swyddogaeth SUBSTITUTE.
Trosi llinynnau testun yn achos cywir gydag eithriadau trwy ddefnyddio cod VBA
Os yw'r fformiwla uchod ychydig yn anodd ei deall a'i newid i'ch angen, yma, gallwch hefyd gymhwyso cod VBA i orffen y dasg hon. Gwnewch y camau canlynol fesul un.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: trosi llinynnau testun i'r achos cywir gydag eithriadau:
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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis y celloedd gwreiddiol rydych chi am eu trosi, gweler y screenshot:
4. Ac yna cliciwch OK, dewiswch y celloedd lle rydych chi am allbynnu'r canlyniadau yn y blwch popped out, gweler y screenshot:
5. Ewch ar glicio OK, ac yn y blwch deialog naidlen, dewiswch y testunau rydych chi am eu heithrio, gweler y screenshot:
6. Ac yna cliciwch OK i adael y deialogau, ac mae'r holl dannau testun wedi'u trosi i'r achos cywir ond eithrio'r geiriau penodedig, gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
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...
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!
