| Цитата |
|---|
| Юрий М написал: Добавьте отключение/включение отслеживания событий:Код ? 12345678Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("$A$2:$A$3000")) Is Nothing Then Application.EnableEvents = False Target.Value = UCase(Target.Value) End If Application.EnableEvents = TrueEnd Sub |
Строчные буквы в прописные через макрос
Строчные буквы в прописные через макрос
|
04.06.2018 18:10:32
Ребят всем привет, облазил форум, нашел нужную тему и макрос для решения проблемы, но почему то после преобразования строчных букв в прописные, макрос ломается и иногда сам эксель крашится. В общем нужно, чтобы в диапазоне A2:A3000, вносимый текст преобразовывался в прописной
Макрос который использовал
Изменено: - 04.06.2018 19:00:43
|
|||
|
|
|
Отключение макроса при закрытии книги.