Excel VBA Enter後のセル移動は下？右？アドインに登録して簡単に切り替える-アンケート入力を楽にする（その３）

Excelでアンケート入力を楽にする方法第３弾です！前回の記事はこちら↓

Excelで普段はセル上でEnterを押した後は、下へセル移動するように設定しています。

アンケートを入力する場合、Enterを押した後は右へセル移動するように設定し直します。

［ファイル］＞［オプション］…と毎回設定していくのも面倒なので、マクロをアドインとクイックアクセスツールバーに登録し、簡単に切り替えられるようにしました。

下図は、Excel2016です。

< スポンサーリンク >

マクロを記録する

Enterを押した後のセル移動の方向を変えるマクロをVBAで作ります。

［開発］＞［コードの表示］の順にクリックします。

VBEが起動しますので、［挿入］＞［標準モジュール］の順にクリックします。

標準モジュールの中に、下記のように書きます。

↓Enter後、右へセル移動するプロシージャ

Sub EnterGoMigi()
    ‘Enterの後、右へ移動
    Application.MoveAfterReturnDirection = xlToRight
End Sub

↓Enter後、下へセル移動するプロシージャ

Sub EnterGoSita()
    ‘Enterの後、下へ移動
    Application.MoveAfterReturnDirection = xlDown
End Sub

VBEを閉じます。

［ファイル］をクリックします。

［名前を付けて保存］をクリックします。

［ファイル名］は分かりやすいものに、［ファイルの種類］は「Excelアドイン」を選択し、［保存］をクリックします。

Excelは一旦閉じます。

マクロを使えるようにする

再度、Excelを起動し、［ファイル］をクリックします。

［オプション］をクリックします。

［アドイン］をクリックします。

［管理］「Excelアドイン」＞［設定］をクリックします。

先ほどアドインで登録したファイルにチェックを入れ、［OK］をクリックします。

クイックアクセスツールバーに登録する

▼［クイックアクセスツールバーのユーザー設定］＞［その他のコマンド］をクリックします。

［コマンドの選択］欄で「マクロ」を選択します。

先ほどアドインに登録したマクロ２つを［追加］をクリックし、右の欄へ表示させます。

右へ移動するマクロを選択し、［変更］をクリックします。

分かりやすいボタンのアイコン（▶など）を選択し、［表示名］も分かりやすく「Enter後右へ」などに変更し、［OK］をクリックします。

同様に下へ移動するマクロもアイコンや表示名を変更します。

［OK］をクリックします。

クイックアクセスツールバーへ登録されました。

「Enter後右へ」のアイコンをクリックすると、Enterを押した後セルは右へ移動し

「Enter後下へ」のアイコンをクリックすると、Enterを押した後セルは下へ移動します。

これで、かなり便利になりました。

アンケート入力を楽にする方法第１弾と第２弾のこちらもどうぞ↓