|
▼ponpon さん:
ありがとうございます。画面出てきました。
セル"F10"に値を入力した値をA列から選んでその場所にセルを移動するのですが"F10"に値を入力しても動作しません。マクロからだと動作するのですが、
よろしく御願いします
Private Sub Workcheet_Change(ByVal Target As Range)
With Target
If IsEmpty(.Value) Then Exit Sub
If Not IsNumeric(.Value) Then Exit Sub
End With
If Application.Intersect(Target, Range("F10")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Dim アドレス As Variant
アドレス = Application.Match(Range("F10").Value2, Columns(1), 0)
If Not IsError(アドレス) Then
Cells(アドレス, 1).Select
End If
Range("F10").Select
Selection.ClearContents
Application.EnableEvents = True
End Sub
|
|