Ｐａｇｅ 772 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼カーソルの移動について koshimizu 03/2/18(火) 16:36 ┗Re:カーソルの移動について Jaka 03/2/19(水) 14:11 ┗Re:カーソルの移動について koshimizu 03/2/19(水) 15:58 ┗Re:カーソルの移動について ぴかる 03/2/19(水) 16:27 ┗Re:カーソルの移動について koshimizu 03/2/20(木) 9:20 ─────────────────────────────────────── ■題名 ： カーソルの移動について ■名前 ： koshimizu ■日付 ： 03/2/18(火) 16:36 -------------------------------------------------------------------------
| こんにちは 以前お世話になり、下記のようなカーソルを移動できるようになり ましたが、数値を入力した場合は良いのですが（４３）行が空白の 場合はEnterキーを押したならば移動させたいのですが良い方法が ありましたならば御教え頂きたいのですがよろしく御願いします。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Row = 43 Then Cells(8, Target.Column + 1).Activate End If End Sub |
| こんにちは。 シート上でのキーイベントが見つからない上（あるのかどうかも不明。）に矢印キーなどでの動きの事が書いてなかったので、こんな感じにしてみました。 Dim TaF As Boolean Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And Target.Row = 43 Then Cells(8, Target.Column + 1).Activate End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Address(0, 0) = "A43" Then TaF = True ElseIf Target.Address(0, 0) = "A44" And TaF = True And Range("A43").Value = "" Then Cells(8, Target.Column + 1).Activate Else TaF = False End If End Sub |
| jakaさん解答有難うございます。 初心者でキーイベントなどよくわからないのですが Ｃ８よりＣ４３まで数値の入力を行ったらＤ８にカーソルが移動 するようにしてありましたが、同じくＤ列Ｅ列最後はＢＥ列まで有ります。 但し、Ｃ４３に数値の入力をしない場合Ｃ４３が空白のままでＥｎｔｅｒキーを押した らＤ８にカーソルを移動できるようにしたいのです。 この列がＢＥ列まで有ります。よろしく御願いいたします。 |
| koshimizuさん、jakaさん、こんにちは。 横から少し失礼します。 仮面ライダーＶ３時代のこちらが参考になるのではと思います。 http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=11524;id=Excel http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=one;no=8776;id=Excel 下記ソフトの入力設定→入力範囲ロック http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=36;id=FAQ ご確認下さい。 |
| ▼ぴかるさん こんにちは、いつもお世話になっています。 良いサイトを教えていただき有難うございました。 早速ためしてして見たいと思います。 今後ともよろしく御願いします |