ник: час
Спасибо!!
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
|
но это опять таки цикл...
это я так и делаю - наподобиииеие
====================================
В openeOfice есть проще способ - задал диапазон и хлобысть....... всё готово одним махом...
Незнаете в Excel такое имеется?
