Excel VBA質問箱 IV

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

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


36139 / 76732 ←次へ | 前へ→

【45776】Re:Enterだけで移動できる?
お礼  じろう  - 07/1/14(日) 2:31 -

引用なし
パスワード
   ▼awu さん:
うまくいきました。
ありがとうございました。
あちらも早く再開してくれるといいですね!
また、お願いします。

>> C列をスタートし次にC列に戻って来たとき 次に進みません。いかがでしょうか?
>
>それは、じろう さんが、当初提示した Worksheet_Changeイベントのコードを
>解析しただけでは、想定出来ない仕様だからです。
>Case 4 (D列)から始まっていたからです。
>
>たぶん、オプションの設定で「入力後に移動する」の「方向」を「右」にしていた
>ものと推測します。
>
>それで、<Enter>で所定の位置に移動すべき箇所は、その設定に左右されないように
>しています。 今度は、C列も追加しました。
>
>あと、H列からK列へは直接飛ばなくていいのですね。
>
>それなら、こんな感じです。 あとは、解析して適当にいじってください。
>
>Kein さん ごめんなさい。 横から口を挟んで。
>
>
>◎ 機能させるシートのモジュールに記述します。
>
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>If InStr("$C$,$D$,$F$,$K$", Left(Target.Cells(1).Address, 3)) > 0 Then
>  Application.OnKey "{ENTER}", ActiveSheet.CodeName & ".JmpCell"
>  Application.OnKey "~", ActiveSheet.CodeName & ".JmpCell"
>Else
>  Application.OnKey "{ENTER}"
>  Application.OnKey "~"
>End If
>End Sub
>
>Private Sub Worksheet_Deactivate()
>  Application.OnKey "{ENTER}"
>  Application.OnKey "~"
>End Sub
>
>Private Sub JmpCell()
>Application.EnableEvents = False
>Select Case Selection.Cells(1).Column
>  Case 3
>    ActiveCell.Offset(, 1).Activate
>  Case 4, 6
>    ActiveCell.Offset(, 2).Activate
>    ' --- 以下は、H列で一旦止める場合不要 ---------
>    If ActiveCell.Column = 8 Then
>      Application.OnKey "{ENTER}"
>      Application.OnKey "~"
>    End If
>    ' ---------------------------------------------
>  Case 11
>    ActiveCell.Offset(1, -8).Activate
>End Select
>Application.EnableEvents = True
>End Sub
>
>
>◎ ThisWorkbook のモジュールに記述。 
>
>Private Sub Workbook_BeforeClose(Cancel As Boolean) 
>  Application.OnKey "{ENTER}" 
>  Application.OnKey "~" 
>End Sub
>
>
>> ちなみに別掲示板はアクセスできないようですが?・・・
>
>そうですね。 停止にする直前に当方の書き込みが空欄になってしまって変だと思って
>いました。 悪い人いるんですね。 うぅ〜ん・・・困ったもんですね。

0 hits

【45740】Enterだけで移動できる? じろう 07/1/13(土) 1:13 質問
【45742】Re:Enterだけで移動できる? Kein 07/1/13(土) 1:42 回答
【45743】Re:Enterだけで移動できる? じろう 07/1/13(土) 2:06 発言
【45744】Re:Enterだけで移動できる? Kein 07/1/13(土) 2:23 発言
【45745】Re:Enterだけで移動できる? じろう 07/1/13(土) 3:12 発言
【45746】Re:Enterだけで移動できる? じろう 07/1/13(土) 3:35 発言
【45747】Re:Enterだけで移動できる? じろう 07/1/13(土) 9:58 発言
【45751】Re:Enterだけで移動できる? Kein 07/1/13(土) 16:06 回答
【45757】Re:Enterだけで移動できる? じろう 07/1/13(土) 17:45 発言
【45771】Re:Enterだけで移動できる? じろう 07/1/14(日) 1:14 お礼
【45772】Re:Enterだけで移動できる? Kein 07/1/14(日) 1:26 発言
【45773】Re:Enterだけで移動できる? Kein 07/1/14(日) 1:33 発言
【45775】Re:Enterだけで移動できる? じろう 07/1/14(日) 2:29 発言
【45778】Re:Enterだけで移動できる? Kein 07/1/14(日) 2:56 発言
【45779】Re:Enterだけで移動できる? Kein 07/1/14(日) 2:59 発言
【45780】Re:Enterだけで移動できる? じろう 07/1/14(日) 3:42 お礼
【45782】Re:Enterだけで移動できる? じろう 07/1/14(日) 4:53 質問
【45795】Re:Enterだけで移動できる? Kein 07/1/14(日) 17:10 発言
【45813】Re:Enterだけで移動できる? じろう 07/1/15(月) 0:38 発言
【45814】Re:Enterだけで移動できる? じろう 07/1/15(月) 1:06 発言
【45823】Re:Enterだけで移動できる? Kein 07/1/15(月) 14:23 回答
【45843】Re:Enterだけで移動できる? じろう 07/1/16(火) 1:46 発言
【45844】Re:Enterだけで移動できる? Kein 07/1/16(火) 2:18 回答
【45853】Re:Enterだけで移動できる? じろう 07/1/16(火) 11:10 発言
【45859】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 13:38 回答
【45860】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 13:47 発言
【45861】Re:Enterだけで移動できる? じろう 07/1/16(火) 14:18 発言
【45862】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 14:33 発言
【45864】Re:Enterだけで移動できる? じろう 07/1/16(火) 15:30 発言
【45863】Re:Enterだけで移動できる? りん 07/1/16(火) 15:26 発言
【45865】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 15:57 発言
【45866】Re:Enterだけで移動できる? じろう 07/1/16(火) 16:47 発言
【45867】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 17:03 発言
【45868】Re:Enterだけで移動できる? じろう 07/1/16(火) 17:04 発言
【45869】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 17:20 発言
【45870】Re:Enterだけで移動できる? じろう 07/1/16(火) 18:07 発言
【45877】Re:Enterだけで移動できる? ひげくま 07/1/16(火) 21:02 発言
【45758】Re:Enterだけで移動できる? awu 07/1/13(土) 19:57 回答
【45759】Re:Enterだけで移動できる? awu 07/1/13(土) 20:27 回答
【45769】Re:Enterだけで移動できる? じろう 07/1/14(日) 0:36 発言
【45774】Re:Enterだけで移動できる? awu 07/1/14(日) 1:45 回答
【45776】Re:Enterだけで移動できる? じろう 07/1/14(日) 2:31 お礼

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