Excel is your new Fitness Coach 💪😀
'Copy this code in a new Excel workbook and then you have to follow your new coach 😉
'#staysafe #stayhome #dosports
' If you want to avoid 2 times the same number in a row, you will find the code here
'https://www.excel-exercise.com/excel-...
'***** Code *********
' ==== START COPY HERE ======
Sub Sport()
Dim i As Long
Dim RndNumber As Long
Dim TextNumber As String
Dim MaxCatch As Long
MaxCatch = 10 'Change this value if you want more numbers
Application.Speech.Speak "Ready?"
Application.Wait (Now + TimeValue("00:00:02"))
Application.Speech.Speak "Go"
For i = 1 To MaxCatch
Randomize
If i = MaxCatch Then
Application.Speech.Speak "Last One"
End If
RndNumber = Int(Rnd() * 4) + 1 ' Generate a random number between 1 and 4
TextNumber = Application.WorksheetFunction.Choose(RndNumber, "one", "two", "three", "four")
Application.Speech.Speak TextNumber
Application.Wait (Now + TimeValue("00:00:01"))
Next
End Sub
' ===== END COPY =====
Watch video Excel is your new Fitness Coach 💪😀 online without registration, duration hours minute second in high quality. This video was added by user Excel Exercice 07 April 2020, don't forget to share it with your friends and acquaintances, it has been viewed on our site 3,728 once and liked it 112 people.