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

Вход

Регистрация

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

 

= Мир MS Excel/Последняя непустая строка обводилась контуром - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Последняя непустая строка обводилась контуром (Макросы/Sub)
Последняя непустая строка обводилась контуром
letasm Дата: Понедельник, 06.06.2016, 19:54 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Подскажите, пожалуйста, макрос, чтобы в последней непустой строке был контур - все границы.
Листов обычно много, и кол-во строк всегда разное, но ширина строки одна.
К сообщению приложен файл: 2882490.xlsx (7.5 Kb)
 
Ответить
СообщениеПодскажите, пожалуйста, макрос, чтобы в последней непустой строке был контур - все границы.
Листов обычно много, и кол-во строк всегда разное, но ширина строки одна.
Автор - letasm
Дата добавления - 06.06.2016 в 19:54
Kuzmich Дата: Понедельник, 06.06.2016, 20:09 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 717
Репутация: 159 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Sub Kontur()
With Range(Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 3))
  .Borders.Weight = xlThin
  .Font.Bold = True
End With
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub Kontur()
With Range(Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 3))
  .Borders.Weight = xlThin
  .Font.Bold = True
End With
End Sub
[/vba]
Автор - Kuzmich
Дата добавления - 06.06.2016 в 20:09
RAN Дата: Понедельник, 06.06.2016, 20:34 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub qq()
    Cells.Find("итог", , , xlWhole).Resize(, 3).Borders.LineStyle = xlContinuous
End Sub
[/vba]
[vba]
Код
Sub qqq()
    Cells(Rows.Count, 1).End(xlUp).Resize(, 3).Borders.LineStyle = xlContinuous
End Sub
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub qq()
    Cells.Find("итог", , , xlWhole).Resize(, 3).Borders.LineStyle = xlContinuous
End Sub
[/vba]
[vba]
Код
Sub qqq()
    Cells(Rows.Count, 1).End(xlUp).Resize(, 3).Borders.LineStyle = xlContinuous
End Sub
[/vba]
Автор - RAN
Дата добавления - 06.06.2016 в 20:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Последняя непустая строка обводилась контуром (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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