Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Lukas
Как-то так у меня бордюрятся:

...
                With .Range(.Cells(1, 1), .Cells(lngRecordCount + 1, i))
                    For j = 11 To 12
                        With .Borders(j)
                            .LineStyle = 1
                            .Weight = 2
                            .ColorIndex = 5
                        End With
                    Next j
                    For j = 7 To 10
                        With .Borders(j)
                            .LineStyle = -4119 ' xlDouble
                            .Weight = 4
                            .ColorIndex = 5
                        End With
                    Next j
                End With
...


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.