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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Выделение ячейки, которая следует за последней заполненной.
Chelovekov Дата: Суббота, 27.03.2021, 05:34 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация: 0 ±
Замечаний: 80% ±

Excel 2016
Здравствуйте форумчане, прошу Вас написать, макрос который будет выделять ячейку, которая будет следовать за последней заполненной в столбце.
Пример прилагаю. Спасибо.
К сообщению приложен файл: 1717306.xlsx (15.6 Kb)


Сообщение отредактировал Chelovekov - Суббота, 27.03.2021, 05:35
 
Ответить
СообщениеЗдравствуйте форумчане, прошу Вас написать, макрос который будет выделять ячейку, которая будет следовать за последней заполненной в столбце.
Пример прилагаю. Спасибо.

Автор - Chelovekov
Дата добавления - 27.03.2021 в 05:34
Апострофф Дата: Суббота, 27.03.2021, 06:12 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 458
Репутация: 126 ±
Замечаний: 0% ±

Excel 1997
Chelovekov, Вы что нибудь про макрорекордер слышали?
Пора бы познакомиться yes
[vba]
Код
Sub Кнопка1_Щелчок()
'
' Кнопка1_Щелчок Макрос
'

'
    Range("A2").Select
    Selection.End(xlDown).Select
    Selection.OFFSET(1).SELECT
'    Range("A22").Select
End Sub
[/vba]


Сообщение отредактировал Апострофф - Суббота, 27.03.2021, 06:14
 
Ответить
СообщениеChelovekov, Вы что нибудь про макрорекордер слышали?
Пора бы познакомиться yes
[vba]
Код
Sub Кнопка1_Щелчок()
'
' Кнопка1_Щелчок Макрос
'

'
    Range("A2").Select
    Selection.End(xlDown).Select
    Selection.OFFSET(1).SELECT
'    Range("A22").Select
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 27.03.2021 в 06:12
Chelovekov Дата: Суббота, 27.03.2021, 06:38 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация: 0 ±
Замечаний: 80% ±

Excel 2016
Да спасибо, но я некорректно сделал пример, немного изменил условие, добавил еще один столбец, а выделяться должна ячейка под первым.
Пример прилагаю.
К сообщению приложен файл: 1307866.xlsx (13.6 Kb)
 
Ответить
СообщениеДа спасибо, но я некорректно сделал пример, немного изменил условие, добавил еще один столбец, а выделяться должна ячейка под первым.
Пример прилагаю.

Автор - Chelovekov
Дата добавления - 27.03.2021 в 06:38
Nic70y Дата: Суббота, 27.03.2021, 08:01 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
    Range("a" & Cells(Rows.Count, "a").End(xlUp).Row + 1).Select
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
    Range("a" & Cells(Rows.Count, "a").End(xlUp).Row + 1).Select
[/vba]

Автор - Nic70y
Дата добавления - 27.03.2021 в 08:01
Chelovekov Дата: Суббота, 27.03.2021, 08:15 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация: 0 ±
Замечаний: 80% ±

Excel 2016
Спасибо огромное, все работает.
 
Ответить
СообщениеСпасибо огромное, все работает.

Автор - Chelovekov
Дата добавления - 27.03.2021 в 08:15
  • Страница 1 из 1
  • 1
Поиск:

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