Макрос excel заглавные буквы

Помогла ли Вам статья?

В этой статье я хочу рассказать Вам о нескольких способах как изменить регистр символов в Excel с верхнего на нижний или как сделать каждое слово с прописной буквы. Вы научитесь справляться с такими задачами при помощи функций ПРОПИСН и СТРОЧН, при помощи макросов VBA, а также используя Microsoft Word.

Проблема в том, что в Excel не предусмотрен специальный инструмент для изменения регистра текста на рабочем листе. Остаётся загадкой, почему корпорация Microsoft снабдила Word такой мощной функцией и не добавила её в Excel. Это упростило бы решение многих задач для большинства пользователей. Но не торопитесь лихорадочно перенабирать вручную все текстовые данные Вашей таблицы! К счастью, есть несколько хороших способов преобразовать текстовые значения в ячейках в верхний или нижний регистр, или же сделать каждое слово с прописной буквы. Позвольте мне поделиться с Вами этими способами.

• Функции Excel для изменения регистра текста
• Изменение регистра текста при помощи Microsoft Word
• Изменяем регистр при помощи макроса VBA

Функции Excel для изменения регистра текста

В Microsoft Excel есть три замечательных функции, при помощи которых Вы можете изменять регистр текста. Это UPPER (ПРОПИСН), LOWER (СТРОЧН) и PROPER (ПРОПНАЧ).

• Функция UPPER (ПРОПИСН) преобразовывает все символы нижнего регистра в верхний регистр.
• Функция LOWER (СТРОЧН) делает все прописные буквы строчными.
• Функция PROPER (ПРОПНАЧ) делает в каждом слове первую букву прописной, а все остальные – строчными.

Все эти три функции работают по одинаковому принципу, поэтому я покажу Вам, как работает одна из них. Давайте в качестве примера рассмотрим функцию UPPER (ПРОПИСН):

Вводим формулу в Excel

1. Вставьте новый (вспомогательный) столбец рядом с тем, в котором содержится текст, который Вы хотите преобразовать.

Замечание: Этот шаг не обязателен. Если таблица не большая, Вы можете просто использовать любой смежный пустой столбец.

1. 
2. Введите знак равенства (=) и имя функции UPPER (ПРОПИСН) в смежную ячейку нового столбца (B3).
3. В скобках после имени функции введите соответствующую ссылку на ячейку (C3). Ваша формула должна выглядеть вот так:

   =UPPER(C3)
=ПРОПИСН(C3)

   где C3 – это ячейка с текстом, который нужно преобразовать.

   

4. Нажмите Enter.На рисунке выше видно, что в ячейке B3 содержится текст точно такой же, как в C3, только прописными буквами.

Копируем формулу вниз по столбцу

Теперь Вам нужно скопировать формулу в остальные ячейки вспомогательного столбца:

1. Выделите ячейку с формулой.
2. Наведите указатель мыши на маленький квадрат (маркер автозаполнения) в нижнем правом углу выделенной ячейки, чтобы указатель превратился в маленький черный крест.
3. Нажмите и, удерживая левую кнопку мыши, протяните формулу вниз по всем ячейкам, в которые нужно её скопировать.
4. Отпустите кнопку мыши.

Замечание: Если Вам нужно полностью заполнить новый столбец (на всю высоту таблицы), то Вы можете пропустить шаги 5-7 и просто дважды кликнуть по маркеру автозаполнения.

Удаляем вспомогательный столбец

Итак, у Вас есть два столбца с одинаковыми текстовыми данными, отличающимися только регистром. Предполагаю, что Вы хотите оставить столбец только с нужным вариантом. Давайте скопируем значения из вспомогательного столбца и избавимся от него.

