ご教授いただければ幸いです。
Excel 2013 VBA にて,ワークシート上でデータ入力後のセルを右方向に設定しているのに,左斜め上を選択してしまいます。
状況は次の通りです。
A B C D 列があり,入力は B20,C20に入力し,次はB21,C21,次はB22,C22 ... というものです。A列に値がない時点で終了させます。
20
21
22
23
24
行
コーディングの概要は次の通りです。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
...
Application.MoveAfterReturnDirection = xlToRight 'セル右方向に移動
Dim myRow As Integer : myRow = ActiveCell.Row
Dim myCol As Integer : myCol = ActiveCell.Column
if myCol=4 then ......................................................................'C列の入力が終わり,D列を選択した時
if Cells(myRow+1,1).Value ="" then ............................'次の入力行のA列には値がないので終了のメッセージ
MsgBox "入力終了です。"
End If
Cells(myRow+1,2).Select '....................................................'次の入力行のA列に値がある場合は,次の入力行のB列を選択
ELSE
'....................................................'B,C列が選択されている時 何もせず右に移動むさせる
End If
上記のコーディングで,はじめの行は問題なくC列に入力後にD列に移動して次の行のB列に移動するのですが,ここに値を入れて
ENTERすると,一つ上の行のC列にセルが移動(戻ってしまう)してしまいます。
解決策をよろしくお願いいたします。