Sub Ìàêðîñ
1
()
'
' Ìàêðîñ
1
Ìàêðîñ
' Ìàêðîñ çàïèñàí
23.07.2012
(Michael Nilov)
'
'
Range("C8:H18").Select
Selection
.
Borders(xlDiagonalDown).LineStyle = xlNone
Selection
.
Borders(xlDiagonalUp).LineStyle = xlNone
With
Selection
.
Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End
With
With
Selection
.
Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End
With
With
Selection
.
Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End
With
With
Selection
.
Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End
With
Selection
.
Borders(xlInsideVertical).LineStyle = xlNone
Selection
.
Borders(xlInsideHorizontal).LineStyle = xlNone
End
Sub