EXCEL VBA 文字列の読み上げ・セルのデータを読み上げる（読み上げ機能：RangeオブジェクトのSpeakメソッド）

EXCEL VBA 文字列の読み上げ・セルのデータを音声で読み上げる（読み上げ機能：RangeオブジェクトのSpeakメソッド）

セル範囲の内容を順番に読み上げます。Speakメゾット（横方向・縦方向）

'
'
Sub Speak01() '横方向に読み上げます。

    Range("A2:C11").Speak xlSpeakByRows

End Sub


Sub Speak02() '縦方向に読み上げます。

    Range("F2:G11").Speak xlSpeakByColumns

End Sub 
'

セル範囲の計算式又は、計算結果を順番に読み上げます。Speakメゾット（数式の読み上げ可否）

'
'
Sub Speak03() '数式の読み上げを行う。

    Range("B3：D12").Speak xlSpeakByRows, True

End Sub


Sub Speak04()  '値の読み上げを行う。

    Range("B3：D12").Speak xlSpeakByRows, False

End Sub
'

メッセージボックスの内容を音声で読み上げ、回答する。

'
'******** AKIRA55.COM ******* https://akira55.com/speak/
'
Sub Speak05()  'メッセージボックスと音声を利用してアンケートに解答する。


    Dim I As Long
    Dim Retmsg As Integer
    
    For I = 2 To 6
        
        Range("B" & I).Speak 'B列のアンケート内容を読み上げます。
        
        Retmsg = MsgBox(Range("B" & I), vbYesNo)  'B列のアンケート内容を表示（Yes/NO）
        
        If Retmsg = 6 Then
                Range("C" & I) = "はい"  'Yes　C列の結果に記入
        
            Else
                Range("C" & I) = "いいえ"  'No　C列の結果に記入
        End If
        
        Range("C" & I).Speak  '回答内容を音声で読み上げます。（はい・いいえ）
    
    Next I
    
    
End Sub
'