| |
みなさま、こんばんは。
久しぶりにご質問させていただきます。
勤怠カレンダーを作っていて躓いたので、お知恵を拝借させてください。
セルA18〜A48が日（1〜31）、B18〜B48に曜日が入るようになっています。
C18〜C48に、その日が土･日･祝に当たっていれば"休み"と表示されるようにしようと思っています。
曜日はB18にInputboxで1日の曜日を入れ、オートフィルでコピーすることで解決しました。その後、B列を参照して土･日に当たるところには"休み"と入るようにし、
祝祭日は変数tukiに何月かを取得して、Select Caseで対応しようとしています。
土･日の"休み"表示まではよかったのですが、3点躓いてしまいました。
まず、月の取得ですが、tuki=Month(Now)かと思ったのですが、これでは取得できませんでした（思いっきり初歩的ですみません）。
次に、第二月曜日の国民の祝日の取得の仕方、最期に春・秋分の日の取得の仕方です。
春・秋分の日は暦によるので、そのときに手入力しないと仕方ないのかも知れませんが、もしVBAによる取得の方法があるなら、ご教授いただきたく投稿しました。
ご存知の方いらっしゃいましたら、よろしくお願い致します。
|
|
みぃこ
- 05/1/15(土) 20:07 -
