[fofka]

Доброго дня. Подскажите как лучше в Excel (выгрузка идет в него) нарисовать все границы в выделенном диапозоне. Аналог кнопки "Все границы". Выделяю диапозон ячеек и нужно задать все границы, по одной рисовать долго, процесс ускорить хочется.

 Excel.ActiveWorkBook.WorkSheets['1'].Range['A1:BU65'].Select;

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft)     .LineStyle = xlContinuous     .Weight = xlThin     .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop)     .LineStyle = xlContinuous     .Weight = xlThin     .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom)     .LineStyle = xlContinuous     .Weight = xlThin     .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight)     .LineStyle = xlContinuous     .Weight = xlThin     .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical)     .LineStyle = xlContinuous     .Weight = xlThin     .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal)     .LineStyle = xlContinuous     .Weight = xlThin     .ColorIndex = xlAutomatic End With

на pascal переводить?)

[fofka]

Благодарю. Паскаль не нужно.

[EvilRussian]

^
|