【Excel/VBA】階段状に色を塗るだけ。

何故、会社の席に座った途端条件反射で眠気が走るのだ。おかしいではないか。
ド_トールの椅子ではそんなことないのに。

[仮説]
ド_トールの椅子→創作のための場所として儀式化してるので、覚醒度が上がる。
会社の椅子→最初は、定例マクロ動かしたりメールだらっと見てるので創造性が無く覚醒度要らない

よし、毎朝席についたら、朝一でクソモジュールを組もう。

そうか、エクセル（2k）のカラーインデックスは56までか。勉強になった。
あと、今日の話ではないが、どうでもいい豆。Forのカウンター変数が複数いるからって、配列で作ると、ネストでは使えなかったりする（デバッグで引っかかる）

'----------------------------------------------------------------------------
' イミディエイト
call Morning2013_9_11(thisworkbook)
'----------------------------------------------------------------------------

Public Sub Morning2013_9_11(WB As Workbook)
Dim i As Long, j As Long, h As Long

On Error GoTo Err_Get

h = 0
For j = 0 To 17

For i = 0 To 56

With WB.Worksheets(1).Range("A1").Offset(i + h, j)
.Value = i
.Interior.ColorIndex = i
End With

Next

h = h + 1

Next


Exit Sub
Err_Get:

Select Case Err.Number
Case 1004
Resume Next
End Select

End Sub

'----------------------------------------------------------------------------