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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделить диапазон с выделенной ячейки до последней заполнен. (Макросы/Sub)
Выделить диапазон с выделенной ячейки до последней заполнен.
Nikolay28 Дата: Четверг, 22.01.2015, 14:23 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

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

Подскажите, пожалуйста, код чтобы выделялся диапазон с текущей ячейки до последней заполненной в колонках и столбцах.

И если можно тут же еще вопрос, как этот макрос добавить в контекстное меню потом?

Спасибо.
 
Ответить
СообщениеДобрый день.

Подскажите, пожалуйста, код чтобы выделялся диапазон с текущей ячейки до последней заполненной в колонках и столбцах.

И если можно тут же еще вопрос, как этот макрос добавить в контекстное меню потом?

Спасибо.
Автор - Nikolay28
Дата добавления - 22.01.2015 в 14:23
DJ_Marker_MC Дата: Четверг, 22.01.2015, 14:26 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Добрый день.
[vba]
Код
ActiveSheet.UsedRange.Select
[/vba]
 
Ответить
СообщениеДобрый день.
[vba]
Код
ActiveSheet.UsedRange.Select
[/vba]
Автор - DJ_Marker_MC
Дата добавления - 22.01.2015 в 14:26
Pelena Дата: Четверг, 22.01.2015, 14:29 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19196
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
А горячие клавиши не подойдут? Ctrl+Shift+End

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеА горячие клавиши не подойдут? Ctrl+Shift+End
Автор - Pelena
Дата добавления - 22.01.2015 в 14:29
Nikolay28 Дата: Четверг, 22.01.2015, 14:46 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
нет, cntr+shift+end выбирают диапазон и пустых ячеек, но которые были редактированы.
 
Ответить
Сообщениенет, cntr+shift+end выбирают диапазон и пустых ячеек, но которые были редактированы.
Автор - Nikolay28
Дата добавления - 22.01.2015 в 14:46
Nikolay28 Дата: Четверг, 22.01.2015, 14:48 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
по поводу этого "ActiveSheet.UsedRange.Select"
Мне нужно выделять диапазон с выбранной мною ячейки, далее нажимать макрос, чтобы он уже от этой ячейки выбирал все, именно, заполненные ячейки. Вот как-то так!
 
Ответить
Сообщениепо поводу этого "ActiveSheet.UsedRange.Select"
Мне нужно выделять диапазон с выбранной мною ячейки, далее нажимать макрос, чтобы он уже от этой ячейки выбирал все, именно, заполненные ячейки. Вот как-то так!
Автор - Nikolay28
Дата добавления - 22.01.2015 в 14:48
Rioran Дата: Четверг, 22.01.2015, 14:49 | Сообщение № 6
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Nikolay28, здравствуйте!

Попробуйте так, где Selection - уже выделенная Вами ячейка.

[vba]
Код
Range(Selection, Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)).Select
[/vba]
Этот механизм надёжен до тех пор, пока Вы ничего не пишете "для заметок" за пределами таблицы. Совсем идеальный вариант - первый цикл проходит по строке заголовков до первой пустой ячейки, второй цикл перебирает найденные столбцы и в каждом ищет последнюю заполненную ячейку с помощью прыжка. Каждые числа столбцов сравниваются и выбирается максимальное. Так точно можно быть застрахованным от строк с частично отсутствующими данными и от особенности UsedRange, который будет выделять даже те диапазоны, которые были очищены от значений "вручную".

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Сообщение отредактировал Rioran - Четверг, 22.01.2015, 14:53
 
Ответить
СообщениеNikolay28, здравствуйте!

Попробуйте так, где Selection - уже выделенная Вами ячейка.

[vba]
Код
Range(Selection, Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)).Select
[/vba]
Этот механизм надёжен до тех пор, пока Вы ничего не пишете "для заметок" за пределами таблицы. Совсем идеальный вариант - первый цикл проходит по строке заголовков до первой пустой ячейки, второй цикл перебирает найденные столбцы и в каждом ищет последнюю заполненную ячейку с помощью прыжка. Каждые числа столбцов сравниваются и выбирается максимальное. Так точно можно быть застрахованным от строк с частично отсутствующими данными и от особенности UsedRange, который будет выделять даже те диапазоны, которые были очищены от значений "вручную".
Автор - Rioran
Дата добавления - 22.01.2015 в 14:49
Nikolay28 Дата: Четверг, 22.01.2015, 14:53 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Rioran, спасибо! То что надо!)
 
Ответить
СообщениеRioran, спасибо! То что надо!)
Автор - Nikolay28
Дата добавления - 22.01.2015 в 14:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделить диапазон с выделенной ячейки до последней заполнен. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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