声音提醒

jjc_1212

扫描得到单号后，自动从原始数据里面匹配到对应的产品编码，不同的产品编码如何能给出不同的提示音或者语音朗读文字内容，请大师帮忙看看如何实现

剑指E

Qs18

Public Sub test()
    Dim arr, dic As Object, i
    Set dic = CreateObject("scripting.dictionary")
    arr = Sheet2.Range("a1").CurrentRegion.Value
    For i = 2 To UBound(arr)
        If Not dic.exists(arr(i, 4)) Then
        dic(arr(i, 4)) = arr(i, 1)
        End If
    Next
With Sheet1
    For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
        x = .Cells(i, 2)
        .Cells(i, 3).Value = dic(x)
        .Cells(i, 3).Speak
    Next
End With
End Sub