Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8803 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【30064】エクセルのマクロ（ForNext文）
質問  nikuo  - 05/10/18(火) 23:37 -
引用なし
パスワード
   質問なのですがＡ1〜Ａ56のセルに数値の1〜56を記入して、
Ｂ列のセルをＡ列の各色番号に該当する色で塗りわけしたいのですが
ForNext文でやれる方法で教えてくれませんか?お願いします。
【30065】Re:エクセルのマクロ（ForNext文）
発言  ponpon  - 05/10/19(水) 0:14 -
引用なし
パスワード
   こんばんは。

悠=nikuo=oga
同じ人でしょ。
hineさんが言ってるように返信ボタンを使いましょう。

>嫌がらせでないことを祈って・・・
>
>このページの返信ボタンをクリックして
>書き込めば別スレッドを立ち上げなくてもいいのです。
>種別も選択して下さい。
>おわかりいただけましたか？

>ForNext文でやれる方法で教えてくれませんか?お願いします。
ここにありますよ。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=30063;id=excel
【30066】Re:エクセルのマクロ（ForNext文）
発言  nikuo  - 05/10/19(水) 0:41 -
引用なし
パスワード
   あのすいません。わたしはoga,悠ではないんですけど、nikuoです。
oga=悠という人は赤の他人です。
ですからちゃんと教えてくれませんか?
【30068】Re:エクセルのマクロ（ForNext文）
発言  hine  - 05/10/19(水) 1:15 -
引用なし
パスワード
   nikuo さん
ponponさん
こんばんは

>あのすいません。わたしはoga,悠ではないんですけど、nikuoです。
>oga=悠という人は赤の他人です。

こんな感じですか？
ヘルプも見てくださいね。


Sub TEST1()
'Rangeを使った例
With Worksheets("Sheet1")
　　For f = 1 To 56
　　　　.Range("A" & CStr(f)).Value = f
　　　　.Range("B" & CStr(f)).Interior.ColorIndex = f
　　Next
End With
End Sub

Sub TEST2()
'Cellsを使った例
Dim f As Long
With Worksheets("Sheet1")
　　For f = 1 To 56
　　　　.Cells(f, 1).Value = f
　　　　.Cells(f, 2).Interior.ColorIndex = f
　　Next
End With
End Sub
【30069】Re:エクセルのマクロ（ForNext文）
質問  nikuo  - 05/10/19(水) 1:56 -
引用なし
パスワード
   すいませんほかのやり方でここまでできたのですが、
　　Dim i As Integer

　　Cells.Select
　　Selection.ClearContents
　　Range("A1").Select
　　
　　For i = 1 To 56
　　　Cells(i, 2).Interior.ColorIndex = i
　　Next

End Sub
まだこのままだと何もない表から実行させるとＢ列だけに色が塗られてしまいます。私がしたいのは何もない表から実行させるとＡ列に番号の1〜56が表示され
Ｂ列に色を塗るようにしたいのですがどうしてもこの形でForNext文でやりたい
のでわがままいってすみませんがお願いします。
【30070】Re:エクセルのマクロ（ForNext文）
発言  かみちゃん  - 05/10/19(水) 2:02 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>まだこのままだと何もない表から実行させるとＢ列だけに色が塗られてしまいます。私がしたいのは何もない表から実行させるとＡ列に番号の1〜56が表示され
>Ｂ列に色を塗るようにしたい

あまりこういうことは言いたくないのですが、「ちゃんと教えてください」とおっ
しゃっている割には、ちゃんと回答しているhineさんのコメントは、試されている
のでしょうか？
【30071】Re:エクセルのマクロ（ForNext文）
発言  nikuo  - 05/10/19(水) 2:14 -
引用なし
パスワード
   >
>あまりこういうことは言いたくないのですが、「ちゃんと教えてください」とおっ
>しゃっている割には、ちゃんと回答しているhineさんのコメントは、試されている
>のでしょうか？

hineさんのをやってみたのですがどうしても↓の形からでやりたいんです。
　　Dim i As Integer

　　Cells.Select
　　Selection.ClearContents
　　Range("A1").Select
　　
　　For i = 1 To 56
　　　Cells(i, 2).Interior.ColorIndex = i
　　Next

End Sub

何もない表から実行させるとＡ列に番号の1〜56が表示され
Ｂ列に色を塗るようにしたいんです。hineさんごめんなさい。
どうかお願いします。
【30072】Re:エクセルのマクロ（ForNext文）
発言  かみちゃん  - 05/10/19(水) 2:20 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>hineさんのをやってみたのですがどうしても↓の形からでやりたいんです。

なぜ、そうしたいのですか？まぁ、それはいいとして、
　For i = 1 To 56
　　Cells(i, 1).Value = i
　　Cells(i, 2).Interior.ColorIndex = i
　Next
でいいのでは？
ひとつ聞きたいのは、B列の色は、セルごとに変わるということでいいですよね？
【30073】Re:エクセルのマクロ（ForNext文）
質問  nikuo  - 05/10/19(水) 2:45 -
引用なし
パスワード
   >なぜ、そうしたいのですか？まぁ、それはいいとして、
