Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Изменение контура Selection, укоротить код
 
#1
22.12.2016 13:49:22
Доброго дня, товарищи.
Возможно ли сократить данный код? Чтобы не перечислять каждую сторону, а как-то  - ..EDGE и всё.
Код
With Selection
    .Borders.LineStyle = xlNone
    .Borders(xlEdgeBottom).LineStyle = xlDouble
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    .Borders(xlEdgeTop).LineStyle = xlContinuous
End With
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#2
22.12.2016 14:15:51
Код
With Selection
    .Borders.LineStyle = xlContinuous
    .Borders(xlEdgeBottom).LineStyle = xlDouble
End With

Если диапазон - не одна ячейка, то, наверное, никак не сократить.

Попутно: выделять не обязательно.
 
 
 
#3
22.12.2016 14:18:44
Ну чтож, будем с этим жить.
Спасибо.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#4
22.12.2016 15:08:00
Нашёл:
Код
Selection.BorderAround xlDouble
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#5
22.12.2016 15:27:40
Нужно было ограничить выделенный диапазон линией и только нижнюю границу двойной.
Selection.BorderAround xlDouble - ставит вокруг двойные
Код
With Selection
    .Borders.LineStyle = xlNone
    .BorderAround xlContinuous
    .Borders(xlEdgeBottom).LineStyle = xlDouble
End With
 
 
 
#6
22.12.2016 16:13:17
Это у меня после экспериментов осталось. Главное - не перебирать верх, низ, право, лево.
Код
With Range("H6:K10")
    .Borders.LineStyle = xlNone
    .BorderAround xlContinuous
End With
With Range("H12:K14")
    .BorderAround xlThick
End With
With Range("H16:K20")
    .BorderAround xlDouble, ColorIndex:=3
End With
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
Страницы: 1
Наверх