Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows XP Professional : Excel 2002)
営業日を計算する
投稿日時: 18/02/16 09:51:58
投稿者: YM1026

いつもお世話になります。
 
VBA関数で、「今日の1ヶ月前の月の第16営業日」を計算したいです。
 
色々サイトを見てまわってみました。
ワークシート関数のWORKDAY関数が、エクセル2002のVBAでは使用できないようなので
この様な使い方を見つけました。
 
@Excelの「ツール」―「アドイン」で「分析ツール - VBA」にチェックを入る
AVBエディタの「ツール」―「参照設定」で「atpvbaen.xls」にチェックを入れると「workday」が使える
 
そこでこうやってみました。
 
 
Sub 営業日()
 
Dim myDate As Date
Dim Dayoff() As Date
Dim eigyoubi As Date
 
 
myDate = DateSerial(Year(Date), Month(Date) - 1, 1)
Dayoff = 祝日取得(myDate)
eigyoubi = workday(myDate, 16, Dayoff)
 
End Sub
 
祝日取得は別のプロシージャで計算して、myDateの月の祝日を
Dayoffに配列で入れています。
 
昨日はうまく動いたのに
今日になったら「eigyoubi = workday(myDate, 16, Dayoff)」この部分でエラーが出てしまいます。
 
実行時エラー1004
マクロが見つかりません。
 
どうしたらいいでしょう?
よろしくお願い致します。

回答
投稿日時: 18/02/16 11:42:32
投稿者: 細雪

YM1026 さんの引用:

実行時エラー1004
マクロが見つかりません。
  
どうしたらいいでしょう?

 
まずは、
行方不明なマクロが「workday」なのか「myDate」なのか「Dayoff」なのか
切り分けるところからでしょうねぇ。
それは、作成者でもある質問者さんご自身が頑張りましょう。
デバッグは他の誰にも依頼できない作業です。
回答者の手元にはマクロ全文もサンプルデータも無いのですから。

投稿日時: 18/02/16 12:56:42
投稿者: YM1026

細雪様
 
ご回答ありがとうございます。
了解いたしました。