Tag: 媒体

几次播放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 […]