1. Выделите ячейки, содержащие формулу, и нажмите Ctrl+C, чтобы скопировать их.
2. Кликните правой кнопкой мыши по первой ячейке исходного столбца.
3. В контекстном меню в разделе Paste Options (Параметры вставки) выберите Values (Значения).Поскольку нам нужны только текстовые значения, мы выберем именно этот вариант, чтобы в будущем избежать ошибок в формулах.
4. Кликните правой кнопкой мыши по любой ячейке вспомогательного столбца и в контекстном меню выберите команду Delete (Удалить).
5. В диалоговом окне Delete (Удаление ячеек) выберите вариант Entire column (Столбец) и нажмите ОК.

Готово!

В теории это может показаться слишком сложным. Расслабьтесь и попробуйте проделать все эти шаги самостоятельно. Вы увидите, что изменение регистра при помощи функций Excel – это совсем не трудно.

Изменяем регистр текста в Excel при помощи Microsoft Word

Если Вы не хотите возиться с формулами в Excel, Вы можете изменить регистр в Word. Далее Вы узнаете, как работает этот метод:

1. Выделите диапазон на листе Excel, в котором необходимо изменить регистр текста.
2. Нажмите Ctrl+C или кликните правой кнопкой мыши и в контекстном меню выберите команду Copy (Копировать).
3. Создайте новый документ Word.
4. Нажмите Ctrl+V или щелкните правой кнопкой мыши по пустой странице и в контекстном меню выберите команду Paste (Вставить). Таблица Excel будет скопирована в Word.
5. Выделите текст, у которого нужно изменить регистр.
6. На вкладке Home (Главная) в разделе Font (Шрифт) нажмите иконку Change Case (Регистр).
7. В раскрывающемся списке выберите один из 5 вариантов регистра.

Замечание: Кроме этого, Вы можете нажимать сочетание Shift+F3, пока не будет установлен нужный стиль. При помощи этих клавиш можно выбрать только верхний и нижний регистр, а также регистр как в предложениях.

Теперь у Вас есть таблица в Word с изменённым регистром текста. Просто скопируйте её и вставьте на прежнее место в Excel.

Изменяем регистр текста при помощи макроса VBA

Вы также можете использовать макросы VBA в Excel 2010 и 2013. Не переживайте, если Ваши знания VBA оставляют желать лучшего. Какое-то время назад я тоже мало что знал об этом, а теперь могу поделиться тремя простыми макросами, которые изменяют регистр текста на верхний, нижний или делают каждое слово с прописной буквы.

Я не буду отвлекаться от темы и рассказывать Вам, как вставить и запустить код VBA в Excel, поскольку об этом замечательно рассказано в других статьях нашего сайта. Я просто покажу макросы, которые Вы можете скопировать и вставить в свою книгу.

• Если Вы хотите преобразовать текст в верхний регистр, используйте следующий макрос VBA:

Sub Uppercase()
    For Each Cell In Selection
        If Not Cell.HasFormula Then
            Cell.Value = UCase(Cell.Value)
        End If
    Next Cell
End Sub

• Чтобы применить нижний регистр к своим данным, используйте код, показанный ниже:

Sub Lowercase()
    For Each Cell In Selection
        If Not Cell.HasFormula Then
            Cell.Value = LCase(Cell.Value)
        End If
    Next Cell
End Sub

• Вот такой макрос сделает все слова в тексте, начинающимися с большой буквы:

Sub Propercase()
    For Each Cell In Selection
        If Not Cell.HasFormula Then
            Cell.Value = _
            Application _
            .WorksheetFunction _
            .Proper(Cell.Value)
        End If
    Next Cell
End Sub

Я надеюсь, что теперь, когда Вы знаете пару отличных приёмов изменения регистра в Excel, эта задача не вызовет у Вас затруднений. Функции Excel, Microsoft Word, макросы VBA – всегда к Вашим услугам. Вам осталось сделать совсем немного – определиться, какой из этих инструментов Вам больше нравится.

