Ребят всем привет, облазил форум, нашел нужную тему и макрос для решения проблемы, но почему то после преобразования строчных букв в прописные, макрос ломается и иногда сам эксель крашится. В общем нужно, чтобы в диапазоне A2:A3000, вносимый текст преобразовывался в прописной
Макрос который использовал
Макрос который использовал
| Код |
|---|
Private 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
Target.Value = UCase(Target.Value)
End If
End Sub |
Изменено: - 04.06.2018 19:00:43
