Speak Fractions

[johndrew]

I am wanting to have a macro start on C2 read and speak, then go to D2 read and speak, then E2
and read and speak the value in the cell in Columns D and E are in fractions. Then next row
For Example

="item" & C2
"Height" & "D2" then read ="Width" & E2

I have A in C2 and 12.5 in D2 and 14.0625 in E2
Which would result in it speaking

Item A Height 12 and one half, Width fourteen and one eighth
then next row.

 

[bertie]

The function to convert the decimal part into text is pretty basic, but, it suffices to demonstrate how to build up the output string.

Option Explicit


Sub SayWhat()
   Dim sSpeak As String
   Dim frac As Double
   
   With Sheets("Sheet1").Range("C2")
      sSpeak = "Item " & .Value
   End With
   
   With Sheets("Sheet1").Range("D2")
      frac = .Value - Int(.Value)
      sSpeak = sSpeak & " height " & Int(.Value) & GetFraction(frac)
   End With
   
   With Sheets("Sheet1").Range("E2")
      frac = .Value - Int(.Value)
      sSpeak = sSpeak & " width " & Int(.Value) & GetFraction(frac)
   End With
   
   Application.Speech.Speak sSpeak
End Sub


Private Function GetFraction(ByVal fraction As Double) As String
   Select Case fraction
      Case 0.0625
         GetFraction = " and an eighth, "
      Case 0.25
         GetFraction = " and a quarter, "
      Case 0.5
         GetFraction = " and a half, "
         '
         'others
         '
      Case Else
         GetFraction = ""     'zero passed
   End Select
End Function