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 ・・・)
とした方がいいかも。

304 hits

【75084】マクロで、セルに色をつけたいです。 しずか 13/12/10(火) 2:14 質問
【75090】Re:マクロで、セルに色をつけたいです。 [名前なし] 13/12/10(火) 16:31 回答
【75096】Re:マクロで、セルに色をつけたいです。 しずか 13/12/10(火) 20:52 お礼
【75100】Re:マクロで、セルに色をつけたいです。 しずか 13/12/11(水) 11:55 お礼
【75102】Re:マクロで、セルに色をつけたいです。 [名前なし] 13/12/11(水) 18:19 回答
【75112】Re:マクロで、セルに色をつけたいです。 しずか 13/12/12(木) 17:29 お礼

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