みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

アドイン内部のシートのコピーと移動

Excel VBAで、アドインについて質問させていただきます。

他のブックを開いている時に、アドイン自身にあるシートを、
アドイン内で移動及びコピーをしたいのですが以下のコードではエラーとなってしまいます。

移動(アドイン自身の変数 i 番目のシートを、左へ移動)
ThisWorkbook.Sheets(i).Move before:=ThisWorkbook.Sheets(i).Previous

コピー(アドイン自身の変数 i 番目のシートを、アドイン自身の末尾にコピー)
ThisWorkbook.Sheets(i).Copy after:=ThisWorkbook.Sheets(Thisworkbook.Sheets.Count)

MoveやCopyメソッドの引数を指定せず新規ブックにコピー及び移動なら可能なのですが、引数の指定に誤りがあるでしょうか?ちなみにアドイン自身の内部でシートを追加、シート削除、名前の変更は可能なようです。

どなたかご教示いただきたく、よろしくお願いいたします。

投稿日時 - 2019-05-05 09:57:00

QNo.9613748

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

アドインで確認したわけではありませんが
iが1の時は移動で失敗しますけど、そんなことじゃないのでしょうか。

投稿日時 - 2019-05-05 12:36:03

ANo.1

VBEditorを開き、
左ペインのThisWorkbookを選択し、
プロパティウィンドウにあるIsAddinをFalseにすることで
エラーなく複写や移動ができるようになると思います。

投稿日時 - 2019-05-05 12:13:44

あなたにオススメの質問