Excel VBA質問箱 IV

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

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


10541 / 13644 ツリー ←次へ | 前へ→

【21225】祝祭日の取得 みぃこ 05/1/15(土) 20:07 質問[未読]
【21226】Re:祝祭日の取得 かみちゃん 05/1/15(土) 20:57 回答[未読]
【21227】Re:祝祭日の取得 みぃこ 05/1/15(土) 21:30 お礼[未読]

【21225】祝祭日の取得
質問  みぃこ E-MAIL  - 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:祝祭日の取得
お礼  みぃこ E-MAIL  - 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))
>とすると「成人の日」と表示されます。

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

10541 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free