[[20091121165102]]　『条件付き書式３つ以上』（ちいこ）　ページの最後に飛ぶ

『条件付き書式３つ以上』（ちいこ）

 いつもお世話になっています。
 今回も知恵をお借りできたらと思います！
 表題の通り、条件付き書式を３つ以上設定したいのです。
 過去記事検索をしてみましたが、答えを導き出せず･･･すいません。

 Excel2003です。

 下記のような表があります。

    １月 ２月 ３月 ４月 ５月 ６月 条件
   +----+----+----+----+----+----+----+
 1 |1100|2000|3100|1500|1800|2200|　　|
   +----+----+----+----+----+----+----+
 2 |0.54|0.63|0.43|0.38|0.55|0.62|0.50|
   +----+----+----+----+----+----+----+
 3 |  12|  10|  21|  15|  17|  13|　　|
   +----+----+----+----+----+----+----+
 4 | 480| 500| 550| 750| 500| 600| 580|
   +----+----+----+----+----+----+----+
 5 |井上|山田|山田|佐藤|佐藤|佐藤|　　|
   +----+----+----+----+----+----+----+

 条件欄に数字が入っている項目については（この場合、2と4）
 各月の数字が条件欄の数字を下回った場合
 背景色を赤、文字色を白。

 5に入っている人の名前を見て、
 人が切り替わった時に、表全体に罫線を入れる。

 ↓罫線結果。

    １月 ２月 ３月 ４月 ５月 ６月 条件
   +----+----+----+----+----+----+----+
 1 |1100|2000 3100|1500 1800 2200|　　|
   +    +         +              +----+
 2 |0.54|0.63 0.43|0.38 0.55 0.62|0.50|
   +    +         +              +----+
 3 |  12|  10   21|  15   17   13|　　|
   +    +         +              +----+
 4 | 480| 500  550| 750  500  600| 580|
   +    +         +              +----+
 5 |井上|山田 山田|佐藤 佐藤 佐藤|　　|
   +----+----+----+----+----+----+----+

 このようになって欲しいのですが、
 どのようにVBAを作成すればいいでしょうか？

 よろしくお願いします。

 条件付き書式は 
 >条件欄に数字が入っている項目については（この場合、2と4）
 >各月の数字が条件欄の数字を下回った場合
 >背景色を赤、文字色を白。
 と
 >5に入っている人の名前を見て、
 >人が切り替わった時に、表全体に罫線を入れる。
 の2つなので、普通に条件付書式で出来ます。
 例えば条件1の数式を
 =AND($H2<>"",B2<$H2)
 条件2の数式を　
 =B$6<>C$6
 (sasa)

 条件付き書式では出来ませんので。。。。
 マクロです。

 但し、自動では実行されませんので
 入力が終わったら手動で実行してください。

 '------
Sub chiiko()
Dim i As Long, ii As Long
Dim mr As Long, mc As Long
Dim tbl As Variant
mr = Cells(Rows.Count, 1).End(xlUp).Row
mc = Cells(1, Columns.Count).End(xlToLeft).Column
    With Range("A1").Resize(mr, mc)
        tbl = .Cells.Value
        .Interior.ColorIndex = xlNone
        .Font.ColorIndex = xlAutomatic
         .Borders.LineStyle = True
        .Resize(mr - 1, mc - 1).Offset(1) _
            .Borders(xlInsideHorizontal).LineStyle = xlNone
        For i = 2 To mr - 1
            If tbl(i, mc) <> "" Then
                For ii = 1 To mc - 1
                    If tbl(i, ii) < tbl(i, mc) Then
                        Cells(i, ii).Interior.ColorIndex = 3
                        Cells(i, ii).Font.ColorIndex = 2
                    End If
                Next
            End If
        Next
        For i = 1 To mc - 2
            If tbl(mr, i) = tbl(mr, i + 1) Then
                .Resize(mc, 2).Offset(0, i - 1) _
                        .Borders(xlInsideVertical).LineStyle = xlNone
            End If
        Next
    End With
End Sub
 '------

 (HANA)

 お返事が大変遅くなり、申し訳ありません！
 sasaさん、HANAさんありがとうございます！！

 sasaさん、ありがとうございます！
 でもすいません、私の説明不足でした。
 実は、罫線は太線が引きたくて、
 現在はあらかじめ太線を引いておき、条件付き書式で細線を入れているのです。
 それだけですでに条件３つを使っており、さらに色付けの条件を入れたかったのでした･･･

 HANAさん、ありがとうございます！！
 このマクロを分解し、どこで何をしているのかなんとか理解できました。
 自分の表に当てはめられるように変更して
 希望通りの罫線と色づけをすることができました！
 おかげで少しVBAの知識も深まりました。
 どうもありがとうございました！！

 (ちいこ)

 >実は、罫線は太線が引きたくて、
 > 現在はあらかじめ太線を引いておき、条件付き書式で細線を入れているのです。
 > それだけですでに条件３つを使っており、さらに色付けの条件を入れたかったのでした･･･
 分かっています。
 但し先にレスしたように条件は2つのみで出来ます。
 (背景色を赤、文字色を白にで1つ。罫線の処理で1つ)
 なにを持って条件3つといっているのですか？
 ま、理解できないのなら好きにして下さい。
 (sasa)

 【罫線がセルの片方にだけひかれているときに】
 条件付き書式だけで可能ですね。

 この
【罫線がセルの片方にだけひかれているときに】
 と言う条件は、重要な点だと思いますが。。。

 罫線がセルの両側に引かれている時は
 　１．左右の名前が等しい　→　左右の罫線を変更
 　２．左　の名前が等しい　→　左　の罫線を変更
 　３．　右の名前が等しい　→　　右の罫線を変更
 の三つのパターンが、どうしても必要に成ると思いますので。

 例えば、範囲のセルに細線を引く（あるは罫線を削除）しておいて
 １．１月の範囲を選択して　セルの書式設定から
 　　右側に太線を引く
 ２．この範囲をコピーして６月までの範囲に貼り付ける
 ３．表全体を太線で囲う

 これで、縦罫線が太線の表が出来ますが
 太線はセルの右側にしか引かれていないので
 右側の名前だけを確認して、罫線の設定を
 変更すれば良いことになります。

 表の範囲を選択して於いて
 条件付き書式の設定で
 　条件1 値未満,右側の名前と等しい　→　セル色赤,文字色白 , 右側の罫線を細線に
 　条件2 値未満　　　　　　　　　　 →　セル色赤,文字色白
 　条件3        右側の名前と等しい　→　　　　　　　　　　　右側の罫線を細線に

 表がA列から始まっていて、A列の左側を太線にしていた場合
 うっかりそのセルをコピーして貼り付けをして仕舞うと
 希望する結果は得られなくなってしまいますが
 　・うっかりしない
 とか
 　・表の左側に一列以上設ける
 等で対応出来るかもしれません。

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20091121165102]] 『条件付き書式３つ以上』（ちいこ） ページの最後に飛ぶ

[[20091121165102]]　『条件付き書式３つ以上』（ちいこ）　ページの最後に飛ぶ