| |
▼ねも さん：
>▼ponpon さん：
>ありがとうございます。画面出てきました。
>
>セル"Ｆ１０"に値を入力した値をＡ列から選んでその場所にセルを移動するのですが"Ｆ１０"に値を入力しても動作しません。マクロからだと動作するのですが、
>よろしく御願いします
>
>Private Sub Workcheet_Change(ByVal Target As Range)
↑Worksheetでは？
>End Sub
F10は日付（シリアル）のですか？
なら、これならどうですか？
Private Sub Worksheet_Change(ByVal Target As Range)
Dim アドレス As Variant
With Target
If IsEmpty(.Value) Then Exit Sub
If Not IsDate(.Value) Then Exit Sub
End With
If Application.Intersect(Target, Range("F10")) Is Nothing Then Exit Sub
Application.EnableEvents = False
アドレス = Application.Match(Range("F10").Value2, Columns(1), 0)
If Not IsError(アドレス) Then
Cells(アドレス, 1).Select
End If
Range("F10").ClearContents
Application.EnableEvents = True
End Sub
|
|
ponpon
- 08/11/19(水) 12:34 -
