エクセル

質問

A　　　　B　　　　C　　　　・・・
１　　　■
２　　　１
３　　　２
～～～～～～
101　　102
102　　103

例えば、A1セル(■)に「102」と入力すると自動的にA101セルに色がつくようになっています。
そこで質問ですが、A1セルに「102」と入力したら、選択しているセルが自動的にA101になるように設定することは可能でしょうか。

(当たり前ですが、、、A1セルに102と入力してエンターキーを押すと、毎回A2セルが選択されてしまいます。）

回答No.2

米沢 栄蔵（@YON56）

Private Sub Worksheet_Change(ByVal Target As Range)

Dim A, B

A = Target.Row
B = Target.Column
If A = 1 And B = 1 And Target.Cells.Value = 102 Then
Cells(101, 1).Select
End If

End Sub

回答No.1

kybo

ＶＢＡになってしまいます。
シートの見出しで右クリック→コード表示で以下を貼りつけ。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.Goto Range("A" & Target.Value - 1), True
End Sub