|
こんにちは。かみちゃん です。
>はい。そうです。ありがとうございます。
その前に、私が書いたコードはご確認いただけたのでしょうか?
ぜひ、その結果を教えていただきたいのですが・・・・
>あのすみませんこの続きで申し訳ないんですが今度は14行8列でやりたいのですが
なさりたいことはわかったのですが、どう考えても、以下のURLと同じ質問に思
えませんか?
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=30061;id=excel
このスレッドの元々のご質問も実は、
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=30028;id=excel
と全く同じ質問のように見えます。
まずは、この質問を見て、nikuoさんがどうお感じになったかを聞いてみたいです。
ところで、ちょっと時間がないので、もっとスマートなコードを考えることが
できませんが、以下のようなコードでできます。(動作確認済み)
Sub Macro1()
Dim i As Long
For i = 1 To 56 Step 4
Cells(i / 4 + 1, 1).Value = i
Cells(i / 4 + 1, 2).Interior.ColorIndex = i
Cells(i / 4 + 1, 3).Value = i + 1
Cells(i / 4 + 1, 4).Interior.ColorIndex = i + 1
Cells(i / 4 + 1, 5).Value = i + 2
Cells(i / 4 + 1, 6).Interior.ColorIndex = i + 2
Cells(i / 4 + 1, 7).Value = i + 3
Cells(i / 4 + 1, 8).Interior.ColorIndex = i + 3
Next
End Sub
|
|