マクロボタンの件

VBA実行のためのマクロボタンをシートを別にしてマクロボタン用のシートを作成しました。
そこにボタンを6個くらい作っているのですが、ボタンを押すたびに実行シートに画面が移り
マクロ実行後、またマクロボタンのあるシートをクリックして戻らないといけません。
実行後、自動的にマクロボタンのシートに戻る方法はございますか？

よろしくお願いいたします。

No.3 回答者： GOMΛFU 回答日時： 2019/03/18 12:06

それが仕様ならば勝手にコードを変えないほうが良いと思いますよ。

No.2 回答者： WindFaller 回答日時： 2019/03/15 10:05

リボンにボタンを入れればよいのではありませんか。

https://www.ka-net.org/blog/?p=8945
ただし、ここで紹介されている Custom UI Editor は、ちょっと素っ気ないです。
http://www.ka-net.org/ribbon/ri68.html

addin:RibbonX Visual Designer
http://www.andypope.info/vba/ribboneditor.htm
今の所、このアドインは、日本語などには向いていませんので、最初に、このアドインで形を整えて、日本語表示に、Custom UI Editor で修正します。
よかったら、試してみるとよいです。

私が利用している個別のカスタマイズ・リボンとカスタマイズ・タブ
ボタンのアイコンの種類は、1,000個以上あります。

No.1 回答者： fujillin 回答日時： 2019/03/14 13:32

こんにちは

＞ボタンを押すたびに実行シートに画面が移り
原因はボタンを押すと実行されるマクロの中で表示するシートを移動しえちるためと推測できます。

＞マクロ実行後、またマクロボタンのあるシートをクリックして戻らないといけません。
「最初から表示シートを移動しない」ようにするか、ご質問の様に「終了後元のシートに戻る」かのどちらかかと思います。
もっとも簡単な表示シートの移動方法は
　Worksheets("表示したいシート名").Activate
　（または、　ThisWorkbook.Worksheets("表示したいシート名").Activate ）
とすることで、指定したシートが表示されます。
マクロの最後に、戻りたいシート名を指定して追加しておけばよろしでしょう。

まれに、マクロの途中から「Exit Sub」などで抜け出してしまうプログラムもありますので、「最後に追加」すれば必ず戻るというわけではありませんが、大抵の場合は最後に追加することで戻ると思います。
そのあたりは、個々のマクロによるので、内容を見ないと判断できません。
周囲にわかる方がいるようなら、マクロがわかる人にご相談ください。

いちいち実行シートを表示する必要が無ければ、それを行わないようにする方法もあるとは思いますが、下手に移動だけを中止すると、マクロが動作しなくなる可能性もありますので、マクロを理解できていない場合はお薦めいたしません。

この回答へのお礼

なるほどですね。
やってみます。

お礼日時：2019/03/14 14:30