Привет Всем!
Замучился уже експериментировать...
может кто-нибудь поможет сделать из 'того чуда autoit
Начало есть а вот дальше...
Жду ответа! Спасибо!
Замучился уже експериментировать...
может кто-нибудь поможет сделать из 'того чуда autoit
Код:
Sub Setka()
Range("A1:V17").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
Начало есть а вот дальше...
Код:
#include <Excel.au3>
Local $oExcel = _ExcelBookNew()
$oExcel.Range("A1:V17").Select
Жду ответа! Спасибо!