開いているシートをチェックする

質問

いつもこちらでお世話になってます。

VBAで、ひとつのブックの開いているシートをチェックする方法を教えてください。

"sheet1"
"sheet2"　
"sheet3"
と同じブックにあるとし、

"sheet1"を開いてマクロを実行したら、　「シート1です」とメッセージボックスを出し、"F4"を選択。
"sheet2"を開いてマクロを実行したら、　「シート２です」とメッセージボックスを出し、"G4"を選択。
"sheet3"を開いてマクロを実行したら、　何もしない。
というようなコードをどうすればいいいのでしょうか？

自分なりに試してみたのは、以下のようなものです。

' Macro　（）

If Sheets("sheet1").Activate Then
MsgBox "シート1です"
　　Sheets("sheet1").range("f4").select
End If

If Sheets("sheet2").Activate Then
MsgBox "シート2です"
Sheets("sheet2").range("g4").select
End If

End Sub

これだと、どのシートを開いていても、
"sheet1"が開いて、"シート1です"　のメッセージが出て、ＯＫを押すと、"Ｆ4"を選択し、そのまま
"sheet2"が開いて、"シート2です"　のメッセージが出て、ＯＫを押すと、"G4"を選択してし、
"sheet2"が開いた状態になってしまいます。

今現在は、２つのマクロが別々にあります。
マクロのオプションでCtrl＋半角キーを同じにしたい、と考えています。

マクロのオプションで同じ半角キーをすることはできるようなのですが、
そうすると、Private Sub Worksheet_Activateで
"sheet1"が開いたときは"E4"を選択するようにしているので、デバックが出てしまいます。

どのようにすればいいのでしょうか？

回答No.2

end-u · ベストアンサー

[Select Case ステートメント]を使ってみてください。

Sub test()
　　With ActiveSheet
　　　　'念の為小文字比較
　　　　Select Case LCase(.Name)
　　　　　　Case "sheet1"
　　　　　　　　MsgBox .Name & "です。"
　　　　　　　　.Range("F4").Select
　　　　　　Case "sheet2"
　　　　　　　　.Range("G4").Select
　　　　　　　　MsgBox .Name & "です。"
　　　　End Select
　　End With
End Sub

..こんな感じです。

お礼

回答、ありがとうございました。

メッセージボックスを出す部分を今あるコードに置き換えて、実行したところ、
思った通りに動きました。

またまた、回答いただき、ありがとうございました。

このコードだと、シート数を増やすこともできるので、こちらをベストアンサーとさせていただきます。

回答No.3

m-take0220

＞ Sheets("sheet1").Activate

Activateメソッドは、選択されたオブジェクトをアクティブにするためのもので、アクティブかどうか判定するものではありません。

ActiveSheet.Name で、アクティブなシートのシート名が取得できるので、これをsheet1などと比較すればいいでしょう。

お礼

＞Activateメソッドは、選択されたオブジェクトをアクティブにするためのもので、アクティブかどうか判定するものではありません。

だから、シートが次々と開いてしまったのですね。
回答、ありがとうございました。

回答No.1

MARU4812

要求通りではないけど応用して下さい。
Dim SheetName As String
SheetName = ThisWorkbook.ActiveSheet.Name
Select Case SheetName
　　Case "Sheet1", "Sheet2"
　　　　MsgBox SheetName & "です"
　　Case "Sheet3"
　　Case Else
　　　　MsgBox "プログラムされていません。：" & SheetName
End Select

文字列比較なのでシート名と完全一致しないと
実行されません。

質問文の後半は何を言っているのか理解できませんでした。
ショートカットと結びつける話でしょうか？
Worksheet_Activate のコードは書かれていないようですし、
デバックが出るというのも何の事か分かりません。
内容が別なら別のスレッドで質問して下さい。

お礼

説明が至らずすいません。

＞質問文の後半は何を言っているのか理解できませんでした。

私が書いたコードでは、sheet1,sheet2と順に開いてしまいました。
そうすると、

>If Sheets("sheet1").Activate Then
>MsgBox "シート1です"
>　　Sheets("sheet1").range("f4").select

と、シート1のワークシートのイベントで、シート1を開くと、("E4")を選択するようにしてるので、
デバックが出てしまう、ということを伝えたいと思い、記入しました。

回答、ありがとうございました。