Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выделение ячейки и диапазона ячеек одновременно - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Выделение ячейки и диапазона ячеек одновременно
tigrusha Дата: Четверг, 17.09.2015, 11:58 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день.

Задача следующая.
после прыжка с 1-ой ячейки строки на 4 вправо, оставить выделенной 1-ую ячейку строки. Потом выделить диапазон с 4-ой ячейки вправо, оставив при этом 1-ую строку выделенной.

Например, нужно выделить А1,Е1:до ячейки, где есть данные.

как доработать код?

Спасибо

[vba]
Код
ActiveCell.Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         ActiveCell.Offset(0, 4).Select
         Range(Selection, Selection.End(xlToRight)).Select
[/vba]

[moder]Переименовывайте тему!
Это название слишком общее.[/moder]
[moder]Замечание исправлено[/moder]
[moder]Тема закрыта. Дублирование[/moder]


Сообщение отредактировал Pelena - Четверг, 17.09.2015, 12:41
 
Ответить
СообщениеДобрый день.

Задача следующая.
после прыжка с 1-ой ячейки строки на 4 вправо, оставить выделенной 1-ую ячейку строки. Потом выделить диапазон с 4-ой ячейки вправо, оставив при этом 1-ую строку выделенной.

Например, нужно выделить А1,Е1:до ячейки, где есть данные.

как доработать код?

Спасибо

[vba]
Код
ActiveCell.Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         ActiveCell.Offset(0, 4).Select
         Range(Selection, Selection.End(xlToRight)).Select
[/vba]

[moder]Переименовывайте тему!
Это название слишком общее.[/moder]
[moder]Замечание исправлено[/moder]
[moder]Тема закрыта. Дублирование[/moder]

Автор - tigrusha
Дата добавления - 17.09.2015 в 11:58
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!