エクセル2003 週5のカレンダー

質問

週5のカレンダーを関数かマクロで作れないでしょうか？
質問で、同じ質問を探してみたんですが、見当たりません。
イメージとしては、
A1に西暦で「年」
B1に「月」
を入力すると、自動に日付を表示させたいのです。
因みに、A2、B2、C2、D2、E2、F2、G2は「曜日」を
固定で入力しておきます。

ほとんどのカレンダーは、
週6で作られていますが、
私が作りたいのは、週5です。

以下のイメージは、
実際のカレンダーとは違いますが、
例えると、30日と31日が6週目になる月は、
1週目の頭に持っていきたいんです。

※表示上「_（アンダバーを入れてあります）」

_____（A）__（B）__（C）__（D）__（E）__（F）__（G）
（1）_2010__3
（2）__日___月_____火____水____木____金___土
（3）__30___31_________________________________1
（4）___2____3_______4_____5______6_____7_____8
（5）___9___10______11___12_____13___14___15
（6）__16__17______18___19_____20___21___22
（7）__23__24______25___26_____27___28___29

他の質問を見て、試してみたんですが、
上手く行きませんでした。

さらに、土・日・祭日のセルの色を
自動に背景色が自動に黄色にできるといいのですが・・・。

アドバイスがありましたら、
よろしくお願い致します。

回答No.3

tom04

No．2です！
余計なお世話になると思いますが・・・
セルの書式設定の表示形式はユーザー定義から
　d　としておいてくださいね。

当然お気づきだと思いますが、何もしなかったらシリアル値が表示されます。

どうも何度も失礼しました。m(__)m

回答No.2

tom04

こんばんは！
かなり強引な方法になります。
6週ある月の場合は6週目を第1週に持ってくるというところがかなり難しくなりますので、
↓の画像で無理矢理作ってみました。

第1週目と第2週目以降の数式が変わってしまいます。
尚、祝日のデータはJ2～K23にあるものとします。（今年と来年分の祝日データです）

画像ではD1セルに
=DATE(A1,B1,1)　として、その月の一日を表示させておきます。

A4セルに
=IF(AND(COUNT($A$9:$B$9)>0,COUNT($A$9:$B$9)>=COLUMN(A1)),A$9,IF(MONTH($D$1-WEEKDAY($D$1)+COLUMN(A1))=$B$1,$D$1-WEEKDAY($D$1)+COLUMN(A1),""))
という数式を入れ、セルの条件付書式から
「数式が」→数式欄に
=AND(A4<>"",COUNTIF($J$2:$K$23,A4))　として、「黄色」を選択しています。
このA4セルを土曜日のG2セルまでコピーします。

そして、2週目のA5セルに
=IF(MONTH($D$1-WEEKDAY($D$1)+COLUMN(A1)+7*ROW(A1))=$B$1,$D$1-WEEKDAY($D$1)+COLUMN(A1)+7*ROW(A1),"")
とし、条件付書式で前述同様の数式を入れます。
このA5セルを列方向と行方向にオートフィルでコピーします。
今回は第6週目までコピーしておきます。
そして、第6週目のフォントの色を「白」にして、見た目では表示していないように見せます。

これで祝日の場合はセルの色が「黄色」になります。
最後に日曜日のA3～A8セルを選択して、フォントの色を「赤」
土曜日のG3～G8セルを選択してフォントの色と「青」にしています。

これで何とか希望に近い形にならないでしょうか？

以上、長々と書きましたが
参考にならなかったら読み流してくださいね。m(__)m

回答No.1

hige_082

○投げですか・・・・！
少しは自分で勉強しましょう！
＞さらに、土・日・祭日のセルの色を
＞自動に背景色が自動に黄色にできるといいのですが・・・。
祭日の処理はちょいと敷居が高いですが
検索すれば、沢山出てきますよ
土日は、条件付き書式で対応できるのでパス

問題は５週の変則的なカレンダだと思ったのですが
やってみると意外とあっさり出来たので
サンプルで提示しておきます

Sub test()
Dim x, y, i
Dim mDate As Date
mDate = DateSerial(Range("a1").Value, Range("b1").Value, 1)
Range("a3:g7").ClearContents
i = Weekday(mDate)
For x = 3 To 7
For y = 1 To 7
If x > 3 Or (x = 3 And i <= y) Then
Cells(x, y).Value = mDate
mDate = mDate + 1
End If
If Range("b1").Value <> Month(mDate) Then Exit Sub
Next y
Next x
If Range("b1").Value = Month(mDate) Then
For y = 1 To 7
Cells(3, y).Value = mDate
mDate = mDate + 1
If Range("b1").Value <> Month(mDate) Then Exit Sub
Next y
End If
End Sub

参考まで