几次播放Windows媒体文件vba

我在Excel VBA中创build了一个八度钢琴。 使用键作为图像，每个附带的子弹都会弹奏一个音符。 我已经添加了使用这个代码logging每个“音符”的function，optionbutton1是“您现在正在录音”的select。

Private Sub A_Click() WindowsMediaPlayer1.URL = "F:\New Folder\puzzles\Anote.wav" If OptionButton1.Value = True Then Dim x As String x = "A" Range("A" & Rows.Count).End(xlUp).Offset(1).Select ActiveCell.Value = x End If End Sub 

我的问题在哪里播放录音。 我需要遍历所有的单元格。 我正在使用For Each Loop。 if语句当然会扩展到包含整个八度。

 Dim wks As Worksheet Set wks = ActiveSheet Dim LastRow As Long LastRow = wks.Cells(wks.Rows.Count, "A").End(xlUp).Row For Each cell In Worksheets("Sheet1").Range("A2:A" & LastRow) If cell.Value = "A" Then WindowsMediaPlayer1.URL = "F:\New Folder\puzzles\Anote.wav" WindowsMediaPlayer1.controls.play ElseIf cell.Value = "C" Then WindowsMediaPlayer1.URL = "F:\New Folder\puzzles\Cnote.wav" WindowsMediaPlayer1.controls.play End If Next cell 

要看看它通过我把一个行动等待，它循环通过细胞就好了，当我把一个代码，只是改变了单元格的值它也这样做，但与声音只有一个音符，一旦它得到最后一个单元格。

我认为我必须做出与媒体播放器控制有关的问题，但我无法弄清楚是什么。 谢谢，