ＶＢＡにて土日祝日をパスというのはどう記載すればいいのでしょうか？

質問

ＶＢＡにて土日祝日をパスというのはどう記載すればいいのでしょうか？
Sub 当番表()
Sheets("設定").Select
max_name_y = 5
Do While Sheets("設定").Cells(max_name_y, 4).Value <> ""
max_name_y = max_name_y + 1
Loop
'----- 今月分の当番表を作成 -----
this_year = Range("B5").Value
this_month = Range("C5").Value
start_name_y = 5
Do While Cells(start_name_y, 5).Value = ""
start_name_y = start_name_y + 1
Loop
temp = start_name_y
next_month_start_y = Create_one_month("当番表", CStr(this_year), CStr(this_month), start_name_y)
start_name_y = temp
this_month_last_day = 1
this_month_last_week = 8
Do While Cells(this_month_last_week, 1) <> ""
this_month_last_week = this_month_last_week + 3
Loop
Do While Cells(this_month_last_week - 3, this_month_last_day) <> "" this_month_last_day = this_month_last_day + 1
If this_month_last_day = 8 Then Exit Do
Loop
'----- 先月分の当番表を作成(最下行のみ当番が正しい表) -----
'当番表作成月の開始日のX座標-1を調べる
startDayX = 0
Do While Cells(5, startDayX + 1).Value = ""
startDayX = startDayX + 1
Loop
If startDayX = 0 Then GoTo make_last_month_sheet_end '月曜日から始まっているため先月分の情報を入れる必要が無い場合

'先月分のカレンダー作成(当番は適当)
Sheets("設定").Select
If Range("c5").Value = 1 Then
last_year = Range("B5").Value - 1
last_month = 12
Else
last_year = Range("B5").Value
last_month = Range("c5").Value - 1
End If
Call Create_one_month("先月", CStr(last_year), CStr(last_month), 4)

last_month_last_week = 8
Do While Cells(last_month_last_week, 1) <> ""
last_month_last_week = last_month_last_week + 3
Loop
'先月分のカレンダーの最下段のみ正しい当番に変更
name_y_temp = start_name_y
Do While startDayX > 0
If Cells(last_month_last_week - 2, startDayX).Value <> "" Then '祝日はパス
こんな感じのeditorですが、何処に入れればいいのでしょう？
何度かしましたが、エラーになります。

回答No.2

1050 円（@1050YEN） · ベストアンサー

GoogleカレンダーのAPIを利用してもいいのであれば、祝日の取得は可能です。
「インターネット環境が必須」
という縛りは付きますが、、、

たしかXML形式で取得ができるはずです。
.netでの取得サンプルが、どこかにあったと思ったですが、記憶が薄い。。。

その条件の縛りがある中でもよいのであれば、サンプル探してVBA用に書き直しますが、どうしましょ？

補足

回答有難う御座います。おっしゃる事がいまいち分かりませんが、ネット環境は必須でも構いませんが上記マクロにどう書き込めばいいのでしょうか？実際何がしたいかと言うと、掃除当番表をマクロで作りたく、試みましたがつまずきました。月から金まで数名（５～７名）で順番に不公平無く回したいです。別の簡単な物があれば宜しくお願いします。

回答No.3

1050 円（@1050YEN）

http://www.tech-do.com/blog/archives/category/officevba
.net用ではない、VBAでも動く祝日取得のサンプルがありました。

>こんな感じのeditorですが、何処に入れればいいのでしょう？
>何度かしましたが、エラーになります。

まずエラーが出るなら、どこで出るかを示してください。
公開されているコードだけでは走りません。

Create_one_monthが何を行っているかも不明です。

各セルの番地が何を意味するかの説明も入れてください。

祝日処理を入れるためには、月～金がどこに記されているかが必要です。
その月～金の記されている位置も、コードから読み取れません。

作成するのは、一月分の当番表ってことですよね？

いろいろと不明点が多いので、現段階でこれ以上の答えようが無いです。

回答No.1

ToOrisugaru

祝日は、無理でないですか？　祝日って変動しますよね！
なので、別途祝日テーブルなるものを設けて（フォームから
この日は祝日とする　みたいな！）そのテーブルをもとに
判断するしかないと思います。

補足

回答有難う御座います。〈祝日は、無理でないですか？〉ですが、説明不足かもしれませんが、日・祝日はパス（空白）には上記マクロで出来ています。マクロは長くて完全には表示していませんが・・・掃除当番表たるものをマクロで作ろうと試みましたがつまずいています。
基本は月～金にて数名が順番に回せる物を考えています。何か他に簡単な物があれば教えて下さい。宜しくお願いします。