ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Метод Borders объекта Range
6 сообщений из 6, страница 1 из 1
Метод Borders объекта Range
    #39512867
Takayavot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Takayavot
Гость
Доброго дня!
Подскажите, как сделать для диапазона только внешние границы?
Код
Код: vbnet
1.
Range(“A1:F5”).Borders.linestyle = Xlcontinuous


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

Спасибо.
...
Рейтинг: 0 / 0
30.08.2017, 15:01
| Ответить | Цитировать | Написать  
Метод Borders объекта Range
    #39512877
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Включаем запись макроса
Делаем нужные действия
Выключаем запись макроса
Анализируем полученный результат
...
Рейтинг: 0 / 0
30.08.2017, 15:09
| Ответить | Цитировать | Написать  
Метод Borders объекта Range
    #39512884
Takayavot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Takayavot
Гость
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:15
| Ответить | Цитировать | Написать  
Метод Borders объекта Range
    #39512903
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
TakayavotСлишком длинный. Неужели нельзя покороче?
Нельзя. Список XlBordersIndex Enumeration (Excel) неширок, и ничего похожего на xlEdgeAll там нет.
...
Рейтинг: 0 / 0
30.08.2017, 15:42
| Ответить | Цитировать | Написать  
Метод Borders объекта Range
    #39512910
Takayavot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Takayavot
Гость
Akina,

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

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


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