[[20100912175958]]　『今日のセルに色をつける』（ＳＵＮ）　ページの最後に飛ぶ

『今日のセルに色をつける』（ＳＵＮ）

 月別シートでE2:AC2には１日～２５日までの日付がdate関数を使用して入れてあります。
 AE2:AJ2には２６日～３１までの日付が同様に入れてあります。
 （AD2のセルは印刷の際の中央になるため空白になっています）

 入力の領域は日付に対応してE8:AC57,AE8:AJ57となっています。
 この領域に「今日」に該当する時はセルを黄色で表示したいと思い，
 条件付き書式で 例えばＥ列ならば
　=E$2=TODAY()　の時　黄色　として設定をしました。

 ところが，すでに曜日の設定など条件書式を２つ使っており，
 さらに２９日から３１日のセルには大の月・小の月・閏年の区別のため
 条件付き書式が３つめの条件として設定していました。
 したがって，１日～２８日まではできたのですが，
 ２９日以降は条件付き書式では設定できないことがわかりました。

[[20050115131721]]　『条件式書式を６つやりたいんですが・・・』（sirouto）

 など過去ログを参考に調べてみましたが，うまくできませんでした。
 アドバイスをいただければ，幸いです。
 使用するのはエクセル2003です。

 よろしくお願いします。

（ＳＵＮ）

 こんにちは
 どのへんが、うまくできなかったのですか？
 リンク先の方法でしたら、現在の条件付き書式は全て削除してあるという事ですよね？
 （ウッシ）

 こんにちは！

＞リンク先の方法でしたら、現在の条件付き書式は全て削除してあるという事ですよね？

 ２８日～３１日の範囲は条件付書式が３つめまで入っていますので，
 １～２７日の範囲に設定していた「今日」に該当する入力範囲に設定していた
 条件付書式(3)は削除しています。

 シートモジュールに設定を行うことで今日に該当する範囲に色をつけられないかと
 思っているわけで，昨日から過去ログを検索してみましたが，なかなか該当の
 ものが見つかりません。
 ずらっと入力のエリアが並んでいると，間違えて入力することもありますので
 ニーズはありそうなんですけど・・・・？

 （ＳＵＮ）

 こんにちは
 対象のセルが同じ場合、シートモジュールに設定を行う場合は現在の条件付書式を全てマクロに置き換える必要があります。

 １～２７日の範囲の２つの条件、２８日～３１日の範囲の３つの条件の詳細が分かればマクロで処理出来ます。
 （ウッシ）

 > さらに２９日から３１日のセルには大の月・小の月・閏年の区別のため
 > 条件付き書式が３つめの条件として設定していました。

 ↑ は小の月の場合、次月の日付を条件付き書式で見えなくしているのでしょうか？
 それを条件付き書式ではなく、数式で処理すればいいのでは？

 （R）

 こんにちは！

 ＞シートモジュールに設定を行う場合は現在の条件付書式を全てマクロに置き換える必要があります。

 なるほど，あるところは条件付書式で，別の所はシートモジュールで・・・
 という訳にはいかないのですね。φ(..)メモメモ

 ＞小の月の場合、次月の日付を条件付き書式で見えなくしているのでしょうか？
 ＞それを条件付き書式ではなく、数式で処理すればいいのでは？

 ペーパで処理していた時代の約束事があり，土曜・日曜・祝日は赤の網掛け
 小の月の３１日や２月の２９日・３０日などは青の網掛けをすることになっています。
 （入力エリアの５０行分が対象）
 したがって，表は次のようになっています。

   A  B  C  D  E  F  G  H  I  J  K  L  M  N  
 1
 2
 3
 4             1  2  3  4  5  6  7  8  9  → 日付のデータ（印刷されない） 
 5             一 二 三 四 五 六 七 八 九 → 印刷される日
 6                　　　　　　　　　　　　→ 勤務変更を入力 
 7　　　　　　 水 木 金 土 日 月 火 水 木 → 曜日　
 8 　　　　　　これより下がデータ入力エリア（E8:AC50とAE8:AJ50）

 条件付書式ですがE8:E57のエリアを例にとりますと
 　条件１　=E$6="出"　　　　→セルを白に戻す
 　条件２　=OR(E$7="土",E$7="日",SUM(E$2)<0,E$6="代",E$6="休")→セルを赤の網掛けにする
 としています。
 条件２により土・日は赤の網掛けに，またE2は別シートに設定したカレンダー情報で祝日は赤で
 表示するため，さらに平日が振替休日になったり臨時休業になったりしたときはE$6に「代」「休」
 入力して赤を表示させます。

 ２８日～３１にちについては２９日を例にとると
