Как преобразовать строчные буквы в прописные для нескольких столбцов с помощью VBA в Microsoft Excel В этой статье мы узнаем, как преобразовать текст в заглавные буквы в определенных столбцах (не во всех ячейках) с помощью кода VBA.

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

Скажем, я не хочу, чтобы код запускался в столбцах 4, 6, 9, 12 и 13, т.е. если в эти столбцы вводится какой-либо текст, код не запускается.

Чтобы получить заглавные буквы при вводе строчных букв; нам нужно выполнить следующие шаги, чтобы запустить редактор VB. Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic

img1

Скопируйте следующий код в модуль Sheet

Private Sub Worksheet_Change (ByVal Target как Excel.Range)

Если Target.Column = 4 или Target.Column = 6 или Target.Column = 9 _

Или Target.Column = 12 или Target.Column = 13 Затем выйти из подпрограммы

При ошибке Перейти к ErrHandler

Application.EnableEvents = False

Target.Formula = UCase (Target.Formula)

ErrHandler:

Application.EnableEvents = True

End Sub

img2

Код будет работать на листе Sheet1 только тогда, когда код введен в Sheet1. Код автоматически заменит маленькую букву, введенную по ошибке или по незнанию, сразу же на заглавную букву во всех столбцах, кроме 4, 6, 9, 12 и 13. ||| Таким образом, мы можем преобразовать текст в заглавные буквы в определенных столбцах с помощью кода VBA.

image 7