Excel(エクセル) VBA入門：セルの値に応じてセルに色を付ける

はじめに

• セルの値に応じて色をつけたい(セルを塗りつぶしたい)ときは条件付き書式が利用できます。
  ただし、Excel2003までの条件付き書式では3条件までしか設定ができませんので、4条件など条件が多いときにはVBAを利用します。
• ここではVBAを使ってセルを塗りつぶす例(条件数5個)を書いています。

セルの値が一箇所だけ変わる場合

• E列の値が1〜5の場合、A列〜E列のセルをそれぞれの色で塗りつぶします。
• コードはワークシートのモジュールに書きます。
  • シートタブでシート見出しを右クリックして「コードの表示」を実行するとVBEが開きます。
    下図ではSheet1にコードが書いてある例です。
    
• 【コード例】

  • Private Sub Worksheet_Change(ByVal Target As Range) 　Dim myColor As Variant 　　If Target.Count <> 1 Then Exit Sub 　　If Target.Column <> 5 Then Exit Sub 　　Application.EnableEvents = False 　　Select Case Target.Value 　　　　Case 1 　　　　　　myColor = 3 '赤 　　　　Case 2 　　　　　　myColor = 5 '青 　　　　Case 3 　　　　　　myColorl = 6 '黄 　　　　Case 4 　　　　　　myColor = 15 'グレー 　　　　Case 5 　　　　　　myColor = 43 '緑 　　　　Case Else 　　　　　　myColor = xlNone 　　End Select 　　Cells(Target.Row, 1).Resize(1, 5).Interior.ColorIndex = myColor 　　Application.EnableEvents = True End Sub

  • 実行後の例
    

セルの値が複数箇所変わる場合

• 変化したセルがE列と重なっているか否かを判断して、E列の値が変化していたら動作します。
  • 【コード例】

    • Private Sub Worksheet_Change(ByVal Target As Range) 　Dim myColor As Variant 　Dim c As Range 　Dim myRng As Range 　　Set myRng = Application.Intersect(Range("E:E"), Target) 　　If myRng Is Nothing Then Exit Sub 　　Application.EnableEvents = False 　　For Each c In myRng 　　　　Select Case c.Value 　　　　　　Case 1 　　　　　　　　myColor = 3 '赤 　　　　　　Case 2 　　　　　　　　myColor = 5 '青 　　　　　　Case 3 　　　　　　　　myColorl = 6 '黄 　　　　　　Case 4 　　　　　　　　myColor = 15 'グレー 　　　　　　Case 5 　　　　　　　　myColor = 43 '緑 　　　　　　Case Else 　　　　　　　　myColor = xlNone 　　　　End Select 　　　　Cells(c.Row, 1).Resize(1, 5).Interior.ColorIndex = myColor 　　Next c 　　Application.EnableEvents = True End Sub

ColorIndexと色の見本

• ColorIndexと色の見本
  

スポンサードリンク

PageViewCounter
　
　Since2006/2/27