[[20061108224207]]　『条件付書式について』（ゆい）　ページの最後に飛ぶ

『条件付書式について』（ゆい）

条件を3つ以上に増やすことはできますか？

 Excel2007の発売までお待ちください。現行バージョンではできません。
 (ちゅうねん)

 どのような条件で、どのように書式を変更したいのでしょうか？
 内容によっては、セルの書式設定 ＋ 条件付書式 を使用することで解決できる事例もございます。
 また、マクロを使用することで色々な条件分岐をさせることも出来ます。
　
 例えば、、、
[[20060628111747]]『条件付書式について』（やなせ）
　
 （キリキ）（〃⌒o⌒)b

ご回答ありがとうございます。

例えばa～e列の1～100行までに１～６までの数字が入力されており

セルに色分けをしたいのです。

１～２が赤

２～３が青

３～４が黄色

４～５が水色

５～６がピンク

このようなことはできますか？

 マクロならできますが、

 > １～２が赤

 > ２～３が青

 ２のときは何色？

 （Ｐ）

 2のときの色が不明なままですが、2になると次の段階と判断。
 シートタブを右クリック、「コードの表示」で出てくるところに
 次のコードを貼り付け。

 Sub test()
    Dim R As Integer
    Dim C As Integer

    For R = 1 To 100    '1行目から100行目まで
        For C = 1 To 5  '1列目（A列）から 5列目（E列）まで
            With Cells(R, C)
                If .Value < 1 Then
                    .Interior.ColorIndex = xlNone
                ElseIf .Value < 2 Then
                    .Interior.Color = vbRed
                ElseIf .Value < 3 Then
                    .Interior.Color = vbBlue
                ElseIf .Value < 4 Then
                    .Interior.Color = vbYellow
                ElseIf .Value < 5 Then
                    .Interior.Color = vbCyan
                ElseIf .Value <= 6 Then
                    .Interior.Color = vbMagenta
                Else
                    .Interior.ColorIndex = xlNone
                End If
            End With
        Next C
    Next R
 End Sub

 シートに戻って、ツール＞マクロ＞マクロ で Sheet1.test を実行。
 （Ｐ）

コメント返信：

[ 一覧(最新更新順) ]

[[20061108224207]] 『条件付書式について』（ゆい） ページの最後に飛ぶ

[[20061108224207]]　『条件付書式について』（ゆい）　ページの最後に飛ぶ