Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Office Новый топик    Ответить
 Метод Borders объекта Range  [new]
Takayavot
Member

Откуда:
Сообщений: 133
Доброго дня!
Подскажите, как сделать для диапазона только внешние границы?
Код
Range(“A1:F5”).Borders.linestyle = Xlcontinuous

Делает и внутреннюю сетку тоже.

Спасибо.
30 авг 17, 15:01    [20759023]     Ответить | Цитировать Сообщить модератору
 Re: Метод Borders объекта Range  [new]
Shocker.Pro
Member

Откуда: ->|<- :адуктО
Сообщений: 17603
Включаем запись макроса
Делаем нужные действия
Выключаем запись макроса
Анализируем полученный результат
30 авг 17, 15:09    [20759066]     Ответить | Цитировать Сообщить модератору
 Re: Метод Borders объекта Range  [new]
Takayavot
Member

Откуда:
Сообщений: 133
Shocker.Pro,

делала. Слишком длинный. Неужели нельзя покороче?

Насколько я поняла строку с Borders нужно повторить 4 раза?

xlEdgeLeft
xlEdgeTop
xlEdgeBottom
xlEdgeRight


    Range("B2:C2").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
30 авг 17, 15:15    [20759090]     Ответить | Цитировать Сообщить модератору
 Re: Метод Borders объекта Range  [new]
Akina
Member

Откуда: Зеленоград, Москва, Россия
Сообщений: 16297
Takayavot
Слишком длинный. Неужели нельзя покороче?

Нельзя. Список XlBordersIndex Enumeration (Excel) неширок, и ничего похожего на xlEdgeAll там нет.
30 авг 17, 15:42    [20759214]     Ответить | Цитировать Сообщить модератору
 Re: Метод Borders объекта Range  [new]
Takayavot
Member

Откуда:
Сообщений: 133
Akina,

ок, значит будет длинным.
Спасибо!
30 авг 17, 15:53    [20759243]     Ответить | Цитировать Сообщить модератору
 Re: Метод Borders объекта Range  [new]
The_Prist
Member

Откуда: www.excel-vba.ru
Сообщений: 1610
Takayavot,

Вроде как есть у Range такой метод как BorderAround. Там можно задать тип и цвет линий.
30 авг 17, 19:16    [20759802]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Office Ответить