質問: 値を入力後、自動的にアクティブセルが移動するマクロ (1)エクセルファイルを開けたときのアクティブセルを設定。 (2)そのセルに値を入力後、enterで違うセルに移動。 (違うセルは、隣接していない) (3)入力後、enterでまた違うセルに移動。 (4)数個のセルに入力後は、任意のセルに値を入力できるようにする。 マクロでできることなのかわかりませんが、 よろしくお願いします。
回答: やり方は色々あると思いますが、簡単なマクロを使った例です。 >(1)エクセルファイルを開けたときのアクティブセルを設定。 これは標準モジュールに、 sub auto_open() sheets("sheet1").range("b4").select end sub という様に入れてやれば出来ます。 >(2)そのセルに値を入力後、enterで違うセルに移動。 sheet2を、ジャンプ先位置指定用のシートにします。 たとえば、sheet2のb4に、sheet1のb4からのジャンプ先のアドレスを、a1といった様に入力しておきます。 sheet1のシートモジュールに、 private sub worksheet_change(byval target as range) if sheets("sheet2").range(target.address) = "" then exit sub activesheet.range(sheets("sheet2").range(target.address).value).select end sub というマクロをいれてやると、あるセルに値を入力して、確定したとき、sheet2の該当セルに番地が指定してあれば、sheet1の指定先のセルにジャンプし、該当セルが空なら何も起こりませんので、普通に作業できます。 ご参考まで。