Excel VBA質問箱 IV

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

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


29692 / 76732 ←次へ | 前へ→

【52316】Re:図を作って色分け…お急ぎ頂けると光栄です
質問  yasu  - 07/11/8(木) 15:23 -

引用なし
パスワード
   円を作ることは望んでいたものができました。
ありがとうございました。

続いて、色をつけるということをしたいのですが、
したのように作ってみたら意外とできたので驚いたのですが、
もうちょっとかんたんにはならないでしょうか??

あと、255±Range や 0±Range といった値が255を超える
または0を下回った際には255、0にするというようにするには
どうしたらよいでしょうか??

ご協力お願いします。

Sub 色()
 Worksheets("Sheet1").Shapes(1).Fill _
 .ForeColor.RGB = RGB(Range("a1"), 255 - Range("a1"), 255 + Range("a1"))
 Worksheets("Sheet1").Shapes(2).Fill _
 .ForeColor.RGB = RGB(Range("b1"), 255 - Range("b1"), 255 + Range("b1"))
 Worksheets("Sheet1").Shapes(3).Fill _
 .ForeColor.RGB = RGB(Range("c1"), 255 - Range("c1"), 255 + Range("c1"))
 Worksheets("Sheet1").Shapes(4).Fill _
 .ForeColor.RGB = RGB(Range("d1"), 255 - Range("d1"), 255 + Range("d1"))
 Worksheets("Sheet1").Shapes(5).Fill _
 .ForeColor.RGB = RGB(Range("e1"), 255 - Range("e1"), 255 + Range("e1"))
 Worksheets("Sheet1").Shapes(6).Fill _
 .ForeColor.RGB = RGB(Range("f1"), 255 - Range("f1"), 255 + Range("f1"))
 Worksheets("Sheet1").Shapes(7).Fill _
 .ForeColor.RGB = RGB(Range("g1"), 255 - Range("g1"), 255 + Range("g1"))
 Worksheets("Sheet1").Shapes(8).Fill _
 .ForeColor.RGB = RGB(Range("h1"), 255 - Range("h1"), 255 + Range("h1"))
 Worksheets("Sheet1").Shapes(9).Fill _
 .ForeColor.RGB = RGB(Range("i1"), 255 - Range("i1"), 255 + Range("i1"))
 Worksheets("Sheet1").Shapes(10).Fill _
 .ForeColor.RGB = RGB(Range("j1"), 255 - Range("j1"), 255 + Range("j1"))
 Worksheets("Sheet1").Shapes(11).Fill _
 .ForeColor.RGB = RGB(Range("k1"), 255 - Range("k1"), 255 + Range("k1"))
 Worksheets("Sheet1").Shapes(12).Fill _
 .ForeColor.RGB = RGB(Range("l1"), 255 - Range("l1"), 255 + Range("l1"))
 Worksheets("Sheet1").Shapes(13).Fill _
 .ForeColor.RGB = RGB(Range("m1"), 255 - Range("m1"), 255 + Range("m1"))
 Worksheets("Sheet1").Shapes(14).Fill _
 .ForeColor.RGB = RGB(Range("n1"), 255 - Range("n1"), 255 + Range("n1"))
 Worksheets("Sheet1").Shapes(15).Fill _
 .ForeColor.RGB = RGB(Range("o1"), 255 - Range("o1"), 255 + Range("o1"))
 Worksheets("Sheet1").Shapes(16).Fill _
 .ForeColor.RGB = RGB(Range("p1"), 255 - Range("p1"), 255 + Range("p1"))
 Worksheets("Sheet1").Shapes(17).Fill _
 .ForeColor.RGB = RGB(Range("q1"), 255 - Range("q1"), 255 + Range("q1"))
End Sub
0 hits

【52287】図を作って色分け…お急ぎ頂けると光栄です yasu 07/11/5(月) 17:54 質問
【52288】Re:図を作って色分け…お急ぎ頂けると光栄... ぱっせんじゃー 07/11/5(月) 18:03 発言
【52289】Re:図を作って色分け…お急ぎ頂けると光栄... yasu 07/11/5(月) 18:23 質問
【52293】Re:図を作って色分け…お急ぎ頂けると光栄... ichinose 07/11/5(月) 21:39 発言
【52295】Re:図を作って色分け…お急ぎ頂けると光栄... [名前なし] 07/11/6(火) 0:02 質問
【52296】Re:図を作って色分け…お急ぎ頂けると光栄... ichinose 07/11/6(火) 7:46 発言
【52298】Re:図を作って色分け…お急ぎ頂けると光栄... yasu 07/11/6(火) 13:40 質問
【52312】Re:図を作って色分け…お急ぎ頂けると光栄... yata 07/11/7(水) 21:46 発言
【52316】Re:図を作って色分け…お急ぎ頂けると光栄... yasu 07/11/8(木) 15:23 質問
【52322】Re:図を作って色分け…お急ぎ頂けると光栄... yata 07/11/8(木) 21:24 発言

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