ENTER押さなくても数式にて変更され文字に対してマクロ実行できますか？

A2にコードを入力するとC2にSheet2のC列から数式で文字が現れます。
その自動で現れた文字に対し、マクロを実行させたいのですが出来ますでしょうか？

C2には以下の数式が入ってます
=VLOOKUP(A2,Sheet2,3,FALSE)



今、設定しているマクロは



Private Sub Worksheet_Change_1(ByVal Target As Range)

If Target.Address = "$C$2" Then

If Target.Value = "A" Then


' 前の奴を開いていたら閉じる
Call WindowsMediaPlayer1.Close

' "movie.wmv"っていう名前のファイルを再生する
FilePath = ThisWorkbook.Path & "\" & "testA.wmv"

' ファイル名を設定する
WindowsMediaPlayer1.URL = FilePath

' 再生を開始する
Call WindowsMediaPlayer1.Controls.Play



ElseIf Target.Value = "B" Then


' 前の奴を開いていたら閉じる
Call WindowsMediaPlayer1.Close

' "movie.wmv"っていう名前のファイルを再生する
FilePath = ThisWorkbook.Path & "\" & "testB.wmv"

' ファイル名を設定する
WindowsMediaPlayer1.URL = FilePath

' 再生を開始する
Call WindowsMediaPlayer1.Controls.Play

End If
End If


End Sub

こんな感じです。

宜しくお願いします。

No.1 ベストアンサー 回答者： hallo-2007 回答日時： 2016/01/10 12:48

あらま、こちらにも同じような質問をされていましたね。

とりあえず
If Target.Address = "$A$2" Then

If Range("C2").Value = "A" Then
で試してみて・・・

この回答へのお礼

If Range("C2").Value ="特定の値" Thenで問題かいけつ出来ました
ありがとうございます

お礼日時：2016/01/12 09:14