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 質問
【21226】Re:祝祭日の取得 かみちゃん 05/1/15(土) 20:57 回答
【21227】Re:祝祭日の取得 みぃこ 05/1/15(土) 21:30 お礼

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