ATPVBAEN.XLS

Question

Application.Run "ATPVBAEN.XLS!Histogram", ActiveSheet.Range(Cells(4, 8 + pos1 + pos4 - 1), Cells(newdata + 3, 8 + pos1 + pos4 - 1)) _
        , ActiveSheet.Cells(newdata + 18, 7), ActiveSheet.Range(Cells(newdata + 19 + dumymin, pos3), Cells(newdata + 18 + dumymin + pos2, pos3)), False, _
        False, False, False

365で上記のラインが実行ができなない。XLSｍでもできない。エラー1004

Answer 1

フォーラム オペレーターの星 睦美です。

musashiichiban さん、投稿ありがとうございます。

>365で上記のラインが実行ができなない。XLSｍでもできない。エラー1004

office 365 をご利用の環境ということですね。
Excel VBA の実行時のエラー 1004 と、コードの内容からVBA フォーラムのほうがユーザーからの回答を集めやすいと思います。のちほど私のほうで質問を移動させていただきますね。

ユーザーから参考になる回答がありましたら投稿者から[回答としてマーク] をお願いします。

・フォーラムのご利用方法（質問の投稿)について

---

フォーラム オペレーター　星 睦美 - MSDN Community Support

Answer 2

アドインで「分析ツール - VBA」は有効にしていますか？

有効にしたうえでATPVBAENの拡張子部分をXLAMに変更しましょう。
昔のエクセルと最近のエクセルではアドインファイルの拡張子は変更されています。
Application.Run "ATPVBAEN.XLAM!Histogram"

#古いEXCEL用のアドインはXLAのはずなんですが…

---

個別に明示されていない限りgekkaがフォーラムに投稿したコードにはフォーラム使用条件に基づき「MICROSOFT LIMITED PUBLIC LICENSE」が適用されます。(かなり自由に使ってOK!)

Answer 3

musashiichiban さん、
同様の事象で情報をお探しの方にも参考になると思いますので、今回は私から[回答としてマーク] させていただきました。回答の内容に引き続き返信がありましたら、遠慮なく[回答としてのマークの解除] をしてご返信ください。

それでは、今後ともMSDN フォーラムをよろしくお願いいたします。

---

フォーラム オペレーター　星 睦美 - MSDN Community Support