[XL] [Enter]キーを押したらアクティブ セルを右に移動する方法

詳細

指定したキーが押されたときにマクロを実行させるには、 Application オブジェクトの OnKey メソッドを使用します。

サンプル

次のサンプル モジュールでは、マクロ "EnterKeyAssignSample" にて [Enter] キーが押されたらマクロ "RightMove" を実行するように設定しています。
マクロ "RightMove" では現在選択されているオブジェクトが「セル範囲」であるか、アクティブ シートが「ワークシート」であるかの確認を行い、「ワークシートのセル範囲」が選択されている状態であれば、セルを一つ右のセルへ移動しています。
また、[Enter] キーが押されたときに、アクティブ セルをひとつ下へ移動する「 Excel 5.0 本来の動作」に戻したい場合は、マクロ "EnterKeyReAssignSample" を実行します。

  '[Enter] が押されたら実行するマクロを設定するマクロ
  Sub EnterKeyAssignSample()
      Application.OnKey "ENTER", "RightMove"
      Application.OnKey "~", "RightMove"
  End Sub
  'ワークシートのセルが選択されていたら右へ移動するマクロ
  Sub RightMove()
      If TypeName(Selection) = "Range" And _
         TypeName(ActiveSheet) = "Worksheet" Then
            If ActiveCell.Column <> 256 Then
            ActiveCell.Offset(0, 1).Select
          End If
      End If
  End Sub
  '[Enter] キーの設定を既定に戻すマクロ
  Sub EnterKeyReAssignSample()
      Application.OnKey "ENTER"
      Application.OnKey "~"
  End Sub

注意

「サンプル」のマクロ "EnterKeyAssignSample" を実行すると、ワークシート以外でのシート上で [Enter] キーを使用する操作はすべて動作しなくなります (モジュール シート上で改行が行えない、など)。データの入力が終了した時点で、マクロ "EnterKeyReAssignSample" を実行して Excel 5.0 本来のキー設定に復帰するようにしてください。