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

Если вы попали в такую ​​ситуацию, макрос MakeProper может помочь вам. Он проверит диапазон выбранных вами ячеек, а затем преобразует любые константы в то, что Excel называет «правильным регистром».

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

Sub MakeProper()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = Application.Proper(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

Если вы предпочитаете преобразовать весь текст в диапазоне в нижний регистр, вы можете вместо этого использовать следующий макрос MakeLower ().

Sub MakeLower()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = LCase(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2026) применим к Microsoft Excel 97, 2000, 2002 и 2003.