ExcelがVBAで選択されたときにいつでもセルの値を音声にする

Question

私はそれを達成するためにtriyinです。それを置くときにセルの値を "言う"。

私はこのコードを持っていますが、私は別のものを選択した後でなければ細胞の価値を聞くことができません。手伝って頂けますか？

Sub Worksheet_Change(ByVal Target As Range) 

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

End Sub 

Answer 1

は、その後、エントリーます

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

とを、あなたは、Excelは、あなたが何を持っている「と言う」したい場合選択し、[イベントマクロ：

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

は、トリックを行います。

Answer 2

これを試してみてください：

Option Explicit 

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

は、次に話すようにそれを変更し、デバッグすることはありません。あなたはExcelが何でもあなたがセルに入力するには、最初にこの短いマクロを実行する「と言う」したい場合:)