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

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

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 回答日時： 2014/09/04 15:47

セルの値が変更されたときのイベントは「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)は、大文字のこととはまったく知らず、
勉強になりました。

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

お礼日時：2014/09/04 16:02

No.1 回答者： mpascal 回答日時： 2014/09/04 15:45

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

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

この回答へのお礼

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

お礼日時：2014/09/04 15:55