Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.05.2017, 10:56   #1
омарат
 
Регистрация: 03.11.2007
Сообщений: 5
По умолчанию Помогите разобраться - Нужен макрос который выделит и скопирует по 10 ячеек вверх и вниз от активной ячейки

Нужен макрос который выделит и скопирует по 10 ячеек вверх и вниз от активной ячейки.Вниз получается, а вот одновременно вниз и верх от активной. никак.

Последний раз редактировалось омарат; 16.05.2017 в 10:59.
омарат вне форума Ответить с цитированием
Старый 16.05.2017, 10:59   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Цитата:
Сообщение от омарат Посмотреть сообщение
Вниз получается
код в студию. Может вверх нету 10 ячеек?

Код:
Sub select10Cells()
    Dim r As Range
    Set r = ActiveCell
    If r.Row <= 10 Then Exit Sub
    Set r = r.Offset(-10, 0).Resize(20, 1)
    r.Select
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.

Последний раз редактировалось Aleksandr H.; 16.05.2017 в 11:05.
Aleksandr H. вне форума Ответить с цитированием
Старый 16.05.2017, 11:33   #3
омарат
 
Регистрация: 03.11.2007
Сообщений: 5
По умолчанию Вот код

Aleksandr H.
Профессионал
Благодарю. Как в аптеке. Работает как надо!

Range(ActiveCell, ActiveCell.Item(10)).Select

Последний раз редактировалось омарат; 16.05.2017 в 11:37.
омарат вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подсветка активной ячейки/диапазона ячеек beal Microsoft Office Excel 18 26.12.2013 12:16
Объединение ячеек со сдвигом вверх удалением(макрос) AdvSent Microsoft Office Excel 7 03.08.2012 17:07
Макрос, который выполнит функцию снятия объединения ячеек Bocul Microsoft Office Excel 2 23.06.2012 23:40
Прокрутка формы вверх и вниз xRamzeSx Общие вопросы Delphi 1 15.05.2011 11:57
Помогите создать макрос, который бы удалил все ячейки, кроме каждой 8-ой Рамирас Microsoft Office Excel 7 24.07.2010 19:37