Is there a formular or format to change 1 to one

G

Gary''s Student

First select the cells that you want to change. Then pull-down:

Edit > Find > and enter 1 in the what field and one in the replace field and
then click replace all
 
K

Kevin

Thanks for the tip. Is there one that does the numbers without the dollars
and cents.
Kevin
 
N

Norman Jones

Hi Kevin

To convert whole numbers, or integer values, try this minor adaptation of
the main SpellNumber function:

'============>>
Function SpellNumber(ByVal MyNumber)
Dim sStr As String
Dim Temp As Variant
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "

' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Remove decimals
If DecimalPlace > 0 Then
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If

Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then sStr = Temp & Place(Count) & sStr
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

SpellNumber = sStr

End Function
'<<============
 
Top