Excel VBA質問箱 IV

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

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


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

7231 / 76732

←次へ　｜　前へ→


	【75090】Re:マクロで、セルに色をつけたいです。

［名前なし］ - 13/12/10(火) 16:31 -


	引用なし

	パスワード

A以外のグループの条件がよくわかりませんので・・
それぞれの範囲ごとに色を付けるしかないのでは？？
それぞれのグループに範囲名をつけるとして
（範囲名を付けない場合はRange("b10:k19") やRange(Range("b10"), Range("b10").Offset(10, 10))としてください）
Sub macro2()
　　Dim rng As Range
　　Dim rcolor()
　　rcolor = Array(RGB(1, 128, 255), RGB(0, 255, 255), RGB(204, 255, 204), RGB(75, 255, 75), _
　　　　　　　　　　 RGB(255, 255, 153), RGB(255, 255, 0), RGB(255, 204, 0), _
　　　　　　　　　　RGB(255, 153, 0), RGB(255, 102, 0), RGB(255, 0, 0))
　　For Each rng In Range("Aグループ")
　　'For Each rng In Range(Range("b10"), Range("b10").Offset(10, 10))
　　　　Select Case rng.Value
　　　　Case 1 To 99
　　　　　　rng.Interior.Color = rcolor(Int(rng.Value / 10))
　　　　Case 100
　　　　　　rng.Interior.Color = rcolor(9)
　　　　Case Else
　　　　　　rng.Interior.Color = RGB(255, 255, 255)
　　　　End Select
　　Next
　　For Each rng In Range("Bグループ")
　　　　Select Case rng.Value
　　　　Case 10 To 19
　　　　　　rng.Interior.Color = rcolor(1)
　　　　Case 20 To 34
　　　　　　rng.Interior.Color = rcolor(2)
　　　　'・
　　　　'・
　　　　Case 130 To 150
　　　　　　rng.Interior.Color = rcolor(9)
　　　　Case Else
　　　　　　rng.Interior.Color = RGB(255, 255, 255)
　　　　End Select
　　Next
End Sub
カラーは適当につけましたがセルに見本をおいて
　　rcolor = Array(Range("A1").Interior.Color,Range("A2").Interior.Color　・・・）
とした方がいいかも。

306 hits

▼

【75084】マクロで、セルに色をつけたいです。 しずか 13/12/10(火) 2:14