Excel VBA質問箱 IV

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

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


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

60156 / 76736

←次へ　｜　前へ→


	【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))
とすると「成人の日」と表示されます。

0 hits

▼

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