ＥＸＣＥＬで教えてください。

勤務表のようなものを作ってるのですが、日付の下に曜日を
表示しています。土・日の場合は休みというしるしで
その列（土・日の列）に色を塗りたいです。
あと、可能であればマクロなどを使って、日曜日は毎週、
土曜日は第２・４土曜にだけ色をつけるというのは可能でしょうか？
条件付書式でチャレンジしましたが、該当の列全部に色をつけるというのが
難しくてできませんでした。教えてください！

No.1 回答者： Haizy 回答日時： 2001/08/15 16:04

こんにちは。

曜日が
=CHOOSE(WEEKDAY(　日付　),"日","月","火","水","木","金","土")
で、出されているなら、

設定したいセルをアクティブにして（クリックして）
書式　－　条件付書式
「セルの値が」　「次の値に等しい」　"日"
として、［書式］ボタンから、フォントと、文字の色が指定できます。

●第二・四土曜日　というのは、
第二　８～１４日　しかありえない
第四　２２～２８　しかありえない
なので、これを利用すればよいのではないでしょうか。


でわでわ

この回答への補足

回答ありがとうございます。
私もそのセル自体は条件付書式で色をつけることができたのですが
日曜日ならその列（例えばA3:A18）に色をつけるということは
どうでしょうか？
教えてください！

補足日時：2001/08/15 16:08

No.2 回答者： himehime 回答日時： 2001/08/15 16:25

勤務表ってことは、月間表みたいなものですよね。

日付の右に、なら、
マクロ使わなくても、簡単にできるんだけどな～。

セル範囲を全部選択して、からですけど、
書式→条件付き書式で、
条件の値がのところを、
「数式が」を選んで、
=$B1="土"
で書式設定でできます。

""内は表示形式を選んで入れてください。
たとえば、土曜日と表示させてたら、土曜日っていれてくださいね。
日曜日も同様にできます。

日付の下に、のやり方はありそうだけどわかりません、すみません(ーー;)

この回答へのお礼

私もこの方法でやってみたんですが
セル範囲を選択してからというのを
自動的にできないのかと質問されて・・・。
むずかしいですよねー。
回答ありがとうございます！

お礼日時：2001/08/15 17:26

No.3 回答者： miya_777 回答日時： 2001/08/15 17:07

簡単なＶＢＡの例です。

Dim intCnt As Integer 'カウンタ
Dim intSatCnt As Integer '土曜カウンタ

intCnt = 1
intSatCnt = 1
Do
　If Cells(intCnt, 1).Value = "" Then
　Exit Do
　End If

　If Cells(intCnt, 2).Value = "土" Then
　　If intSatCnt = 2 Or intSatCnt = 4 Then
　　　Range(Cells(intCnt, 1), Cells(intCnt, 18)).Select
　　　Selection.Font.ColorIndex = 3
　　End If
　　intSatCnt = intSatCnt + 1
　End If
　If Cells(intCnt, 2).Value = "日" Then
　　Range(Cells(intCnt, 1), Cells(intCnt, 18)).Select
　　Selection.Font.ColorIndex = 3
　End If

　intCnt = intCnt + 1
Loop

この回答へのお礼

ありがとうございます。
まだまだ初心者なのでなんとなくしか内容が
つかめてませんが、頑張ってやってみますね。

お礼日時：2001/08/15 17:25

No.4 回答者： Haizy 回答日時： 2001/08/15 17:31

こんにちは、ふたたびです。

●補足に対する回答
Ａ３：Ａ１８に設定したい場合は、
まず、Ａ３～Ａ１８までを選択しておき、その状態で、条件付書式　をやってください。まとめてできます。条件付書式は、オートフィル（囲んだ範囲をドラッグしてコピーしていく機能）でも、コピーされていきますので、オートフィルを用いた方が簡単に行くと思います。

●第二・第四について
「数式が」　=AND($D3="土",DAY($C3)>=8,DAY($C3)<=14)

条件書式の条件です。
Ｃ列に日付、Ｄ列に曜日が入っている場合です。
これで、第２土曜日だけ色がつけられます。
理屈は＃１の通り。複数の条件を指定できると思いますので、第二の条件と第四の条件でつけてみてください。


★マクロは、個人使用で無い限りお勧めしません。
「マクロが含まれています～～ウィルス～～云々」
とメッセージが出てくるので、パソコン知らない上司に、理不尽なお叱りを受けました。
（おれぁ、悪くないぞ～～～（ＴｖＴ；ぐすん・・・）

でわでわ・・・。

この回答へのお礼

条件付書式の方がいいみたいですねー。
こういう使い方ができるのは知らなかったです。
ありがとうございました！

お礼日時：2001/08/16 11:20

No.5 ベストアンサー 回答者： noname#5115 回答日時： 2001/08/16 09:04

日付けを指定しているのを１行目にあるものとして、

（A1、B1、C1・・・・に日付けが入っているって意味です）
条件付書式の設定で
=weekday(A$1)=1　　・・・(1)
=weekday(A$1)=7　　・・・(2)
の２つをいれて別のセルにもコピーしてしまえばよいでしょう。
これなら列をまとめて色を変えることが可能です。
(色を変えたいセルに同様の式を入れて下さいね。それから第２・４土曜日は、逆にいえば第１・３土曜日に色をつけなければいいのですから、上記の(2)の条件を、１日から７日、１５日から２１日にはいれないでおけばいいですよね。
私も行と列は逆ですが、同じことで使ってます。
（○月度って入力すれば、曜日が自動的に変わり、色もそれにつれて変わってくれます。）

この回答へのお礼

ありがとうございます！
一生懸命マクロを使わないとダメなのかなーって
考え込んでたんですが、こんな方法でもできるんですねー。
大変助かりました！！
ありがとうございました！！

お礼日時：2001/08/16 11:17