Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Метод Borders объекта Range / 6 сообщений из 6, страница 1 из 1
30.08.2017, 15:01
    #39512867
Takayavot
Takayavot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Метод Borders объекта Range
Доброго дня!
Подскажите, как сделать для диапазона только внешние границы?
Код
Код: vbnet
1.
Range(“A1:F5”).Borders.linestyle = Xlcontinuous


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

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2017, 15:09
    #39512877
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Метод Borders объекта Range
Включаем запись макроса
Делаем нужные действия
Выключаем запись макроса
Анализируем полученный результат
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2017, 15:15
    #39512884
Takayavot
Takayavot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Метод Borders объекта Range
Shocker.Pro,

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

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

xlEdgeLeft
xlEdgeTop
xlEdgeBottom
xlEdgeRight


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
    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
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2017, 15:42
    #39512903
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Метод Borders объекта Range
TakayavotСлишком длинный. Неужели нельзя покороче?
Нельзя. Список XlBordersIndex Enumeration (Excel) неширок, и ничего похожего на xlEdgeAll там нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2017, 15:53
    #39512910
Takayavot
Takayavot
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Метод Borders объекта Range
Akina,

ок, значит будет длинным.
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2017, 19:16
    #39512999
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Метод Borders объекта Range
Takayavot,

Вроде как есть у Range такой метод как BorderAround. Там можно задать тип и цвет линий.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Метод Borders объекта Range / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 496ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2172589]:
 0ms
get settings:
 11ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 52ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 353ms
total:  496ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]