Note: The other languages of the website are Google-translated. Back to English

 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:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (1)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Byddai hyn yn anhygoel pe bai'r Macro yn unig yn eithrio'r rhan o'r pigiad yn CAPS nid y gell gyfan o'r rhestr eithriadau.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir