目安箱 IV

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

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

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

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

【220】修正点 Jaka 07/12/5(水) 12:44 Excel[未読]

【220】修正点
Excel  Jaka  - 07/12/5(水) 12:44 -

引用なし
パスワード
   2008年のカレンダーを見て、勘違いしていたところです。

>   Case 5
>     FixHoliday = Array(3, 4, 5)
>     If Weekday(Nen & "/" & Tuki & "/" & FixHoliday(2)) = 1 Then
>      ReDim Preserve FixHoliday(UBound(FixHoliday) + 1)
>      FixHoliday(UBound(FixHoliday)) = Val(FixHoliday(2) + 1)
>     End If

    ↓

   Case 5
     FixHoliday = Array(3, 4, 5)
     If Nen >= 2007 Then
      GWD = 3  '変数 GWDの定義も追加しておいてください。型は、数値型
     Else
      GWD = 1
     End If
     If Weekday(Nen & "/" & Tuki & "/" & 5) <= GWD Then
      ReDim Preserve FixHoliday(UBound(FixHoliday) + 1)
      FixHoliday(UBound(FixHoliday)) = 6
     End If

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