見出し画像

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ボタン。

▼ダウンロード前に必ず読んでください。

ご利用についての注意事項

  • 本ファイルは自由にご利用いただけますが、著作権等の一切の権利は、弊社に帰属します。

  • 本ファイルの使用・使用不能に伴ういかなる問題【損害・訴訟原因】について、当社はその責任を一切負いません。ご提供の内容における正確性・信頼性についてはお客様ご自身の責任においてご利用ください。

  • 本ファイルに関するお問合せについてはお答えできませんので、あらかじめご了承ください。

  • 本ファイルは編集してアップロード行為は禁止します。

👇
💙ここからダウンロード


この記事が気に入ったらサポートをしてみませんか?