Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40343 / 76732 ←次へ | 前へ→

【41488】Re:移動先について
回答  Kein  - 06/8/12(土) 2:17 -

引用なし
パスワード
   [シートモジュール]

Private Sub Worksheet_Activate()
  Application.OnKey "{ENTER}", "Mv_Cell"
End Sub

Private Sub Worksheet_Deactivate()
  Application.OnKey "{ENTER}"
End Sub

[標準モジュール]

Sub Mv_Cell()
  With ActiveCell
   If .Column = 9 Then
     .Offset(1, -8).Select
   Else
     .Offset(, 1).Select
   End If
  End With
End Sub

で、テンキーの ENTER を押したときに動作します。
文字キーのENTERに反応させたければ、"{ENTER}"→"~"に変更して下さい。
   

0 hits

【41486】移動先について mori 06/8/12(土) 0:59 質問
【41488】Re:移動先について Kein 06/8/12(土) 2:17 回答
【41500】Re:移動先について mori 06/8/12(土) 10:31 質問
【41502】Re:移動先について ponpon 06/8/12(土) 10:43 発言
【41503】Re:移動先について mori 06/8/12(土) 10:54 発言
【41511】Re:移動先について Kein 06/8/12(土) 17:03 発言
【41512】Re:移動先について Kein 06/8/12(土) 17:06 発言
【41574】Re:移動先について mori 06/8/14(月) 1:04 お礼

40343 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free