目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
25 / 118 ツリー ←次へ | 前へ→

【37】不特定な祝日を求めるエクセル関数とマクロ関数。 Jaka 03/10/28(火) 11:29 Excel[未読]

【221】祝日表をまとめてみた。 Jaka 07/12/6(木) 9:45 Excel[未読]
【227】Re:祝日表をまとめてみた。 VBWASURETA 08/1/24(木) 9:57 全般[未読]
【267】表に位置について。 Jaka 11/2/14(月) 16:59 Excel[未読]

【221】祝日表をまとめてみた。
Excel  Jaka  - 07/12/6(木) 9:45 -

引用なし
パスワード
   B1に西暦年号が入るとして

B4〜B29
元日
振替
成人の日
建国記念の日
振替
春分日
振替
昭和の日
振替
憲法記念日
みどりの日
こどもの日
振替
海の日
敬老の日
国民の休日
秋分の日
振替
体育の日
文化の日
振替
勤労感謝の日
振替
天皇誕生日
振替
年末年始


C4〜C29
=DATE($B$1,1,1)
=IF(WEEKDAY(C4,1)=1,C4+1,"")
=DATE($B$1,1,IF(2>=WEEKDAY(DATE($B$1,1,1),1),2-WEEKDAY(DATE($B$1,1,1),1)+((2-1)*7)+1,8-WEEKDAY(DATE($B$1,1,1),1)+((2-1)*7)+2))
=DATE($B$1,2,11)
=IF(WEEKDAY(C7,1)=1,C7+1,"")
=DATE($B$1,3,DAY(INT(20.8431+0.242194*($B$1-1980)-INT(($B$1-1980)/4))))
=IF(WEEKDAY(C9,1)=1,C9+1,"")
=DATE($B$1,4,29)
=IF(WEEKDAY(C11,1)=1,C11+1,"")
=DATE($B$1,5,3)
=DATE($B$1,5,4)
=DATE($B$1,5,5)
=IF(WEEKDAY(C15,1)<4,C15+1,"")
=DATE($B$1,7,IF(2>=WEEKDAY(DATE($B$1,7,1),1),2-WEEKDAY(DATE($B$1,7,1),1)+((3-1)*7)+1,8-WEEKDAY(DATE($B$1,7,1),1)+((3-1)*7)+2))
=DATE($B$1,9,IF(2>=WEEKDAY(DATE($B$1,9,1),1),2-WEEKDAY(DATE($B$1,9,1),1)+((3-1)*7)+1,8-WEEKDAY(DATE($B$1,9,1),1)+((3-1)*7)+2))
=IF(WEEKDAY(C20)=4,C20-1,"")
=DATE($B$1,9,DAY(INT(23.2488+0.242194*($B$1-1980)-INT(($B$1-1980)/4))))
=IF(WEEKDAY(C20,1)=1,C20+1,"")
=DATE($B$1,10,IF(2>=WEEKDAY(DATE($B$1,10,1),1),2-WEEKDAY(DATE($B$1,10,1),1)+((2-1)*7)+1,8-WEEKDAY(DATE($B$1,10,1),1)+((2-1)*7)+2))
=DATE($B$1,11,3)
=IF(WEEKDAY(C23,1)=1,C23+1,"")
=DATE($B$1,11,23)
=IF(WEEKDAY(C25,1)=1,C25+1,"")
=DATE($B$1,12,23)
=IF(WEEKDAY(C27,1)=1,C27+1,"")
=DATE($B$1,12,31)

【227】Re:祝日表をまとめてみた。
全般  VBWASURETA  - 08/1/24(木) 9:57 -

引用なし
パスワード
   ▼Jaka さん:

こんにちは。
因みに曜日は簡単に取得できたりします。
もしかすると、知っておられるかも知れませんけど^^;

Dim WeekDay As String
WeekDay = Format(Now(), "aaa")

これはアクセス、エクセル、VB共通です。


但しエクセルのシート上の関数は

=Text(Now,"aaa")

になる特殊な場合もあります。

【267】表に位置について。
Excel  Jaka  - 11/2/14(月) 16:59 -

引用なし
パスワード
   上記祝祭日表の位置が気に食わなかったら、1度下記セルに貼り付けてから、
列や行を削除するなり、移動させれば良いです。
参照先も自動で変更されます。

B1
B4〜B29
C4〜C29

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
25 / 118 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free