|
こんにちは。かみちゃん です。
>作成日→機種名→ロット→台数の順に 入力したいのですが
>入力して、Enterキーを押したらその場所に移動出来る
セルの値が変更したら、セルを移動させるようなマクロであれば、以下のようなマクロになります。
なお、Worksheet_Changeイベントを使いますので、シートモジュールに記述して
ください。
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("O4:Q4")) Is Nothing Then
Range("B8").Select
End If
If Not Intersect(Target, Range("B8:K11")) Is Nothing Then
Range("B15").Select
End If
If Not Intersect(Target, Range("B15:K18")) Is Nothing Then
Range("N15").Select
End If
If Not Intersect(Target, Range("N15:R18")) Is Nothing Then
Range("O4").Select
End If
End Sub
|
|