Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29698 / 76738

←次へ　｜　前へ→


	【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