Прескочи на основното съдържание

Как да промените текстови низове в регистър на изреченията в Microsoft Excel?

Автор: Кели Последна промяна: 2013-11-27

Може да се наложи да промените текстовите низове на малки и големи на изречението в 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 за да стартирате този макрос, след това на екрана се появява диалогов прозорец за избор на диапазон, вижте екранната снимка:

doc-промяна-случай7

Стъпка 4: Кликнете върху Okи можете да видите резултата, както е показано по-долу:


стрелка син десен балон Променете текстови низове в регистър на изреченията в Excel с Kutools за Excel

Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Махни го сега

Макросът VBA може да не е лесен за начинаещи потребители на Microsoft Excel. Моля, не се тревожете за това. Kutools за Excel's Промяна на делото инструментът може бързо да промени всички текстови низове в главни букви в изреченията в селекциите.

Стъпка 1: Изберете диапазона, в който ще промените текстовите низове в малки и големи букви на изречението.

Стъпка 2: Кликнете върху Kutools > Инструменти за текстове > Промяна на главни и малки букви.... Вижте екранна снимка:

Стъпка 3: В диалоговия прозорец Промяна на главни букви поставете отметка Случай на изречението. Опция и щракнете OK or Добавете Обява бутон.

След това ще видите всички видове текстови низове, които са променени на главни и малки букви в изреченията в селекцията. Вижте следната фигура:

Kutools за Excel's Промяна на делото инструментът може бързо да промени регистъра на текста на ГОРЕН, ДОЛЕН, ПРАВИЛЕН, Регистър на изречението и ПРЕВКЛЮЧВАНЕ НА ГЛАВЕН ГЛАВЕН. Кликнете, за да научите повече...


Сродни статии:

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, 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