Во время работы в Эксель нередко возникает потребность напечатать весь текст заглавными буквами. Это может потребоваться, к примеру, при заполнении различных заявлений и прочих официальных бумаг для подачи в государственные учреждения. Наверняка, многие могут подумать – что же в этом сложного и непонятного? Ведь каждый пользователь ПК знает, что для этого требуется лишь нажать Caps Lock на клавиатуре, после чего вся информация будет набираться заглавными буквами.

Да, это совершенно верно, и достаточно одного нажатия на клавишу Caps Lock в данном случае. Но как быть в ситуации когда документ уже содержит текст, напечатанный обычными буквами? В начале работы пользователь не всегда задумывается о том, в каком виде должен быть представлен финальный текст, и зачастую начинает его форматирование уже после ввода информации. Не перепечатывать же текст заново?

В такой ситуации паниковать не стоит, и, тем более, перепечатывать все заново, так как есть инструменты, помогающие быстро решить эту проблему. Давайте разберем все возможные способы замены всех букв в заглавные в Excel.

Замена строчных букв на заглавные

При работе с текстовым редактором Word поставленная задача выполняется буквально в один клик. Нужно лишь отметить необходимый фрагмент текста, затем, зажав на клавиатуре клавишу SHIFT, два раза нажать на функциональную клавишу F3. При работе же с таблицами Эксель все несколько сложнее. Для выполнения данной задачи потребуется задействовать функцию ПРОПИСН, либо применить макрос. Ниже мы рассмотрим оба этих способа на практическом примере.

Метод 1: применение оператора ПРОПИСН

Главной задачей данной функции является замена строчных букв на заглавные. Формула функции пишется так:

=ПРОПИСН(Текст)

В качестве значения единственного аргумента “Текст” можно указать:

• непосредственно, сам текст для выполнения замены букв;
• адрес ячейки с данными, которые должны быть преобразованы.

Итак, давайте разберем работу функции на практике. Для этого возьмем таблицу, в которой указаны наименования товаров, в которых заглавная буква только одна – первая. Остальная же часть текста представлена в виде строчных букв. Нам нужно превратить все буквы в заглавные.

Итак, вот что нам нужно сделать:

1. Выбираем место в таблице для ввода формулы функции (любая свободная ячейка). Для удобства и наглядности лучше выбрать для этого свободную ячейку в отдельном столбце таким образом, чтобы она была в той же строке, что и ячейка, данные которой мы хотим преобразовать. После того, как мы определились с выбором, отмечаем ячейку и щелкаем по инструменту “Вставить функцию”.
2. В открывшемся окне Мастера функций щелкаем по текущей категории и в раскрывшемся перечне выбираем “Текстовые”.
3. В доступном перечне операторов выбранной категории выбираем функцию ПРОПИСН и щелкаем OK.
4. Откроется окно с настройками функции. В поле “Текст” указываем адрес ячейки, содержащей наименование товара для преобразования. Его можно прописать вручную. Но есть и другой, более удобный способ – кликаем по области ввода данных, затем – по нужной ячейке. Далее щелкаем OK.
5. Таким образом, текстовое значение из заданной ячейки будет преобразовано и представлено исключительно в виде заглавных букв, чего мы и добивались.
6. Теперь остается только применить данную функцию ко всем ячейкам столбца, куда мы хотим вывести наименования с заглавными буквами. Для этого ставим курсор мыши на правый нижний угол ячейки с результатом (при этом курсор мыши должен принять форму крестика). Затем растягиваем формулу вниз, зажав при этом левую кнопку мыши.
7. В результате мы получим столбец с наименованиями, прописанными полностью заглавными буквами.
8. Итак, теперь у нас есть две колонки с наименованиями: одна написана в обычном стиле, а вторая полностью состоит из заглавных букв. Наша же задача состояла в замене первого варианта вторым. Поэтому проделаем еще несколько манипуляций. Выделяем мышью колонку с наименованиями, представленными заглавными буквами. Затем вызываем контекстное меню кликом по выделенному диапазону правой кнопкой мыши, и из перечня команд щелкаем по строке “Копировать” (или можно использовать для копирования сочетание клавиш Ctrl+C).
9. Затем выделяем первый столбец, значения которого требуется заменить (область выделения должна содержать столько же строк, что и та, которую мы скопировали). Опять вызываем контекстное меню щелчком правой кнопки мыши по выделенной области. В появившемся списке кликаем в разделе “Параметры вставки” по варианту “Значения”.
10. Наименования исходного столбца будут заменены данными из столбца с формулой (т.е. все наименования отображаются исключительно заглавными буквами). Остается только убрать вспомогательную колонку, содержащую ячейки с формулой. Для этого выделяем ее щелчком правой кнопкой мыши по названию столбца и в открывшемся перечне щелкаем по команде “Удалить”.
11. Готово, мы успешно справились с поставленной задачей.

