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

Вход

Регистрация

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

 

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

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

Excel 2010
Подскажите, пожалуйста, макрос, чтобы в последней непустой строке был контур - все границы.
Листов обычно много, и кол-во строк всегда разное, но ширина строки одна.
К сообщению приложен файл: 2882490.xlsx(7Kb)
 
Ответить
СообщениеПодскажите, пожалуйста, макрос, чтобы в последней непустой строке был контур - все границы.
Листов обычно много, и кол-во строк всегда разное, но ширина строки одна.

Автор - letasm
Дата добавления - 06.06.2016 в 19:54
Kuzmich Дата: Понедельник, 06.06.2016, 20:09 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 216
Репутация: 40 ±
Замечаний: 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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4277
Репутация: 829 ±
Замечаний: 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 из 11
Поиск:

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