Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как выделить заданное количество строк макросом
 
#1
03.06.2019 17:01:46
Приветствую, знатоки Excel Сразу признаюсь, в макросах я полный ноль, максимум записать, и запустить. А тут возникла идея задачка записать макрос, по выделению диапазона ячеек.
Условие. сместится от активной ячейки на одну вниз и влево, выделить 45 строк, и заменить формулы,на значения. Примеры как сместится, нашел, как заменить тоже нашел, наверное смогу собрать в один макрос, но как заставить выделить диапазон, не задавая имена ячеек, а просто от выделенной, не нашел.. Очень рассчитываю на вашу помощь.
 
 
 
#2
03.06.2019 17:05:21
Добрый день. Если можно найти крайнюю левую ячейку диапазона, и знаем его конечный размер (количество строк, количество столбцов), то можно выделить через Resize
Код
'Например, хотим сместиться на 1 ячейку вниз и 1 ячейку вправо от активной ячейки и выделить диапазон размером в 3 строки и 3 столбца:
ActiveCell.Offset(1, 1).Resize (3, 3).Select
Изменено: Пытливый - 03.06.2019 17:06:24
Кому решение нужно - тот пример и рисует.
 
 
 
#3
03.06.2019 17:09:22
Большое, человеческое СПАСИБО.
Изменено: Руслан ** - 03.06.2019 17:16:00
 
 
 
#4
03.06.2019 17:15:29
Цитата
Руслан ** написал: сместится от активной ячейки на одну вниз и влево, выделить 45 строк, и заменить формулы,на значения
Выделять их не обязательно
Код
With ActiveCell.Offset(1, -1).Resize(45)
    .Value = .Value
End With
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
03.06.2019 17:19:38
Код
Sub Sub45Rows()
  ActiveCell.Offset(1, 0).Resize(45, 1).EntireRow.Value = ActiveCell.Offset(1, 0).Resize(45, 1).EntireRow.Value
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
03.06.2019 17:22:37
Спасибо Всем!!! Очень помогли. И очень интересно разобраться в этом.
 
 
 
Страницы: 1
Наверх