Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
COPY - PASTE с изменением регистра, Копирование текста (абв) -> Вставка текста (АБВ)
 
#1
22.09.2017 09:18:35
Такая проблема:
Из файла копируется текст маленькими буквами и вставляется в книгу. После чего формулами переделывается в текст заглавными буквами.
Как можно сделать, что бы в ячейку А1 вставлялся скопированный текст сразу ЗАГЛАВНЫМИ буквами?
 
 
 
#2
22.09.2017 09:36:56
Вариант:
Вставляйте как есть и выделив ячейки, в которых нужно перевести текст в верхний регистр, нажмите кнопку, привязанному к такому макросу:
Код
Sub fff()
For Each x In Intersect(ActiveSheet.UsedRange, Selection)
x.Value = UCase(x.Value)
Next
End Sub
 
 
 
#3
22.09.2017 09:41:26
Вариант, необходимо дописать код - если вставить надо на другой лист или другую книгу + можно использовать lastrow и т.д.
Код
Sub zxc()
Dim arr
arr = Range("A1:a2")
For i = 1 To UBound(arr)
    arr(i, 1) = UCase(arr(i, 1))
Next
Cells(1, 2).Resize(UBound(arr, 1), 1) = arr
End Sub
 
 
 
#4
22.09.2017 10:03:22
Бахтиёр, Илья Демид,
Немного не то, что я себе нафантазировал, но тоже облегчает процесс =)
Спасибо!
 
 
 
#5
22.09.2017 10:12:09
В модуль листа:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    Application.EnableEvents = 0
    On Error Resume Next
    For Each c In Target.Cells
        c.Value = UCase(c.Value)
    Next
    Application.EnableEvents = -1
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#6
22.09.2017 10:40:10
kuklp, Шикаарно!
То что надо! =)
Думаю, я осилю применить это не ко всему листу, а к диапазону ячеек.
Большое спасибо!
 
 
 
Страницы: 1
Наверх