VBA 特定のシートが選択されていたら、セル入力

質問

Excel365。簡略化したVBAです。
現在、「あ」というシートが選択されていたら、「あ」シートの「A1」セルに「a」と入力
「い」というシートが選択されていたら「い」シートの「A1」セルに「i」と入力。
それ以外のシートが選択されていたら、何もしない。

If Sheets("あ").Activate Then
Range("A1") = "a"
ElseIf Sheets("い").Activate Then
Range("A1") = "i"
Else　以下省略

「い」シート選択中でも、「あ」シートの「a1」セルに入力され、シートを増やしても、「あ」シートの「a1」セルに入力されます。
「い」シートを入力していません。

簡単だと思っていたのですが…。
どんなコードになるのでしょうか？

回答No.1

noname#250245 · ベストアンサー

「Sheets("あ").Activate」で返してくるTrueを条件にしようとしてるんでしょうけど、Trueが返ってくるということはSheets("あ")をActivateすることに成功しているということなので、その時点で「あ」シートが選択されます。

試しにブレークポイントを設定して順番に確かめてみてください。
他のシートを選択していても「If ActiveSheet.Name = "あ" Then」のところで「あ」シートが選択されるはずです。

選択されたシートの名前で判断させたいなら、「If ActiveSheet.Name = "あ" Then」とした方が間違いがないですよ。

select文使って

Select Case ActiveSheet.Name
Case "あ"
Range("A1") = "a"
Case "い"
Range("A1") = "i"
End Select

みたいな感じにしても良いですし。

お礼

出来ました。
ありがとうございました。
仰る通り、ブレイクポイントしたら、最初の指定の仕方が間違っていました。

回答No.3

SI299792

'
Sub Macro1()
'
　　If ActiveSheet.Name = "あ" Then
　　　　[A1] = "a"
　　ElseIf ActiveSheet.Name = "い" Then
　　　　[A1] = "i"
　　End If
End Sub

お礼

ctiveSheet.Name
なんですね。
アクティブにしていたのが悪いのだとわかりました。
ありがとうございました。

回答No.2

imogasi

VBAのコードのことが頭いっぱいなのでしょうが、こういうところで質問するときは、
こういうことが必要になる「状況」というか、「事情」を、文章で記述し、
回答者に答え（VBA）コードをもらうのが、良いと思う。初心者の場合なら、発想やロジックそのものがべストやベッターではないと思える場合が多いから。
ーー
　質問のケースが必要な場面が思いつかない。むしろシート選択の「イベント」との
関連で、こういうニーズが起こるように思うが、そのことは触れてない。
Private Sub Worksheet_Activate()
がないので。
ーー
特殊なケース。シートを３つ以上選択しておいて
Sub 選択中のシート枚数と名前を取得する()
MsgBox _
ActiveWindow.SelectedSheets.Count
MsgBox _
ActiveWindow.SelectedSheets(2).Name '２番目
MsgBox _
ActiveWindow.SelectedSheets(3).Name '3番目
　　’この後シート名で処理を分岐記述
End Sub
こういうWundow系のVBAも使うべき場合がある。

お礼

確かに、マクロが出来ず、混乱状態でした。
出来るようになって安心して自分の質問を読み返しました。
ありがとうございました。