• ベストアンサー

VBAでセル移動

VBA超初心者です。 よろしくお願いいたします。 エクセル２０１０を使用してるのですが B13:E150の範囲で Bに入力後エンターしたらoffset(0,2)に移動して Dに入力後エンターしたらoffset(0,1)に移動して Eに入力後エンターしたらoffset(0,-2)に移動して Cに入力後エンターしたらoffset(1,-1)に移動する。 入力なしのエンターは普通どうりに↓に移動する。 こんな動きにしたいのですが、基本分が全くわかりません。 よろしくおねがいいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.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

tackty
質問者

お礼

やりたいことができました。 助かりました。 ご回答ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセル2010　セルの移動設定について

    エクセル2010を使用しています。 入力するセルを2列（Ａ，Ｂ）に限定し、Ａ1入力後→Ｅｎｔｅｒ→Ｂ1に移動→Ｅｎｔｅｒ→Ａ2に移動と、 右移動、左下移動のＶＢＡまたは、設定を教えてください。

  • VBA Offsetで可視セルだけを移動

    VBA Offsetで可視セルだけを移動 エクセル2016のマクロで、現在アクティブのセルから３マス左に移動させたいです。 以下ですと、今いるG1セルからA1セルに移動したいです。 ／ A B C D E F G 1 表示 表示 非表示 表示 非表示 非表示 今いるセル 分かりづらい質問で申し訳ありません。。 質問の趣旨をおわかりいただけるでしょうか？ 方法等調べましたがほしい情報が見当たらず、お知恵をお貸しください。 よろしくお願いいたします。

  • VBA入力なしのエンターでのセル移動

    VBA初心者です。 エクセル２０１０使用してるのですが チェンジイベントで入力時エンターで以下のように動きますが 入力なしのエンターでC5セルに移動させるには どのような方法があるのでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$H$5" Range("C8").Select End Select End Sub よろしくお願いいたします。

  • Excelでenterを押した後任意のセルに移動

    Excel　VBAの初心者です、宜しくお願いいたします。 VBAで集計表を作成しているのですがExcelのオプションから設定してシートの保護で入力可能なセルを選びVBAを実行するとシートは保護されていますとメッセージが出て使えません。 A1を入力後EnterでA３へ移動、次にEnterでA6へとセルを移動させたいのです、VBAでの構文はどの様に作ればよいのかご伝授頂きたく宜しくお願いいたします。 Excel　２００２、３、７を使用しています。　　

  • 数値入力後のセルの変則移動

    office XPを使用してます。 タイトルのとおりマクロにて、セルの変則移動のプログラムについて宜しくお願いします。Ｂ５からスタートします。 Ｂ５に数値入力→ＥＮＴＥＲ→Ｂ９に入力→ＥＮＴＥＲ→Ｄ６に入力→ＥＮＴＥＲ→Ｇ６に入力→ＥＮＴＥＲ→Ｄ９に入力→ＥＮＴＥＲ→Ｅ９に入力→ＥＮＴＥＲで終了です。

  • EXCELでVBAを使用してセル移動のコントロールをしています。

    EXCELでVBAを使用してセル移動のコントロールをしています。 主にENTERキー、SHIHT+TAB　キーでのセル移動の制御を行っていますが、 EXCELの機能で矢印キー↑↓←→のキー操作が邪魔で、 思うような位置にセルが移動しなく、 たぶんEXCEL側の制御の動きをしているのではないかと思うのです。 VBAでセル移動の制御をしているせいか、 EXCEL制御で動く矢印キーが思うように制御しません。 そこで、このEXCEL制御の矢印キーの動きをしないようにと考えてます。 どのようにしたら、矢印キー制御を阻止できるでしょうか？ 教えて頂けませんか？

  • 離れたセルに移動する

    エクセルのセルの移動について セルＥ1に入力しenterキ-で セルＡ2に移動する方法はありますか。

  • VBAの修正　Enterを押した後のセル移動について

    以前、下記でお世話になった者です。 その節はありがとうございました。 「質問：ExcelでEnterを押したあとの移動先について06-03-07 23:03」 http://oshiete1.goo.ne.jp/qa2014068.html 「質問：No.2014068のつづきです。VBAで困ってます。06/03/09 22:06」 http://oshiete1.goo.ne.jp/qa2018448.html 当時のもので快調に使用できていましたが、社内システムの入れ替えでデータが増えたため、VBA（または関数）の修正をして使い勝手をよくしたいのです。 データシート名：[データ]に下記のコードが入っています。 シートのデータ範囲はA4:Ｊ65536で、I列に製品コードが入っています。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 11 Then Cells(ActiveCell.Row, 1).Select End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then Range("A65536").End(xlUp).Offset(, 0).Select End If End Sub このコードのおかげで「B2でEnterを押すとA列の「あ」が入っているセルに移動」できました。 これを「B2で製品コードを入力してEnterを押すと、データ範囲のI列を検索して該当レコードの行頭にセルが移動する」に変えたいのです。 ただし、I列の製品コードは1レコードにつき1コード（一品一様）ではありますが、現時点ですべてのコードづけが終わっていないためにB2で入力したものが無い確率の方が高いのです。 この場合は「あ」にセルが移動するようにしたいのですが、どのようにしたらよいのでしょうか。 ご回答よろしくお願いします。

  • Ｅｘｃｅｌ、空白でもEnterを押せば任意の場所に移動できる？

    ＶＢＡで、セルに入力後Enterキーで横に移動させる事は何とかなったのですが、入力が無い時はEnterキーで斜め下のセルに移動したいんです。 例えば、Ｅ２に入力として、入力しないでEnterキーを押すとＤ３に移動したいんです。 範囲はＥ２：Ｅ４０ぐらいなんですが・・・ どなたかご教授下さい。宜しくお願いします。

  • エクセル2007　セルの移動に関して　２つの移動方法の共存はできますか？

    エクセル2007　セルの移動に関して　２つの移動方法の共存はできますか？ 同一シートに２つの移動方法を共存させたいのですが・・・ ※入力するセルはロックをはずしてのシートの保護をしています。 ■移動　→　が　以下 B2→ D2→ F2→ H2 B4→ D4→ F4→ H4 ■移動　↓　が以下 B6　　D6 ↓　　↓ B8　　D8 ↓　　↓ B10 　D10 TAB と　Enter　での移動変化だけだとうまくいかないもので いい方法が　ございましたら　ご教授　おねがい　いたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する