エクセルで指定したセルへカーソルを移動させる

質問

エクセル２００７で
セル”Ｉ１”に文字を入力してエンターを押したら、“Ｂ１１”へセルを移動させたく、
以下のように作ってみたのですが、
反応してくれません。
このＶＢＡもインターネット上にあったものを参考にしただけなので、
何が悪いのかさっぱりわかりません。どこを修正したらよいのか教えてください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "i2"
[b11].Select

End Select

End Sub

回答No.2

mt2008 · ベストアンサー

セルの値が変更されたときのイベントは「Worksheet_Change」を使います。
「Worksheet_SelectionChange」では選択範囲が変更されただけでイベントが発生します。

次に、Target.Address(0, 0)で帰ってくる列のアルファベットは大文字ですので、"i2"→”I2"にします。

最後に、セルの選択はRange("B11").Selectで行います。

Private Sub Worksheet_Change(ByVal Target As Range)
　　Select Case Target.Address(0, 0)
　　Case "I2"
　　　　Range("B11").Select
　　End Select
End Sub

お礼

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

思った通りの動きをしてくれました。

また、Select Case Target.Address(0, 0)は、大文字のこととはまったく知らず、
勉強になりました。

本当に助かりました。ありがとうございました。

回答No.1

mpascal

Activate が抜けているのだと思いますが。

http://www.start-macro.com/55/w/s035.html

お礼

ありがとうございます。
添付してくださったリンク先で勉強したいと思います。