ник: snipe
А чего их ковырять то
открыл ёксель
включил макрос на запись
выделил диапазон
включил режим окрашивания бордюр в выделенном диапазоне
отключил запись
залез в VBA
поставил точку останова на End sub
запустил макрос
и посмотрел все значения всех констант в макросе
вот доработал
Range("C5:J19").Select
Selection.Borders(5).LineStyle = -4142
Selection.Borders(6).LineStyle = -4142
'Вариант 1
'рисуем сетку в выделенном диапазоне с тонкими линиями
For i = 7 To 12
With Selection.Borders(i)
.LineStyle = 1
.Weight = 2
.ColorIndex = -4105
End With
Next i
'Вариант 2
'рисуем сетку с жирным бордюром вокруг выделенного диапазона
'если убрать if......end if и оставить .Weight = -4138, то все бордюры в сетке
'будут жирными
' Rem стоит специально - что бы варианты не путать
Rem For i = 7 To 12
Rem With Selection.Borders(i)
Rem .LineStyle = 1
Rem If i = 11 Or i = 12 Then
Rem .Weight = 2
Rem Else
Rem .Weight = -4138
Rem End If
Rem .ColorIndex = -4105
Rem End With
Rem Next i
Cells(1, 1).Select 'уводим курсор в сторону
|
если в первом варианте
написать
.LineStyle = -4119
.Weight = 4
|
то все линии будут двойными