　条件１　=AH$6="出"　　　　→セルを白に戻す
　条件２　=$AJ$3<29　　　　 →セルを青の網掛けに　AJ3のセルの数字で網掛けの判断をします
　条件３　=OR(AH$7="土",AH$7="日",SUM(AH$2)<0,AH$6="代",AH$6="休")　先ほどの条件２と同じです。

 こうして挙げてみると，いろいろ面倒な処理になりそうですが，可能でしょうか。

 （ＳＵＮ）

 こんにちは

 条件がイマイチ理解出来ていないんですけど、
 Private Sub Worksheet_Activate()
    Dim v As Variant
    v = Application.Match(CDbl(Date), Range("E4:AJ4"), 0)
    If Not IsError(v) Then
        With Range("E4:AJ4").Cells(1, v).EntireColumn.Range("A8:A50").Interior
            .Pattern = xlGray8
            .PatternColorIndex = 6
        End With
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim v As Variant
    Dim r As Range

    If Intersect(Target, Range("E2:AC2,AE2:AJ2,E4:AC4,AE4:AJ4,E6:AC6,AE6:AJ6,AJ3")) _
        Is Nothing Then Exit Sub
    With Range("E8:AC50,AE8:AJ50").Interior
        .Color = xlNone
        .Pattern = xlNone
    End With
    For Each r In Range("E7:AC7, AE7:AJ7")
        With r
            Select Case True
                Case r.Value = "土", r.Value = "日", r.Offset(-5).Value < 0
                    With .EntireColumn.Range("A8:A50").Interior
                        .Pattern = xlGray8
                        .PatternColorIndex = 3
                    End With
            End Select
        End With
    Next
    If Range("AJ3") < 29 Then
        With Range("AE8:AJ50").Interior
            .Pattern = xlGray8
            .PatternColorIndex = 5
        End With
    End If
    For Each r In Range("E6:AC6, AE6:AJ6")
        With r
            Select Case .Value
                Case "出"
                    With .EntireColumn.Range("A8:A50").Interior
                        .Color = xlNone
                        .Pattern = xlNone
                    End With
                Case "代", "休"
                    With .EntireColumn.Range("A8:A50").Interior
                        .Pattern = xlGray8
                        .PatternColorIndex = 3
                    End With
            End Select
        End With
    Next
    v = Application.Match(CDbl(Date), Range("E4:AJ4"), 0)
    If Not IsError(v) Then
        With Range("E4:AJ4").Cells(1, v).EntireColumn.Range("A8:A50").Interior
            .Pattern = xlGray8
            .PatternColorIndex = 6
        End With
    End If
End Sub

 網掛けするセルと判定するセルが別なので、日付のセル範囲と、条件判定セル範囲の値が変更されたら
 網掛けするセル全体を評価しなおしてるので、冗長な処理になってしまいます。
 テストブックで試してみて下さい。

 何となくですが、条件1の"セルを白に戻す"ってのを、条件2と条件3に組み込んでやれば、
 条件付書式だけで出来そうな気がします。

 （川野鮎太郎）

 こんにちは！ＳＵＮです。

 シートモジュールでやろうとするとすごいことになってしまうのですね。ビックリです。
 さっそく試してみました。

 私の説明がまちがっていた点がありました。
 データを集約するエリアとして，条件書式
 AK8:BS50の範囲にも別の条件書式が設定してありました。

 そのため，テストをしてみましたら，土曜・日曜・祝日が網掛けになったのと同様
 AK8:BS50の範囲にも網掛けが入ってしまいました。
 現在の分だけでもこれだけのマクロになっていますので，
 AK8:BS50の範囲の条件を挙げてとなれば・・・・。

 おそらく（ウッシ）さんが考えてくださったのだと思いますが，
 （川野鮎太郎）さんのおっしゃるように条件を見直すことで
 対応しようかと思います。
 最悪，小の月，２月については条件付書式を外し，手作業で
 網掛けを入れてもらおうかと思います。

 このたびは貴重な時間を使ってアドバイスをいただき，本当にありがとうございました。
 とても勉強になりました。
 もう少し，頭の体操をしてみたいと思います。

 （ＳＵＮ）

コメント返信：

[ 一覧(最新更新順) ]

[[20100912175958]] 『今日のセルに色をつける』（ＳＵＮ） ページの最後に飛ぶ

[[20100912175958]]　『今日のセルに色をつける』（ＳＵＮ）　ページの最後に飛ぶ