ник: час
Спасибо ...
Забыл передупредить - это фсё в VB6 фигачится и потому константы Excel - там надо заменять числовыми значениями ..... которых я к сожалению не знаю....
Это я пробовал - матерится...............
Range("B3:H16").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
|
