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

と１から５６まで順番に書いてください。
【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