Excel VBA質問箱 IV

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

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


49822 / 76732 ←次へ | 前へ→

【31810】Re:稼働日以外を除外して計算したい(追加)
発言  ichinose  - 05/11/30(水) 13:44 -

引用なし
パスワード
   >の「dd,-1」の後ろにA1:A6を入れると
>「型が一致しません」となってしまいます。
>
>申し訳ありませんが、再度お教え頂けますでしょうか?

これも二通りサンプルコードを提示します。
'==================================================
Sub test1()
  Dim dd As Date
  Dim ddarray(1 To 2)
  dd = #12/5/2005#
  
   
  ddarray(1) = #12/2/2005#
  ddarray(2) = #12/1/2005#
  
  MsgBox Format(Application.Run("atpvbaen.xla!workday", dd, -1, ddarray()), "yyyy/m/d")
End Sub
'=======================================================================
Sub test2()
  Dim dd As Date
  dd = #12/5/2005#
  With Worksheets("sheet1")
   .Range("c1").Value = #12/2/2005#
   .Range("c2").Value = #12/1/2005#
   MsgBox Format(Application.Run("atpvbaen.xla!workday", dd, -1, .Range("c1:c2")), "yyyy/m/d")
   End With
End Sub

どちらも同じ結果を表示すると思います。
0 hits

【31789】稼働日以外を除外して計算したい。 茶眠。 05/11/30(水) 9:37 質問
【31791】Re:稼働日以外を除外して計算したい。 やま 05/11/30(水) 11:14 発言
【31792】Re:稼働日以外を除外して計算したい(追加) やま 05/11/30(水) 11:21 発言
【31801】Re:稼働日以外を除外して計算したい(追加) ichinose 05/11/30(水) 12:50 発言
【31805】Re:稼働日以外を除外して計算したい(追加) 茶眠。 05/11/30(水) 13:18 質問
【31810】Re:稼働日以外を除外して計算したい(追加) ichinose 05/11/30(水) 13:44 発言
【31915】ありがとうございました。 茶眠。 05/12/2(金) 10:17 お礼
【31806】Re:稼働日以外を除外して計算したい(追加) 茶眠。 05/11/30(水) 13:21 お礼
【31809】Re:稼働日以外を除外して計算したい(追加) Kein 05/11/30(水) 13:39 発言
【31813】Re:稼働日以外を除外して計算したい(追加) やま 05/11/30(水) 14:22 お礼
【31917】ありがとうございました。 茶眠。 05/12/2(金) 10:22 お礼
【31916】ありがとうございました。 茶眠。 05/12/2(金) 10:19 お礼

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