powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Границы через одну
4 сообщений из 4, страница 1 из 1
Границы через одну
    #34745891
B.T.C.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как в заданном диапазоне, содержащим четное количество строк, провести горизонтальные границы, разделяющие пары?
Код: plaintext
1.
2.
3.
4.
    For Row =  1  To r.Rows.Count Step  2 
        With r
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
        End With
    Next Row
Вроде просто, но не получилось
...
Рейтинг: 0 / 0
Границы через одну
    #34745967
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Эхм.... Возьми себе за правило - не использовать конструкцию WITH в течении следующего года.
Ты явно не понимаешь как она работает и для чего используется.
Код: plaintext
1.
2.
    For Row =  1  To r.Rows.Count Step  2 
        r.Rows(Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
    Next Row
...
Рейтинг: 0 / 0
Границы через одну
    #34746152
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для интереса, а может и не только
Можно форматировать строки через одну с помощью условного форматирования
используя следующие условия
=ОСТАТ(СТРОКА();2)=0
=ОСТАТ(СТРОКА()+1;2)=0
...
Рейтинг: 0 / 0
Границы через одну
    #34747027
B.T.C.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Хорошо, а если сначала в том же диапазоне нужно сделать "Все границы", как тогда?
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Границы через одну
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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