Метод 2: использование макроса

Внимание! Для использования этого метода необходимо убедиться, что у вас активирована функция макросов. Если нет, то ее требуется включить. О том, как это сделать, читайте в нашей статье – “Как включить/отключить макросы в Excel“.

1. Убедившись в том, что использование макросов активировано, выделяем область таблицы, текст которой требуется преобразовать. После этого нажимаем на клавиатуре комбинацию клавиш Alt+F11.
2. Перед нами появится редактор макросов, находясь в котором мы нажимаем сочетание Ctrl+G. Курсор мыши при этом должен переместиться в поле “Immediate”, которое до этого действия, скорее всего, было закрыто.
3. В данной области пишем следующее:
   for each c in selection:c.value=ucase(c):next.
   Затем подтверждаем действие нажатием клавиши ENTER и выходим из редактора макросов.
4. В итоге все буквы в отмеченном диапазоне ячеек заменятся на заглавные согласно поставленной задаче.

Заключение

Мы только что познакомились с двумя методами преобразования строчных букв в заглавные в таблицах Эксель. Многим пользователям второй способ (использование макросов) может показаться намного быстрее и проще. Однако применение оператора ПРОПИСН – безопаснее, так как включение макросов делает ПК мене защищенным перед потенциально возможными хакерскими атаками. Каким способом пользоваться каждый решает для себя сам. Но независимо от выбора, конечный результат в обоих описанных выше методах будет идентичен.

Проблема в том, что Excel не предоставляет специального инструмента для изменения регистра текста на листе. Остается загадкой, почему Microsoft предоставила Word такие мощные функции, а не добавила их в Excel. Это упростило бы многие задачи для большинства пользователей. Но не спешите лихорадочно набирать вручную все текстовые данные в электронной таблице! К счастью, есть несколько хороших способов преобразовать текстовые значения в ячейках в верхний или нижний регистр или использовать каждое слово с большой буквы. Позвольте мне поделиться с вами этими способами.

• Функции Excel для изменения регистра текста
• Сделать текст заглавными с помощью Microsoft Word
• Изменить регистр с помощью макроса VBA

В Microsoft Excel есть три отличные функции, с помощью которых вы можете изменить регистр текста. Это ВЕРХ, ВНИЗ и ПРАВИЛЬНО).

• Функция ВЕРХНИЙ преобразует все строчные буквы в прописные.
• Функция LOWER переводит все прописные буквы в нижний регистр.
• Функция ПРОПИСН переводит первую букву каждого слова в верхний регистр, а остальные в нижний.

Все три функции работают одинаково, поэтому я покажу вам, как работает одна из них. Возьмем для примера функцию UPPER):

Вводим формулу в Excel

1. Вставьте новый столбец (помощник) рядом с тем, который содержит текст, который вы хотите преобразовать.

Примечание. Этот шаг не является обязательным. Если таблица небольшая, вы можете просто использовать любой соседний пустой столбец.

1.  
2. Введите знак равенства (=) и имя ВЕРХНЕЙ функции в соседнюю ячейку нового столбца (B3).
3. В скобках после имени функции введите соответствующую ссылку на ячейку (C3). Ваша формула должна выглядеть так:

   = ВЕРХНИЙ (C3)
   = ВЕРХНИЙ (C3)

   где C3 — это ячейка с текстом, который нужно преобразовать.

   

