Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Границы на листе2 / 5 сообщений из 5, страница 1 из 1
26.01.2007, 16:40:48
    #34286112
REDS
REDS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Границы на листе2
Есть код макроса(ниже), но он ставит границы на первом листе...подскажите пожалуйста как поставить на втором листе, пробовал добавить Worksheets("List2"),но выдает ошибку
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlEdgeLeft).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlEdgeTop).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlEdgeBottom).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlEdgeRight).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlInsideVertical).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlInsideHorizontal).LineStyle = xlContinuous
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2007, 16:42:03
    #34286120
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Границы на листе2
перед форматированием второго листа поставить Worksheets("List2").Activate
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2007, 17:00:18
    #34286209
REDS
REDS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Границы на листе2
Покажите куда именно надо ставить ...потому, что ошибка всплывает опять
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2007, 17:10:59
    #34286249
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Границы на листе2
а так?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub test()
    With Worksheets("Sheet2")
        With .Range(.Range("$C$7"), .Range("$C$7").End(xlDown).Offset(,  16 ))
            .Borders(xlEdgeLeft).LineStyle = xlContinuous
            .Borders(xlEdgeTop).LineStyle = xlContinuous
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
            .Borders(xlEdgeRight).LineStyle = xlContinuous
            .Borders(xlInsideVertical).LineStyle = xlContinuous
            .Borders(xlInsideHorizontal).LineStyle = xlContinuous
        End With
    End With
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2007, 18:47:12
    #34286558
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Границы на листе2
REDSПокажите куда именно надо ставить ...потому, что ошибка всплывает опять

Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlEdgeLeft).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlEdgeTop).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlEdgeBottom).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlEdgeRight).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlInsideVertical).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlInsideHorizontal).LineStyle = xlContinuous


Worksheets("List2").Activate


Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlEdgeLeft).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlEdgeTop).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlEdgeBottom).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlEdgeRight).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlInsideVertical).LineStyle = xlContinuous
Range(Range("$C$7:$S$255"), Range("$C$7:$S$255").End(xlDown)).Borders(xlInsideHorizontal).LineStyle = xlContinuous
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Границы на листе2 / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 459ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183557]:
 0ms
get settings:
 13ms
get forum list:
 17ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 112ms
get topic data:
 15ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 246ms
total:  459ms
x
x
Закрыть


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