使用VBA的Microsoft Excel语音-说多个项目？

我使用以下代码读取Microsoft中单元格的内容

出类拔萃

Sub Warning()
With Range("A1")
    .Speak
     End With

End Sub

现在我想读出几个单元格的内容，作为

判决

比如说

如果A1包含名称，B1包含'Morning'的值

“下午”或“晚上”作为文本，然后我想让PC讲

然后调用子警告

“早上好，约翰·多伊，你今天好吗？”

在阅读《约翰·多伊》之前，我尝试加入了

.value（“早上好”）

但我不能让它一次读一个以上的东西

有人能帮忙吗

---

谢谢

直接调用

语音对象，而不是通过
范围
：

Application.Speech.Speak "Good " & Range("B1").Value & " " & Range("A1").Value & ", How are you today?"

这将读取列A:

Sub Recite()
    L = Cells(Rows.Count, "A").End(xlUp).Row
    For n = 1 To L
        Cells(n, 1).Speak
    Next n
End Sub