Infoment https://blog.hatena.ne.jp/Infoment/ Infomentのブログ ～Excel VBA奮闘記～ https://infoment.hatenablog.com/ Excel VBA ユーザー定義関数 作ってみた 昨日は、指定月の最終金曜日を求める関数を紹介しました。infoment.hatenablog.comこの時の勉強会で、最後にこんな質問が出ました。「毎月20日になったら、MsgBox でメッセージを出したい」詳細は、次の通りです。 アドインに組み込むことで、特定の日付にメッセージを出すところまで実装済み。 20日が土日だと、気付かずに20日を通り過ぎてしまうため、これを何とかしたい。 そこで、翌月１日から逆算して最終金曜日を求めた方法を応用して、２０日の翌営業日を求めてみました。 Function GetNextWorkday(target_date As Date) As Date Dim … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2018%2F07%2F31%2F001624" title="指定日から直近の翌営業日を求める - Infomentのブログ ～Excel VBA奮闘記～" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20180731/20180731001102.png Hatena Blog https://hatena.blog 2018-07-31 00:16:24 rich https://infoment.hatenablog.com/entry/2018/07/31/001624 1.0 100%