動画_セルをダブルクリックすると動画を再生する

トップページ（目次）

478.動画_セルをダブルクリックすると動画を再生する

＜実行前後＞

→

'Module1ではなく上のSheet1(Sheet1)（Microsoft Excel Objects）内へ設置する
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Target = Range("A1")
    
    ActiveSheet.WindowsMediaPlayer1.URL = Target.Item(1).Value

End Sub