Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս փոխել տեքստային տողերը նախադասության գործի վրա Microsoft Excel- ում:

Կարող է անհրաժեշտ լինել փոխել տեքստային տողերը Microsoft Excel- ում նախադասության նախադասության վրա: Ենթադրելով, որ հարյուրավոր տեքստային տողեր կան մեծատառով կամ փոքրատառով, դրանք ձեռքով մեկ առ մեկ փոխելը լավ ընտրություն չէ: Microsoft Excel- ում տեքստերի տողերը նախադասության գործ փոխելու դյուրին հնարքներ կա՞ն:


նետ կապույտ աջ պղպջակ Excel- ում VBA- ի հետ փոխեք տեքստի տողերը նախադասության գործով

Եթե ​​փորձ ունեք Microsoft Excel- ի հետ, VBA- ի օգտագործումը լավ ընտրություն է տեքստային տողերը նախադասության գործով փոխելու համար:

Քայլ 1: Անջատեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic կիրառական ծրագրերի պատուհանը:

Քայլ 2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլներ պատուհան.

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

Քայլ 3. Սեղմեք կոճակը F5 այս մակրո գործարկման ստեղնը, ապա էկրանին հայտնվում է երկխոսություն ՝ տիրույթ ընտրելու համար, տես նկարի նկարը.

փաստաթուղթ-փոփոխություն-գործ 7

Քայլ 4: Սեղմեք Ok, և արդյունքը կարող եք տեսնել, ինչպես ցույց է տրված ստորև:


նետ կապույտ աջ պղպջակ Excel- ում Kutools- ի հետ փոխեք տեքստի տողերը նախադասության գործի վրա

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Get it Now

VBA մակրոտնտեսությունը կարող է դյուրին լինել Microsoft Excel- ի սկսնակ օգտագործողների համար: Խնդրում եմ, մի անհանգստացեք դրա համար: Excel- ի համար նախատեսված գործիքներ's Փոխեք գործը գործիքը կարող է արագ փոխել բոլոր տեքստի տողերը նախադասության տառի վրա ՝ ընտրության մեջ:

Քայլ 1. Ընտրեք այն տիրույթը, որով կփոխեք տեքստի տողերը նախադասության գործ:

Քայլ 2: Սեղմեք Կուտոլս > Տեքստային գործիքներ > Փոխել գործը, Տեսեք,

Քայլ 3. Փոխել գործի երկխոսության պատուհանում ստուգեք Նախադասության դեպք: Ընտրանք և կտտացրեք OK or Դիմել կոճակը:

Դրանից հետո դուք կտեսնեք, որ ընտրության ժամանակ տեքստի բոլոր տողերը փոխվում են նախադասության գործի: Տեսեք հետևյալ նկարը.

Excel- ի համար նախատեսված գործիքներ's Փոխեք գործը գործիքը կարող է արագ փոխել տեքստի գործը վերևի, ցածր, պատշաճ, նախադասության պատյան և tOGGLE դեպք: Կտտացրեք ավելին իմանալու համար


Հարաբերական հոդվածներ.

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

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