Excel VBA質問箱 IV

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

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


8966 / 13644 ツリー ←次へ | 前へ→

【30050】数字に対して色を塗る 05/10/18(火) 20:05 質問[未読]
【30053】Re:数字に対して色を塗る hine 05/10/18(火) 20:30 発言[未読]
【30055】Re:数字に対して色を塗る 05/10/18(火) 21:22 お礼[未読]
【30059】Re:数字に対して色を塗る 05/10/18(火) 22:05 質問[未読]
【30060】Re:数字に対して色を塗る hine 05/10/18(火) 22:21 発言[未読]
【30062】Re:数字に対して色を塗る 05/10/18(火) 22:37 質問[未読]
【30063】Re:数字に対して色を塗る hine 05/10/18(火) 22:50 発言[未読]
【30061】Re:数字に対して色を塗る 05/10/18(火) 22:35 質問[未読]
【30078】Re:数字に対して色を塗る かみちゃん 05/10/19(水) 7:33 発言[未読]
【30080】Re:数字に対して色を塗る 05/10/19(水) 8:49 質問[未読]

【30050】数字に対して色を塗る
質問    - 05/10/18(火) 20:05 -

引用なし
パスワード
   このサイトのシステムがまだ分からなくて・・・・
他のやり方はないんですか(??)
ちなみにCStrはまだならってないんでわかりませんでした(_ _)

【30053】Re:数字に対して色を塗る
発言  hine  - 05/10/18(火) 20:30 -

引用なし
パスワード
   ▼悠 さん:
>このサイトのシステムがまだ分からなくて・・・・
>他のやり方はないんですか(??)
>ちなみにCStrはまだならってないんでわかりませんでした(_ _)

嫌がらせでないことを祈って・・・

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

【30055】Re:数字に対して色を塗る
お礼    - 05/10/18(火) 21:22 -

引用なし
パスワード
   ごめんなさい(_ _)
理解しました。
ご迷惑をお掛けしました。

【30059】Re:数字に対して色を塗る
質問    - 05/10/18(火) 22:05 -

引用なし
パスワード
   他にプログラムは、ないんですか?
分かりやすいものは・・・?_

【30060】Re:数字に対して色を塗る
発言  hine  - 05/10/18(火) 22:21 -

引用なし
パスワード
   ▼悠 さん:
>他にプログラムは、ないんですか?
>分かりやすいものは・・・?_

Range("A1").Value =1
Range("B1").Interior.ColorIndex = 1
Range("A2").Value =2
Range("B2").Interior.ColorIndex = 2




Range("A56").Value =56
Range("B56").Interior.ColorIndex = 56

と1から56まで順番に書いてください。

【30061】Re:数字に対して色を塗る
質問    - 05/10/18(火) 22:35 -

引用なし
パスワード
   「A1〜A56のセルに1〜56を記入し、B列にA列の各色番号に該当する色を塗りたい」
と先ほど質問をしましたが、今度は7行8列で作成したいのですが、どうしたらよいですか?

【30062】Re:数字に対して色を塗る
質問    - 05/10/18(火) 22:37 -

引用なし
パスワード
   >Range("A1").Value =1
>Range("B1").Interior.ColorIndex = 1
>Range("A2").Value =2
>Range("B2").Interior.ColorIndex = 2
>・
>・
>・
>
>Range("A56").Value =56
>Range("B56").Interior.ColorIndex = 56
>
をシンプルにしたのが先ほどのプログラムですか?

【30063】Re:数字に対して色を塗る
発言  hine  - 05/10/18(火) 22:50 -

引用なし
パスワード
   ▼悠 さん:
>をシンプルにしたのが先ほどのプログラムですか?

そうです。
シート名が分らなかったので
Worksheets("Sheet1")としているだけです
シート名はそちらで変更して下さい。

Dim f As Long
With Worksheets("Sheet1")
  For f = 1 To 56
    .Range("A" & CStr(f)).Value = f
    .Range("B" & CStr(f)).Interior.ColorIndex = f
  Next
End With

【30078】Re:数字に対して色を塗る
発言  かみちゃん  - 05/10/19(水) 7:33 -

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

>今度は7行8列で作成したいのですが、どうしたらよいですか?

よく似た質問がありますので、参考になりませんか?
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=30077;id=excel

【30080】Re:数字に対して色を塗る
質問    - 05/10/19(水) 8:49 -

引用なし
パスワード
   質問の内容は同じですが、エクセルのマクロ・・・という題名は僕ではありませんね。でもぼくが求めていた答えはこの人のなのでよかったです。
ありがとうございます(_ _ )

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