4. Нажмите Enter.На изображении выше вы можете видеть, что ячейка B3 содержит тот же текст, что и C3, только заглавными буквами.

Копируем формулу вниз по столбцу

Теперь вам нужно скопировать формулу в остальную часть вспомогательного столбца:

1. Выделите ячейку с формулой.
2. Наведите указатель мыши на маленький квадрат (индикатор автозаполнения) в правом нижнем углу выбранной ячейки, чтобы указатель превратился в маленький черный крестик.
3. Удерживая левую кнопку мыши, перетащите формулу вниз ко всем ячейкам, в которые вы хотите ее скопировать.
4. Отпустите кнопку мыши.

Примечание. Если вам нужно полностью заполнить новый столбец (до полной высоты таблицы), вы можете пропустить шаги 5-7 и просто дважды щелкнуть маркер автозаполнения.

Удаляем вспомогательный столбец

Итак, у вас есть два столбца с одинаковыми текстовыми данными, которые отличаются только регистром. Я предполагаю, что вы просто хотите оставить столбец с нужной опцией. Скопируем значения из вспомогательного столбца и избавимся от него.

1. Выделите ячейки, содержащие формулу, и нажмите Ctrl + C, чтобы скопировать их.
2. Щелкните правой кнопкой мыши первую ячейку исходного столбца.
3. В контекстном меню в разделе «Параметры вставки» выберите «Значения).Поскольку нам нужны только текстовые значения, мы выберем этот вариант, чтобы избежать ошибок в формулах в будущем.
4. Щелкните правой кнопкой мыши любую ячейку вспомогательного столбца и выберите команду Удалить из контекстного меню).
5. В диалоговом окне «Удалить» выберите «Весь столбец» и нажмите «ОК.

Готовый!

Теоретически это может показаться слишком сложным. Расслабьтесь и попробуйте все эти шаги самостоятельно. Вы увидите, что переключение кейсов с помощью функций Excel совсем не сложно.

Изменяем регистр текста в Excel при помощи Microsoft Word

Если вы не хотите возиться с формулами Excel, вы можете изменить регистр в Word. Вот как работает этот метод:

1. Выберите диапазон на листе Excel, в котором вы хотите изменить регистр текста.
2. Нажмите Ctrl + C или щелкните правой кнопкой мыши и выберите команду Копировать из контекстного меню).
3. Создайте новый документ Word.
4. Нажмите Ctrl + V или щелкните правой кнопкой мыши пустую страницу и выберите «Вставить» в контекстном меню. Таблица Excel будет скопирована в Word.
5. Выделите текст, регистр которого вы хотите изменить.
6. На вкладке «Главная» в разделе «Шрифт» щелкните значок «Изменить регистр).
7. В раскрывающемся списке выберите один из 5 вариантов случая.

Примечание. Вы также можете нажимать Shift + F3, пока не будет установлен нужный стиль. С помощью этих клавиш вы можете выбирать только прописные и строчные буквы, а также прописные и строчные буквы, как в предложениях.

Теперь у вас есть таблица в Word с измененным текстом, написанным с заглавной буквы. Просто скопируйте и вставьте обратно в Excel.

Изменяем регистр текста при помощи макроса VBA

Вы также можете использовать макросы VBA в Excel 2010 и 2013. Не волнуйтесь, если ваши знания VBA оставляют желать лучшего. Некоторое время назад я тоже мало знал об этом, но теперь я могу поделиться тремя простыми макросами, которые изменяют верхний, нижний или верхний регистр каждого слова.

Не буду отвлекаться на эту тему и расскажу, как вставить и запустить код VBA в Excel, так как это хорошо описано в других статьях на нашем сайте. Я покажу вам только макросы, которые вы можете скопировать и вставить в свою книгу.

