[[20020519133741]]　『３つ以上の条件でセルに色を付けるには？』（ネコバス）　ページの最後に飛ぶ

『３つ以上の条件でセルに色を付けるには？』（ネコバス）

条件付書式では3つしか付けられないので、それ以上の条件を付けるにはどうしたらよいのでしょうか？VBAのFor～Nextやif～Thenを使っても、範囲指定か構文の作り方が悪いのか「色のつけモレ」が出ます。

 条件付書式は３つまでしか使えません。VBAで判定すれば３つってことはありません。

 VBAをここへ、見せてください。みんなで考えましょう。（kazu）

VBAこれです。よろしくご指導くださいませ(ネコバス）

Sub 色塗り()

    Dim i As Integer

    Dim s As Integer

    i = 5

    s = 1

    For i = 5 To 99

    For s = 1 To 99

        Select Case Cells(i, s).Value

            Case "12"

               Cells(i, s).Interior.ColorIndex = 3

            Case "13"

               Cells(i, s).Interior.ColorIndex = 8

            Case "14"

               Cells(i, s).Interior.ColorIndex = 4

            Case "15"

               Cells(i, s).Interior.ColorIndex = 39

            Case "16"

               Cells(i, s).Interior.ColorIndex = 46

            Case "11"

               Cells(i, s).Interior.ColorIndex = 38

        End Select

        s = s + 1

        i = i + 1

      Next s

      Next i

End Sub

     For i = 5 To 99

     For s = 1 To 99

         XXXXXXXXXXXXXXXXXXXX

         s = s + 1

         i = i + 1

     Next s

     Next i

 このコードではひとつおきにしか色がつきません。

 下の2行は入れてはいけません。For Next が勝手に足してくれます

         s = s + 1

         i = i + 1

 お試しあれ。

 （kazu）

コメント返信：