excel2003 weekday関数について

Question

excel2003で条件付書式に下記条件を設定してあります。

土曜日と日曜日に背景色を黄色にする設定です。

同じ設定で３月までは期待どうりの結果が出ますが、４月以降は金曜日と土曜日のセルに色が付いてしまいます。

サポートが終了したのは知っていますが、これもその影響でしょうか？

    With Range(Cells(C5, AG44)

        .FormatConditions.Delete

        .FormatConditions.Add Type:=xlExpression, Formula1:= _

            "=OR(WEEKDAY(C$6)=7,WEEKDAY(C$6)=1)"

        .FormatConditions(1).Interior.ColorIndex = 36

    End With

試しに空いているセルにweekday関数を指定すると土曜日は7で日曜日は1が返されていますが、条件付書式では同じ条件を指定しても金曜日と土曜日に色が付きます。

補足：５行目に日付、６行目に曜日を設定し、５行目から４４行目まで曜日により色を変えることをやってます。

昨日以前に実行した場合は問題なかったのですが、今日実行してみるとおかしくなっていました。

ちなみにおかしくなっているシートの条件付書式を一旦削除して同じ条件を追加しても配色はおかしいままです。

Answer 1

どうも、これみたいですね。

http://support.microsoft.com/kb/895562/ja

で、今回の場合、絶対参照に変えるのも面倒なわけで、選択されたところに設定すれば良いかってことになります。

普通はこんなSelect不要なわけですが、

Sub aaa()

With ActiveSheet

  With .Range("C5:AG44")

    .Select

    .FormatConditions.Delete

    .FormatConditions.Add Type:=xlExpression, Formula1:= _

        "=OR(WEEKDAY(C$6)=7,WEEKDAY(C$6)=1)"

    .FormatConditions(1).Interior.ColorIndex = 36

  End With

  .Range("A1").Activate

End With

End Sub

としてみたら、ちょっと試した範囲では症状は出ません。

（本当に解消したのかどうかは保証の限りではありません）

ただ、この方法の場合、今はActiveSheetが相手ですから問題ないわけですが、いろいろなシートを相手にしているコードの場合、設定するシートを事前にActiveにしておく必要が出てきます。

（ActivesheetでないとSelectはこけます）

参考まで。

Answer 2

意図は了解しました。

>１回実行したあと続けて何回か実行すると色の付くセルがおかしくなります

少なくとも条件付き書式が設定されて、保存されたブックを開いて最初に実行した時おかしくなる現象は確認しました。

ただ、表示がおかしくなる原因は、条件付き書式の式が壊れているためで、Weekday関数とは関係なさそうです。

（例えばC6がIR６に連れているなど。おかしくなったところで、C列の条件付き書式の式を確認すればわかります）

私の環境では、そうなってから再度実行すると正常化します。

なんでこんなことになるのかは理解不能です。

後程、あちこち漁ってみますが、何か出てくるかな？

Answer 3

記述されたものをコピペしましたが、１回実行したあと続けて何回か実行すると色の付くセルがおかしくなります。

やっていることは現在のシート（？月）をコピーして翌月のシートを作成し、土日の色を変える。

日数が３１日に満たない月は条件式を削除しているので、どうしても再定義が必要なので･･･。

シート上のＢ３セルに日付（西暦）を入れてあり、６行目には＄Ｂ＄３、＄Ｂ＄３＋１･･･と定義しています。

Answer 4

もし、C列からAG列で、6行目に日付があり、そこで5行から44行の各列の制御をするっていうのでしたら、

Sub aaa()

With ActiveSheet

  With .Range("C5:AG44")

    .FormatConditions.Delete

    .FormatConditions.Add Type:=xlExpression, Formula1:= _

        "=OR(WEEKDAY(C$6)=7,WEEKDAY(C$6)=1)"

    .FormatConditions(1).Interior.ColorIndex = 36

  End With

End With

End Sub

でちゃんと設定できるようですが？（2003で検証）

少なくとも2014．４～５ではちゃんと色が付きます。

なお、修飾なしでRangeとかCellsを使うのは間違えの元です。

同じことなんですが、一応ActiveSheetを前提にフル修飾した形に書き直しました。

あと、6行目に何を入れておられますか？

Answer 5

サポート切れの影響はないです。

>With Range(Cells(C5, AG44)

>"=OR(WEEKDAY(C$6)=7,WEEKDAY(C$6)=1)"

のあたりの記述がなんか変ですので、意図をもう少しはっきりしてください。

（例えば、C6に日付が入り、C5の色を変えるとかと言う意味です。また適用範囲はC5:AG44という事で良いのか？）

条件付き書式をわざわざVBAで設定したことはほとんどありませんが、あまりややこしい問題に遭遇したこ記憶はないですし、WeekDay関数も問題があると言う覚えもありません。