[[20071122155712]]　『条件によって色を変えたい』（ゆか）　ページの最後に飛ぶ

『条件によって色を変えたい』（ゆか）

 エクセルシートのＣ列に月～日曜の７つの文字があり、
 別の列（例えばＤ列）には、月曜日は赤、火曜日は青・・・、日曜日は緑、
 のように、７通りの条件を指定して、セルを塗りつぶしたいのですが、
 何かいい方法はありませんか？
 条件付書式の場合は、条件が３つまでしかないため、他の４色が選べません。

 同じような質問が・・・
[[20050308152110]]『条件付書式の条件は３つが限度？』（よよ） 
 （素）

すみません、続きがあり、
例えばＤ列には月曜日は赤、火曜日は青・・・、日曜日は緑、なのですが、
Ｅ列には月曜日は青、火曜日は赤・・・、日曜日は紫
Ｆ列には月曜日は赤、火曜日は緑・・・、日曜日は青
・・・
のように他の列によって、違うんです。

 上の内容でCase3，Case4，・・・
 の様にすれば対応できるんでは？
 （素）

ありがとうございました。
やってみます。

すみません、トライしてはいるんですが、
自分が考えたいシートに戻るとプログラムが
組めません。
教えては頂けないでしょうか？

 何列まであるのか不明なのでアクティブセルが対象になっています。

 Sub 色分け()
    Dim i As Long
    Dim cor As Range
    MsgBox Selection.Column
    Select Case Selection.Column
        Case 4 'D列
        For i = 1 To 7
            Set cor = Cells(i, Selection.Column)
            Select Case Left$(cor, 1)
            Case "月"
                cor.Font.ColorIndex = 3 '赤
            Case "火"
                cor.Font.ColorIndex = 5 '青
            Case "水"
                '・
                '・
                '・
            Case "日"
                cor.Font.ColorIndex = 10 '緑
            End Select
        Next
    Case 5 'E列
        For i = 1 To 7
            Set cor = Cells(i, Selection.Column)
            Select Case Left$(cor, 1)
            Case "月"
                cor.Font.ColorIndex = 5
            Case "火"
                cor.Font.ColorIndex = 3
            Case "水"
                '・
                '・
                '・
            Case "日"
                cor.Font.ColorIndex = 13 '紫
            End Select
        Next
    Case 6 'F列
        '上記と同じように
    Case 7 'G列
        '
    End Select
    Set cor = Nothing
 End Sub

 あとの入力は同じことの繰り返しです。そのへんは提示のリンク先を参考にご自身で編集してください。

 (1or8)

コメント返信：

[ 一覧(最新更新順) ]

[[20071122155712]] 『条件によって色を変えたい』（ゆか） ページの最後に飛ぶ

[[20071122155712]]　『条件によって色を変えたい』（ゆか）　ページの最後に飛ぶ