Excel介護ディサービス・月間予定利用表このExcelファイル無料で差し上げます。
★2024/8/7動画配信中
★VBAは、2024/8/16配信予定
▼3種類のsheetと、同sheetからVBAコードで 2種類のマクロを組んでいます。
1.worksheet関数
・sheet(1) = 日時を指定してweekday関数
・sheet(3) = 曜日指定(動画配信)は、これです。
2.VBA .sheet(5) weekday(日時指定)~select case/ If
・日時から戻り値で条件にしています。
3.VBA.sheet(5) format関数~B列の指定日から~4行目の曜日を返す。
・B列の指定日から~4行目の曜日が一致したら…
◆今回は、"月水土・水土"・毎回" の、利用パターンを用意しました。
●指定日がリストになっていますので、変更するだけで~自動処理します。
●A1=カレンダー自動年月日ですので、リストから変更するだけで1年間の 月を自動表示し、日付・日時も自動変更します。
●countA - countBlank関数で答えを返しています。
◆sheet(5).weekday/VBAコード
●weekday / Or関数の戻り値から、曜日を条件に返しています。
◆月水土・水土の場合👇
●weekday(c3,Vbmonday)の (monday)は、1から(月)にしています。
何もいれないと、(VbSunday)の、(日曜)が1からになります。
途中で候補が出るので、安心です。
◆毎回の場合👇
・weekday(c3,Vbmonday) <7
つまり、7未満ですから1~6が(月ー土)の利用。
◆sheet(5).VBA/format
こちらの方が簡単かもしれません。
◆月水土・水土の場合👇
select caseから2行目の曜日指定のB列
case 指定日から-ifを入れて、条件に「format関数で/ORを入れて」指定日を入れます。
◆毎回の場合👇
weekday関数に <>7 を指定して、7未満
つまり、1~6(月~土)に値を返します。
▼このファイルについて
1.このファイルは「マクロ有効ブックxlsm」で保存してあります。
2.ダウンロード後は ↓
右クリック~プロパティ、
全般~右下のセキュリティ、許可するにチエックからOKボタン。
▼ダウンロード前に必ず読んでください。
ご利用についての注意事項
本ファイルは自由にご利用いただけますが、著作権等の一切の権利は、弊社に帰属します。
本ファイルの使用・使用不能に伴ういかなる問題【損害・訴訟原因】について、当社はその責任を一切負いません。ご提供の内容における正確性・信頼性についてはお客様ご自身の責任においてご利用ください。
本ファイルに関するお問合せについてはお答えできませんので、あらかじめご了承ください。
本ファイルは編集してアップロード行為は禁止します。
👇
💙ここからダウンロード
この記事が気に入ったらサポートをしてみませんか?