Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51520 / 76732 ←次へ | 前へ→

【30077】Re:エクセルのマクロ(ForNext文)
発言  かみちゃん  - 05/10/19(水) 7:31 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>はい。そうです。ありがとうございます。

その前に、私が書いたコードはご確認いただけたのでしょうか?
ぜひ、その結果を教えていただきたいのですが・・・・

>あのすみませんこの続きで申し訳ないんですが今度は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
0 hits

【30064】エクセルのマクロ(ForNext文) nikuo 05/10/18(火) 23:37 質問
【30065】Re:エクセルのマクロ(ForNext文) ponpon 05/10/19(水) 0:14 発言
【30066】Re:エクセルのマクロ(ForNext文) nikuo 05/10/19(水) 0:41 発言
【30068】Re:エクセルのマクロ(ForNext文) hine 05/10/19(水) 1:15 発言
【30069】Re:エクセルのマクロ(ForNext文) nikuo 05/10/19(水) 1:56 質問
【30070】Re:エクセルのマクロ(ForNext文) かみちゃん 05/10/19(水) 2:02 発言
【30071】Re:エクセルのマクロ(ForNext文) nikuo 05/10/19(水) 2:14 発言
【30072】Re:エクセルのマクロ(ForNext文) かみちゃん 05/10/19(水) 2:20 発言
【30073】Re:エクセルのマクロ(ForNext文) nikuo 05/10/19(水) 2:45 質問
【30077】Re:エクセルのマクロ(ForNext文) かみちゃん 05/10/19(水) 7:31 発言
【30081】Re:エクセルのマクロ(ForNext文) nikuo 05/10/19(水) 10:37 質問
【30083】Re:エクセルのマクロ(ForNext文) hine 05/10/19(水) 11:26 発言
【30085】Re:エクセルのマクロ(ForNext文) nikuo 05/10/19(水) 13:33 お礼
【30084】Re:エクセルのマクロ(ForNext文) かみちゃん 05/10/19(水) 12:38 発言
【30079】Re:エクセルのマクロ(ForNext文) わさび 05/10/19(水) 8:43 発言
【31062】Re:エクセルのマクロ(ForNext文) わさび 05/11/10(木) 19:49 発言
【31065】Re:エクセルのマクロ(ForNext文) nikuo 05/11/11(金) 1:42 お礼

51520 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free