| |
▼nikuo さん:
こんにちは
かみちゃん さんのコードを試してみましたが
ちゃんと表示されますよ。
もう一度コードをよく確認されたらどうでしょう
nikuo さんの単純な入力ミスかもしれませんよ
間違ってたらごめんなさい。
>> 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
|
|