マンガでよめる痔のこと・薬のこと

VBA超初心者です。

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



エクセル2010を使用してるのですが



B13:E150の範囲で

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

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

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

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



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




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


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

A 回答 (1件)

こんにちは!


一例です。

画面左下の操作したい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
    • good
    • 0
この回答へのお礼

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

助かりました。

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング