Changeイベントのセル選択

質問

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myrang As Range
Dim x as Long ★★

'K列に入力した時
If Target.Column = 11 And Target.Count = 1 Then

With Workbooks("システム.xlsm").Worksheets("台帳").Columns(7)
Set myrang = .Find(what:=Target.Value, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False, matchbyte:=False, searchformat:=False)
End With

If myrang Is Nothing Then

Dim intret As Integer

’☆
intret = MsgBox("入力エラーです!", vbCritical + vbOKOnly, "エラー発生")

Else

　処理2のコード

X=2　　★★
End If

Target.offset(X,0).select

End If

　　　　End sub

’☆1のメッセージボックスが出て、OKを押したときは、入力したセルを選択、
処理２を行ったときは、２行下のセルを選択したい、という質問をし、★★のコードを教えていただき、
思った通りの動作をしました。

このパターンで、同じように１行下のセルを選択、は出来たのですが。

他に、
’☆1のメッセージボックスが出た時には、入力したセル、
処理２を行ったときは
Target.offset(1,3).select

としたい時はどのようにしたらいいのでしょうか？

会社にしかパソコンがなく、お返事は明日になると思いますが、どなたか
よろしくお願い致します。

回答No.1

end-u · ベストアンサー

応用のモンダイです。

Dim x As Long
Dim y As Long
:
If myrang Is Nothing Then
　　MsgBox "入力エラーです!", vbCritical + vbOKOnly, "エラー発生"
Else
　　'処理2のコード
　　x = 3
　　y = 1
End If
Target.Offset(y, x).Select

..とするか、If分岐の中で素直に記述してください。

If myrang Is Nothing Then
　　MsgBox "入力エラーです!", vbCritical + vbOKOnly, "エラー発生"
　　Target.Select
Else
　　'処理2のコード
　　Target.Offset(1, 3).Select
End If

お礼

遅くなり、申し訳ありません。
ありがとうございました。

＞If分岐の中で素直に記述・・・
を自分でしたのですが、うまく出来ていませんでした。

今回、教えていただいたコードと確認してみると、

'処理2のコード
　　Target.Offset(1, 3).Select
End If

を

'処理2のコード
End If
　　Target.Offset(1, 3).Select

と記述していたため、メッセージボックスが出てＯＫを押した場合でも、
最後の、
　　Target.Offset(1, 3).Select
へとんで来ていたのだ、とわかりました。

ありがとうございました。