VBAでセル移動

VBA超初心者です。

よろしくお願いいたします。



エクセル２０１０を使用してるのですが



B13:E150の範囲で

Bに入力後エンターしたらoffset(0,2)に移動して

Dに入力後エンターしたらoffset(0,1)に移動して

Eに入力後エンターしたらoffset(0,-2)に移動して

Cに入力後エンターしたらoffset(1,-1)に移動する。



入力なしのエンターは普通どうりに↓に移動する。




こんな動きにしたいのですが、基本分が全くわかりません。


よろしくおねがいいたします。

No.1 ベストアンサー 回答者： tom04 回答日時： 2013/07/30 14:27

こんにちは！

一例です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Application.Intersect(Target, Range("B3:E150")) Is Nothing Or Target.Count <> 1 Then Exit Sub
With Target
If .Value <> "" Then
Select Case .Column
Case 2
.Offset(, 2).Select
Case 3
.Offset(1, -1).Select
Case 4
.Offset(, 1).Select
Case Else
.Offset(, -2).Select
End Select
End If
End With
End Sub 'この行まで

こんなんではどうでしょうか？m（_ _）m

この回答へのお礼

やりたいことができました。

助かりました。

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

お礼日時：2013/07/30 14:41