Userform Combobox根据其值在媒体播放器中播放歌曲

Question

需要帮助。我有组合框，该组合框链接到工作表，该工作表将显示基于列A值的默认值。例如，>

A |闪烁的星星|通过阿里

B | ABC歌曲|通过金

C | 123首歌曲|通过Els

如果我选择A，在用户窗体中将在文本框中显示闪烁的星星和ali。我想设置是否选择A，它将播放“闪烁之星”歌曲，选择B时，它将播放ABC歌曲。请需要您的意见。

    Private Sub UserForm_Initialize()
    Set xRg = Worksheets("Sheet4").Range("A2:C7")
    Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
    Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
    Me.TextBox2.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 3, False)

    Select Case ComboBox1.Value
       Case "A"
            WindowsMediaPlayer1.Controls.Play= FollowHyperlink "#Sheet4!A2"
       Case "B"
            WindowsMediaPlayer1.Controls.Play= FollowHyperlink "#Sheet4!A3"
    End Select

End Sub
我尝试使用案例a，b和指向超链接的链接，但不起作用。感谢您的帮助。

需要帮助。我有组合框，该组合框链接到工作表，该工作表将显示基于列A值的默认值。例如，A |闪烁的星星|作者：Ali B | ABC歌曲|金·C | 123首歌曲|由Els ...

Answer 1

您需要创建一个播放列表，向其中添加一首歌曲，然后播放该歌曲。这是一个例子