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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение и закрашивание последней строки макросом (Макросы/Sub)
Выделение и закрашивание последней строки макросом
Maryasha Дата: Четверг, 26.11.2015, 16:22 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 152
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Уважаемые форумчане, подскажите как выделять последнюю строчку в таблице макросом и заодно красить эту строчку в какой-либо цвет? Спасибо!
К сообщению приложен файл: 1078045.xlsx (44.8 Kb)
 
Ответить
СообщениеУважаемые форумчане, подскажите как выделять последнюю строчку в таблице макросом и заодно красить эту строчку в какой-либо цвет? Спасибо!
Автор - Maryasha
Дата добавления - 26.11.2015 в 16:22
Manyasha Дата: Четверг, 26.11.2015, 16:36 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Maryasha, так подойдет?
[vba]
Код
Sub get_last_row()
    lr = Sheets("Журнал движения").[a1].CurrentRegion.Rows.Count
    lc = Sheets("Журнал движения").[a1].CurrentRegion.Columns.Count
    Range(Cells(lr + 1, 1), Cells(lr + 1, lc)).Interior.Color = vbYellow
End Sub
[/vba]
К сообщению приложен файл: 1078045-1.xlsm (49.3 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеMaryasha, так подойдет?
[vba]
Код
Sub get_last_row()
    lr = Sheets("Журнал движения").[a1].CurrentRegion.Rows.Count
    lc = Sheets("Журнал движения").[a1].CurrentRegion.Columns.Count
    Range(Cells(lr + 1, 1), Cells(lr + 1, lc)).Interior.Color = vbYellow
End Sub
[/vba]
Автор - Manyasha
Дата добавления - 26.11.2015 в 16:36
Wasilich Дата: Четверг, 26.11.2015, 16:40 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Или так
[vba]
Код
Sub www()
    S = Range("A" & Rows.Count).End(xlUp).Row +1
    Range("A" & S & ":W" & S).Interior.ColorIndex = 6
End Sub
[/vba]
 
Ответить
СообщениеИли так
[vba]
Код
Sub www()
    S = Range("A" & Rows.Count).End(xlUp).Row +1
    Range("A" & S & ":W" & S).Interior.ColorIndex = 6
End Sub
[/vba]
Автор - Wasilich
Дата добавления - 26.11.2015 в 16:40
Maryasha Дата: Четверг, 26.11.2015, 17:00 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 152
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Manyasha, Wasilic, а как именно выделить последнюю строчку в таблице?
 
Ответить
СообщениеManyasha, Wasilic, а как именно выделить последнюю строчку в таблице?
Автор - Maryasha
Дата добавления - 26.11.2015 в 17:00
Manyasha Дата: Четверг, 26.11.2015, 17:05 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Maryasha, в моем коде [vba]
Код
Rows(lr+1).select
[/vba]
в коде Wasilic, [vba]
Код
Rows(S).select
[/vba]

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеMaryasha, в моем коде [vba]
Код
Rows(lr+1).select
[/vba]
в коде Wasilic, [vba]
Код
Rows(S).select
[/vba]
Автор - Manyasha
Дата добавления - 26.11.2015 в 17:05
Maryasha Дата: Четверг, 26.11.2015, 17:20 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 152
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Danke schon!
 
Ответить
СообщениеDanke schon!
Автор - Maryasha
Дата добавления - 26.11.2015 в 17:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение и закрашивание последней строки макросом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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