Коллеги, всем привет. Прошу подсказки в написании кода, с помощью которого, первые буквы в содержащихся в определенном столбце ячейках будут заменяться на Заглавные. На форуме нашел пару веток по этому вопросу, но в предоставленные варианты не полностью подходят мне, а именно:
1. Меняются все ячейки на листе (а мне нужна определенная колонка)
2. Меняются вновь забитые слова, а те которые были введены До - не изменяются (нужно, чтобы все слова в колонке изменялись, которые были забиты до введения макроса и после)
Заранее Спасисбо!
1. Меняются все ячейки на листе (а мне нужна определенная колонка)
2. Меняются вновь забитые слова, а те которые были введены До - не изменяются (нужно, чтобы все слова в колонке изменялись, которые были забиты до введения макроса и после)
Заранее Спасисбо!
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Count <> 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub If Len(Target) > 0 Then Application.EnableEvents = False If Len(Target) > 33 Then Target.Offset(0, 1) = Right(Target, Len(Target) - 33) Target = UCase(Left(Target, 1)) & Mid(Target, 2, 32) Application.EnableEvents = True End If End Sub |