Question

我想要实现那个Excel＆＃34;说＆＃34;放置在单元格上的单元格值。

我已经获得了此代码，但我能够听到细胞的声音。只有在我选择另一个之后才有价值。你能救我吗？

Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = True
    Set Target = ActiveCell    
    Application.Speech.Speak (Target)

End Sub

Answer 1

试试这个：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Debug.Print Target.Address
End Sub

然后改变它说话，而不是调试。：）

Answer 2

如果你想要Excel来说＆＃34;说＆＃34;无论你在单元格中输入什么，首先运行这个短宏，然后输入：

Sub WhatDidYouEnter()
    Application.Speech.SpeakCellOnEnter = True
End Sub

如果你想让Excel来＆＃34;说＆＃34;无论你有什么选择，然后是事件宏：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveCell
        If .Value <> "" Then Application.Speech.Speak (.Value)
    End With
End Sub

会做到这一点。

Excel到语音细胞＆＃39;使用VBA选择时的值

2 个答案: