文書番号: 402275
最終更新日: 1997/10/20
'[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
Keywords: KBHOWTO KB402275
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch