パソコンを変えたら ワークデイ関数が無効になった

質問

http://okwave.jp/qa/q7456687.html

前回上記の質問をして、アドバイスどおりやることで問題なく使っていました。

先日パソコンをウィンドウズ7にして　同じエクセルファイルを使ったらワークデイ関数が無効になってしまいました。エクセルは　2003　のままです。

ちなみに　アドインには　分析ツールと分析ツール　VBA　　両方共チェックがあります。
なぜ　環境が変わると、ワークデイ関数が無効になるのでしょうか？
ちなみに　シートには、下記のコードが入っています。
ご存知のかた教えていただければ助かります。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim h As Range
On Error Resume Next
For Each h In Application.Intersect(Target, Range("N:N"))
If h > 0 Then
Select Case Cells(h.Row, "B")
Case "毎日"
Cells(h.Row, "A") = Cells(h.Row, "A") + 1
Case "平日"
Cells(h.Row, "A") = Application.Run("ATPVBAEN.XLA!WorkDay", Cells(h.Row, "A"), 1)
Case "毎週"
Cells(h.Row, "A") = Cells(h.Row, "A") + 7
Case "隔週"
Cells(h.Row, "A") = Cells(h.Row, "A") + 14
Case "毎月"
Cells(h.Row, "A") = DateAdd("M", 1, Cells(h.Row, "A"))
Case "隔月"
Cells(h.Row, "A") = DateAdd("M", 2, Cells(h.Row, "A"))
End Select
End If
Next

For Each h In Application.Intersect(Target, Range("B:B"))
If StrConv(h, vbNarrow) = "-" Then
Cells(h.Row, "A").ClearContents
End If
Next
End Sub

回答No.1

keithin · ベストアンサー

マクロには問題ありません。（一応ご参考：手元のWin7+Excel2003でも全く問題なく動作しています）
あなたがご利用のエクセルで、分析ツールVBAが正常に利用できないようです。単純に言えば故障という事です。

出来そうなことは何でもやってみて、修復できるか試します。
１．アドインで分析ツール、分析ツールＶＢＡのチェックを外してエクセルを再起動し、改めてチェックを入れなおす
２．ヘルプメニューのバージョン情報から「使用できないアイテム」を確認し、何かとらわれていないか確認する
３．まっさらのブックを用意、マクロをコピーして正しい手順で間違いなく登録、Ａ列Ｂ列のデータを準備してからＮ列に記入し動作確認する
４．ヘルプメニューのアプリケーションの自動修復を行う
５．オフィス２００３を完全にアンインストール、その後再インストールする

お礼

回答ありがとうございました　チェック入れなおしで治りました　助かりました