質問: vbaでセル移動 vba超初心者です。 よろしくお願いいたします。 エクセル2010を使用してるのですが b13:e150の範囲で bに入力後エンターしたらoffset(0,2)に移動して dに入力後エンターしたらoffset(0,1)に移動して eに入力後エンターしたらoffset(0,-2)に移動して cに入力後エンターしたらoffset(1,-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