Sound - can numbers 1 to 90 be presented as speech

[oldbrewer]

I want to make a bingo game for my grandson. I can produce the random numbers and log them for checking purposes, but it would be nice to have the numbers "spoken" as well.

Thanks for reading.

 

[Andrew Poulsom]

Are you using VBA? If so please post your code. You can use Application.Speech.Speak or Range.Speak.

 

[pgc01]

Hi

In addition, you can also add some or all the Speak buttons to the QAT and make excel speak to him.

 

[oldbrewer]

this code is not quite running but i will fix it tomorrow - I have indicated where I want the sound to go in the code

1 Randomize
10 num = (Int(100 * Rnd())) + 1
If num > 90 Then GoTo 1
If num < 1 Then GoTo 1
If num < 10 Then left1 = 1: right1 = num: GoTo 20
left1 = Left(num, 1)
right1 = Right(num, 1)
If right1 = 0 Then right1 = 10
20 Cells(20, 1) = left1
Cells(21, 1) = right1
Cells(22, 1) = num
If Cells(right1, left1) = "." Then GoTo 30 Else GoTo 1
30 Cells(right1, left1) = num
'I would like the value of num to be spoken here
End
End Sub

 

[Andrew Poulsom]

Did you try?

Application.Speech.Speak num

 

[oldbrewer]

I tried nothing because I didn't know how. I have been retired 5 years now and my excel skills are waning and I was never any good at VBA....

 

[oldbrewer]

I have inserted the line and get this error message - run time error 438 object doesn't support this property or method ALSO a line with this code in it stops the macro
If Cells(5, 5) = "." Then GoTo 30 Else GoTo 1
with everything up to and including then highlighted in yellow.

 

[oldbrewer]

I have tried for an hour to sort the if cells(5,5) line - and failed.