|
できないです。
出来てもこれくらいかな・・・
Sub Macro1()
ActiveWindow.DisplayHeadings = False
Range("A1").Value = 1
Range("A1:A65536").DataSeries Rowcol:=xlColumns, _
Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
Columns("A:A").Select
With Columns("A").Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Columns("A").Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Columns("A").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Columns("A").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Columns("A").Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Columns("A")
.Interior.ColorIndex = 15
.AutoFit
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
Range("A1").Select
End Sub
|
|