Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10543 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【21225】祝祭日の取得 みぃこ 05/1/15(土) 20:07

【21226】Re:祝祭日の取得 かみちゃん 05/1/15(土) 20:57

【21227】Re:祝祭日の取得 みぃこ 05/1/15(土) 21:30


	【21225】祝祭日の取得

みぃこ

- 05/1/15(土) 20:07 -


	引用なし

	パスワード

みなさま、こんばんは。

久しぶりにご質問させていただきます。
勤怠カレンダーを作っていて躓いたので、お知恵を拝借させてください。

セルA18～A48が日（1～31）、B18～B48に曜日が入るようになっています。
C18～C48に、その日が土･日･祝に当たっていれば"休み"と表示されるようにしようと思っています。

曜日はB18にInputboxで1日の曜日を入れ、オートフィルでコピーすることで解決しました。その後、B列を参照して土･日に当たるところには"休み"と入るようにし、
祝祭日は変数tukiに何月かを取得して、Select Caseで対応しようとしています。

土･日の"休み"表示まではよかったのですが、3点躓いてしまいました。
まず、月の取得ですが、tuki=Month(Now)かと思ったのですが、これでは取得できませんでした（思いっきり初歩的ですみません）。
次に、第二月曜日の国民の祝日の取得の仕方、最期に春・秋分の日の取得の仕方です。
春・秋分の日は暦によるので、そのときに手入力しないと仕方ないのかも知れませんが、もしVBAによる取得の方法があるなら、ご教授いただきたく投稿しました。

ご存知の方いらっしゃいましたら、よろしくお願い致します。


	【21226】Re:祝祭日の取得

かみちゃん - 05/1/15(土) 20:57 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

> 月の取得ですが、tuki=Month(Now)かと思ったのですが、これでは取得できませんでした

なぜ取得できないのでしょうか？
以下のマクロをたとえば今日、実行すると「今月は 1 月です」と表示されるので
すが、それではまずいのでしょうか？

Option Explicit

Sub Macro1()
　Dim tuki As Integer
　
　tuki = Month(Now)
　MsgBox "今月は " & tuki & " 月です"
End Sub

>次に、第二月曜日の国民の祝日の取得の仕方、最期に春・秋分の日の取得の仕方です。

私も同じようなことをしています。
ktHolidayNameというユーザー定義関数を使われてはいかがでしょうか？
http://www.h3.dion.ne.jp/~sakatsu/holiday_logic.htm

=ktHolidayName(DATE(2005,1,10))
とすると「成人の日」と表示されます。


	【21227】Re:祝祭日の取得

みぃこ

- 05/1/15(土) 21:30 -


	引用なし

	パスワード

▼かみちゃんさん：

早速のご回答有難うございました。

月の取得が何故できないのか、よく分からないのです。
tuki=month(now)と入力して改行したところ、tuki = month(Now)となって、Now関数は受け付けたようですが、Month関数の方は認識されない状態です。
ヘルプで構文を調べても、これでOKのはずなので謎です。。。

>私も同じようなことをしています。
>ktHolidayNameというユーザー定義関数を使われてはいかがでしょうか？
>http://www.h3.dion.ne.jp/~sakatsu/holiday_logic.htm
>
>=ktHolidayName(DATE(2005,1,10))
>とすると「成人の日」と表示されます。

上記、早速使わせていただきます。サイトまで教えていただき、本当に有難うございました。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10543 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free