• Если вы хотите преобразовать текст в верхний регистр, используйте следующий макрос VBA:

Sub Верхний регистр () для каждой ячейки в выбранном Если не Cell.HasFormula Then Cell.Value = UCase (Cell.Value) End If Next Cell End Sub

• Чтобы строчные буквы ваши данные, используйте код, показанный ниже:

Нижний регистр Sub () Для каждой ячейки в выделенном фрагменте Если не Cell.HasFormula Then Cell.Value = LCase (Cell.Value) End If Next Cell End Sub

• Такой макрос будет начинать все слова в тексте с заглавной буквы:

Sub Propercase () для каждой ячейки в выделении Если не Cell.HasFormula Then Cell.Value = _ Application _ .WorksheetFunction _ .Proper (Cell.Value) End If Next Cell End Sub

Надеюсь, теперь, когда вы знаете пару отличных приемов, позволяющих изменить регистр в Excel, эта задача не доставит вам никаких проблем. Функции Excel, Microsoft Word, макросы VBA всегда к вашим услугам. Осталось совсем немного — решить, какой из этих инструментов вам больше нравится.

More often than not, to save time or for the sake of laziness, people enter data in all lowercase or all uppercase. Transforming this type of data into the proper format can be a serious headache. Let us show you how to make Excel capitalize first letter using VBA to do this automatically.

How to make Excel capitalize first letter

Both Excel and VBA have functions that can do this.

• Proper (Excel)
• StrConv (VBA)

In this example, we will be using the StrConv function in VBA. StrConv function can convert a string into a specified form. This form can be the case of letters, as well as their coding structure (i.e. Unicode or not). The function uses 2 arguments — the string itself, and the conversion type. Choose vbProperCase to convert a string of letters to the proper case. Below is an example.

StrConv("CONVERT ME",vbProperCase)

This code returns «Convert Me» as a string.

To use StrConv with all cells in a selection or a specified range, we need to check every cell using a loop. For Each…Next loop is ideal for moving from cell to cell regardless of selection range dimensions. The idea is to apply the StrConv function to each cell value and replace it.

You can use codes in two ways:

• Module
• Immediate Window

In the Module method, you need to add the module into the workbook or the add-in file. Copy and paste the code into the module to run it. The main advantage of the module method is that it allows saving the code in the file, so that it can be used again later. Furthermore, the subroutines in modules can be used by icons in the menu ribbons or keyboard shortcuts. Remember to save your file in either XLSM or XLAM format to save your VBA code.

The Immediate Window method, on the other hand, is essentially a quick and dirty method where you can simply copy and paste the code into the Immediate Window and press the Enter key to run it. Unfortunately, any code you use in the Immediate Window will not be saved. Also note that icons and keyboard shortcuts will not be available.

Convert selection to proper case

Module Version:

Sub ConvertProperCaseInSelection()

  Dim rng As Range

  For Each rng In Selection

    rng.Value = StrConv(rng.Value,vbProperCase)

  Next rng

End Sub

Immediate Version:

For Each rng In Selection: rng.Value = StrConv(rng.Value,vbProperCase): Next rng

Convert a specified range to proper case

Module Version:

Sub ConvertProperCaseInRange()

  Dim rng As Range

  For Each rng In Range("B2:E11")

    rng.Value = StrConv(rng.Value,vbProperCase)

  Next rng

End Sub

Immediate Version:

For Each rng In Range("B2:E11"): rng.Value = StrConv(rng.Value,vbProperCase): Next rng

Convert entire worksheet to proper case

Module Version:

Sub ConvertProperCaseInWorksheet()

  Dim rng As Range

  For Each rng In ActiveSheet.UsedRange

   rng.Value = StrConv(rng.Value,vbProperCase)

  Next rng

End Sub

Immediate Version:

For Each rng In ActiveSheet.UsedRange: rng.Value = StrConv(rng.Value,vbProperCase): Next rng