EXCEL 英文連結網路發音

'程式碼放到“工作表1"，直接在a欄點選，需連上網路
'注意：發音網址英文單字需為“小寫格式"，如不是請自行轉換

#If VBA7 Then
   Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias _
   "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
   lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
   hwndCallback As Long) As Long
 #Else
   Private Declare Function mciSendString Lib "winmm.dll" Alias _
   "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
   lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
   hwndCallback As Long) As Long
 #End If

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("a:a")) Is Nothing Then
       If Target.Value = "" Then Exit Sub
       Playmp3 = mciSendString("play " & "https://s.yimg.com/bg/dict/dreye/live/f/" & Target.Value & ".mp3", 0&, 0, 0)
    End If

End Sub

snare wrote:
試了一些單字，發音網(恕刪)

fangunun wrote:
因為VBA無法在手機上使用，有無直接寫函數的方式代入音效(恕刪)

snare wrote:
只能用hyperlink...(恕刪)

fangunun wrote:

請問
如圖所示紅框處，
目前我點下去的時候會開啟一個YAHOO翻譯的頁面，
自行點選喇叭才能發音
有無直接點選後不要開啟網頁，
讓單字直接在EXCEL裡發音的方法呢?