Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23159 / 76732

←次へ　｜　前へ→


	【58943】Re:マクロの実行について教えてください

ponpon - 08/11/19(水) 12:34 -


	引用なし

	パスワード

▼ねもさん：
>▼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

1 hits

▼

【58924】マクロの実行について教えてください ねも 08/11/18(火) 15:29