>　For i = 1 To 56
>　　Cells(i, 1).Value = i
>　　Cells(i, 2).Interior.ColorIndex = i
>　Next
>でいいのでは？
>ひとつ聞きたいのは、B列の色は、セルごとに変わるということでいいですよね？

はい。そうです。ありがとうございます。
あのすみませんこの続きで申し訳ないんですが今度は14行8列でやりたいのですが
数字はA,C,E,G列に、色はB,D,F,H列にしたいんですけども結果として
　A　　B 　 C　　D 　 E 　 F 　 G 　 H
　1　　色　 2　　色　 3　　色　 4　 色
･･･
53　　色　54　　色　55　　色　 56　色
とやりたいんですが教えてください。
【30077】Re:エクセルのマクロ（ForNext文）
発言  かみちゃん  - 05/10/19(水) 7:31 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

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

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

>あのすみませんこの続きで申し訳ないんですが今度は14行8列でやりたいのですが

なさりたいことはわかったのですが、どう考えても、以下のＵＲＬと同じ質問に思
えませんか？
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
【30079】Re:エクセルのマクロ（ForNext文）
発言  わさび  - 05/10/19(水) 8:43 -
引用なし
パスワード
   全くもって余談なんですが。ひょっとして、
同じ学校で同じ授業をとっていて、同じ課題を出された学生さん同士なのかな、
なんて、余計なことを考えてしまいました。

課題で、ForNext文を使う等の条件があるのであれば、
ちゃんとそれを明記した上で質問をすれば、
こちらのサイトの方々はそれを踏まえた上で丁寧に教えてくださいますよ。


>あのすいません。わたしはoga,悠ではないんですけど、nikuoです。
>oga=悠という人は赤の他人です。
>ですからちゃんと教えてくれませんか?
【30081】Re:エクセルのマクロ（ForNext文）
質問  nikuo  - 05/10/19(水) 10:37 -
引用なし
パスワード
   >　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
あのすみません上のマクロをやってみたのですが結果が1列目は１、色、2、色、3色、4、色、とできているのですが2列目が6、色、7、色、8、色、9、色、と5がぬけてしまって1つずつずれてしまって最後の番号が57で終わってしまいます。
本当は1〜56番までで終わりたいのですが。
【30083】Re:エクセルのマクロ（ForNext文）
発言  hine  - 05/10/19(水) 11:26 -
引用なし
パスワード
   ▼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
【30084】Re:エクセルのマクロ（ForNext文）
発言  かみちゃん  - 05/10/19(水) 12:38 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>上のマクロをやってみたのですが結果が

hineさんにも動作確認していただいています（hineさんありがとうございます。）が、
こちらでも、提示したコードでは、動作確認できています。（WindowsXP、Excel2002SP3）
ですので、お手数ですが、nikuoさんが実行されたコードを教えていただければ、
内容見させていただきますけど・・・
（できれば、コードを打ち直すのではなく、そのままコピーして貼り付けてみてください。）

ただ、わさびさんがおっしゃっている、学校とか何かの課題であるならば、
正解をそのまま書くのは、ノートを丸写しさせているのと一緒で気がすすみません。（だったら、発言しなければいいわけですが、提示したコードで動かないと
おっしゃっているので、その責任は発言した私にあるかと思っています。）
【30085】Re:エクセルのマクロ（ForNext文）
お礼  nikuo  - 05/10/19(水) 13:33 -
引用なし
パスワード
   すいません。私の簡単な入力ミスでした。ありがとうございます。
【31062】Re:エクセルのマクロ（ForNext文）
発言  わさび  - 05/11/10(木) 19:49 -
引用なし
パスワード
   ▼わさび さん：
>全くもって余談なんですが。ひょっとして、
>同じ学校で同じ授業をとっていて、同じ課題を出された学生さん同士なのかな、
>なんて、余計なことを考えてしまいました。
>
>課題で、ForNext文を使う等の条件があるのであれば、
>ちゃんとそれを明記した上で質問をすれば、
>こちらのサイトの方々はそれを踏まえた上で丁寧に教えてくださいますよ。


一部、不適格な表現がありました。
申し訳ございません。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=31045;id=excel#31061
【31065】Re:エクセルのマクロ（ForNext文）
お礼  nikuo  - 05/11/11(金) 1:42 -
引用なし
パスワード
   >一部、不適格な表現がありました。
>申し訳ございません。
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=31045;id=excel#31061

わさびさん、あなたの意見を見させてもらいました。
すいませんでした。自分は学校の課題がなかなかできなくてそして軽いつもりで
このサイトを利用してしまって。今度からはもうちょっと自分でもっと深く考えて
からわからなかった場合利用させていただきます。これからもお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8803 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free