Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос копирование диапазона на другой лист с изменением размера шрифта
 
#1
27.09.2019 17:38:26
Добрый день, знатоки.
Нужна ваша помощь. Задача - при нажатии на кнопку скопировать ячейки в указанном диапазоне листа "Данные" на определенной место листа "Отчет", при этом нужно изменить размер шрифта в копируемом диапазоне на 12. У меня получилось выполнить копирование диапазона, но вот с изменением размера шрифта справится не смог. Посоветуете что-то?

Код, который у меня есть сейчас:
Код
Sub В_Отчет()
Dim Ar As Range
 Set Ar = Worksheets("Отчет").Range("A11")
[A16:C40].Copy Destination:=Ar
End Sub
Нет ничего сложнее поиска простого решения.
 
 
 
#2
27.09.2019 18:28:32
Код
Sub В_Отчет()
Dim Ar As Range, aa As Range
 Set Ar = Worksheets("Отчет").Range("A11")
 Set aa = [A16:C40]
aa.Copy Destination:=Ar
Ar.Resize(aa.Rows.Count, aa.Columns.Count).Font.Size = 12
End Sub
 
 
 
#3
30.09.2019 09:59:38
Anchoret, огромное Вам спасибо, все работает как часики!
Нет ничего сложнее поиска простого решения.
 
 
 
#4
30.09.2019 15:09:35
Anchoret, а не подскажите ли Вы, как дописать макрос так, чтоб не копировались скрытые строки в диапазоне A16:C40?
Нет ничего сложнее поиска простого решения.
 
 
 
#5
30.09.2019 19:02:47
с копированием ячейки из указанного диапазона на листе на определенной место в другом листе разобрался. А как скопировать эти же данные в выделенную ячейку на другом листе, чем заменить "А11"?  
только познаю VBA...
 
 
 
Страницы: 1
Наверх