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

Sut i newid tannau testun i achos brawddeg yn Microsoft Excel?

Efallai y bydd angen i chi newid tannau testun i achos brawddeg yn Microsoft Excel. Gan dybio bod cannoedd o dannau testun mewn uwchgynhadledd neu lythrennau bach, nid yw eu newid â llaw fesul un yn ddewis da. A oes triciau hawdd i newid tannau testun i achos brawddeg yn Microsoft Excel?

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.


swigen dde glas saeth Newid llinynnau testun i achos brawddeg yn Excel gyda VBA

Os ydych chi'n brofiadol gyda Microsoft Excel, mae defnyddio VBA yn ddewis da i newid tannau testun i achos brawddeg.

Cam 1: Dalwch i lawr y ALT + F11 allweddi, ac mae'n agor ffenestr Microsoft Visual Basic for Applications.

Cam 2: Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Modiwlau ffenestr.

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

Cam 3: Pwyswch y F5 allwedd i redeg y macro hwn, yna mae deialog yn ymddangos ar y sgrin ar gyfer dewis ystod, gweler y screenshot:

doc-newid-achos7

Cam 4: Cliciwch Ok, a gallwch weld y canlyniad fel y dangosir isod:


swigen dde glas saeth Newid llinynnau testun i achos brawddeg yn Excel gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now

Efallai na fydd macro VBA yn hawdd i ddefnyddwyr cychwynnol Microsoft Excel. Peidiwch â phoeni amdano. Kutools ar gyfer Excel's Newid Achos gall offeryn newid pob llinyn testun i achos brawddeg mewn detholiadau yn gyflym.

Cam 1: Dewiswch yr ystod y byddwch chi'n newid tannau testun i achos brawddeg.

Cam 2: Cliciwch y Kutools > Offer Testun > Newid Achos…. Gweler y screenshot:

Cam 3: Yn y blwch deialog Change Change, gwiriwch y Achos Dedfryd. Opsiwn, a chlicio OK or Gwneud cais botwm.

Yna byddwch yn gweld bod pob math o dannau testun yn cael eu newid i achos brawddeg yn y dewis. Gweler y ffigur canlynol:

Kutools ar gyfer Excel's Newid Achos gall offeryn newid achos testun yn gyflym i UPPER, LOWER, PROPER, Sentence Case, a cASE tOGGLE. Cliciwch i wybod mwy ...


Erthyglau cymharol:


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 (5)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y tiwtorial gwych ar gyfer y macro! Sylwais serch hynny nad oedd unrhyw frawddegau yn dilyn brawddeg yn gorffen mewn ebychnod yn cael eu cyfalafu. Sut mae ychwanegu hwn at y macro?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cymwynasgar iawn! Diolch! :lol:
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Macro da, ond byddai'n helpu i ddiffinio'r holl newidynnau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
NEU fe allech chi gopïo'r detholiad i MS Word, newid i achos brawddeg yno a chopïo'n ôl.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma ffordd syml o drosi unrhyw destun gyda brawddegau lluosog i Achos Dedfryd. Mae'r sylwadau ar y dde yn dangos sut mae'r testun yn cael ei drawsnewid ar bob cam. Swyddogaeth Breifat SentenceConvert(strText Fel Llinynnol) Fel Llinynnol strText = LCase(strText) 'Rwy'n MYND. es i. --> dwi'n mynd. es i. strText = Amnewid(Replace(Replace(strText, ".", ".~"), "?", "?~"), "!", "!~") 'Rwy'n mynd. es i. --> dwi'n mynd.~es i. strText = Disodli(strText, " "," "^") ' es. ~ es. --> i^go.~aeth. strText = Disodli(strText, "~", "") 'i^go.~i^eth. --> i^go. es i. strText = StrConv(strText, vbProperCase) 'i^go. es i. --> Rwy'n mynd. es i. strText = Amnewid(strText, "^", "") 'I^go. es i. --> Rwy'n mynd. es i. strText = Amnewid(strText, " i", " I") SentenceConvert = strText Swyddogaeth Diwedd
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir