直前のシートに戻る方法

質問

お世話になっております。
直前に作業していたシートに戻るマクロをご存じないでしょうか。

シート1からシート5に移動していた場合には、シート1に戻りたいです。
シート2からシート5に移動していた場合には、シート2に戻りたいです。
シート3からシート5に移動していた場合には、シート3に戻りたいです。
シート4からシート5に移動していた場合には、シート4に戻りたいです。

現在は、マクロを4つに分けていますがボタンが4つになりややこしいです。
直前に作業していたシートに戻れるマクロがあれば1つのボタンで済みます。

そのようなマクロはあるのでしょうか。
よろしくお願いします。

回答No.2

kmetu · ベストアンサー

標準モジュールを作成し
Module1に
Public mSheetName As String
を宣言

ThisWorkbookに
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
mSheetName = Sh.Name
End Sub

そして
1個のボタンのマクロに
Sheets(mSheetName).Select
としてください。

補足

どうもありがとうございます。
以下の手順で行いましたがボタンに登録できませんでした。

新しいブックで行いました。
Visual Basicを開きます。
挿入-標準モジュール
そのModule1に

Public mSheetName As String

と入力しました。
ThisWorkbookに

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
mSheetName = Sh.Name
End Sub

と入力しました。

Sheet3にボタン（フォームコントロール）を作成しました。
マクロの登録で
Sheets(mSheetName).Select
と入力すると、入力した数式は正しくありません。
と出ます。
-------------
それと、実際のファイルで行う場合ですが、Module1、Module2、Module3、Module4とマクロで使用していますが、1つずつずらして、必ずModule1を使用しないと駄目でしょうか。なお、実験はModule1で行っています。

よろしくお願いします。

回答No.3

kmetu

ボタンを作成したらマクロの登録が開くと思います
そのままでボタン数値_Clickになっていると思いますので
そこで新規作成をすると以下のVBEが開きます。

Sub ボタン数値_Click()

End Sub

となりますのでその中に
Sheets(mSheetName).Select
を記入してください。

もしくは適当なマクロを作成しそれを登録してください。
Sub mRev()

Sheets(mSheetName).Select

End Sub
とか作ってボタンのマクロに登録する

> それと、実際のファイルで行う場合ですが、Module1、Module2、Module3、Module4とマクロで使用していますが、1つずつずらして、必ずModule1を使用しないと駄目でしょうか。なお、実験はModule1で行っています。

既にModule1があるのでしたら新たに作らなくても
(Module1でなくても標準モジュールのどれかでいいです)
Module1の一行目に(一番上)
Public mSheetName As String
を記入してください。
ここに記入することでどこからでも参照できる変数になります。

お礼

できました、どうもありがとうございます。
助かりました。
動いたときには感動しました。

回答No.1

cistronezk

どうしてシートの選択（クリック）では駄目で、わざわざマクロのボタン４つを用意する必要があったんですか？

補足

ありがとうございます。

話を単純化するために移動したいとだけ書いたのですが、
実際は、シート1に設置したマクロで、シート1関連のCSVファイルをシート5に読み込んでおり、
シート5を眺めた後シート1に戻るときに、B列以降のデータを削除しています（A列にはマクロのボタンがあるので残しています）。

削除して1に移動するマクロ、削除して2に移動するマクロ、削除して3に移動するマクロ、削除して4に移動するマクロということです。

4つのボタンだと間違って押してしまいそうなので、確実に元のシートに戻りたいので1つのマクロにしたいです。

よろしくお願いします。