How do I change my numbers to text using excel?

I've been trying to do this but if you can help me could be great.





I need to convert my numbers to text for example:


1=One


10=Ten


4567=Four thousand five hundred sixty seven





Something like that any ideas?





Thanks for answering!How do I change my numbers to text using excel?
Ok, there's no problem... seems like you don't have problems with spanish so take this:





Solamente con macros


Tengo este macro pegalo :) en tu editor de macros de visual basic y lo guardas... si no sabes como dale en:


Menu Herramientas%26gt;%26gt;Macro%26gt;%26gt;Editor de Visual Basic%26gt;%26gt; Seleccionas Modulos%26gt;%26gt; nuevo modulo y pegas esto








Function num_letras(Numero As Double) As String


Dim Letras As String


Dim HuboCentavos As Boolean


Dim Decimales As Double


Decimales = Numero - Int(Numero)


Numero = Int(Numero)


Dim Numeros(90) As String


Numeros(0) = ';cero';


Numeros(1) = ';uno';


Numeros(2) = ';dos';


Numeros(3) = ';tres';


Numeros(4) = ';cuatro';


Numeros(5) = ';cinco';


Numeros(6) = ';seis';


Numeros(7) = ';siete';


Numeros(8) = ';ocho';


Numeros(9) = ';nueve';


Numeros(10) = ';diez';


Numeros(11) = ';once';


Numeros(12) = ';doce';


Numeros(13) = ';trece';


Numeros(14) = ';catorce';


Numeros(15) = ';quince';


Numeros(20) = ';veinte';


Numeros(30) = ';treinta';


Numeros(40) = ';cuarenta';


Numeros(50) = ';cincuenta';


Numeros(60) = ';sesenta';


Numeros(70) = ';setenta';


Numeros(80) = ';ochenta';


Numeros(90) = ';noventa';


Do


'*---%26gt; Centenas de Mill贸n


If (Numero %26lt; 1000000000) And (Numero %26gt;= 100000000) Then


If (Int(Numero / 100000000) = 1) And ((Numero - (Int(Numero / 100000000) * 100000000)) %26lt; 1000000) Then


Letras = Letras %26amp; ';cien millones ';


Else


Select Case Int(Numero / 100000000)


Case 1


Letras = Letras %26amp; ';ciento';


Case 5


Letras = Letras %26amp; ';quinientos';


Case 7


Letras = Letras %26amp; ';setecientos';


Case 9


Letras = Letras %26amp; ';novecientos';


Case Else


Letras = Letras %26amp; Numeros(Int(Numero / 100000000))


End Select


If (Int(Numero / 100000000) %26lt;%26gt; 1) And (Int(Numero / 100000000) %26lt;%26gt; 5) And (Int(Numero / 100000000) %26lt;%26gt; 7) And (Int(Numero / 100000000) %26lt;%26gt; 9) Then


Letras = Letras %26amp; ';cientos ';


Else


Letras = Letras %26amp; '; ';


End If


End If


Numero = Numero - (Int(Numero / 100000000) * 100000000)


End If


'*---%26gt; Decenas de Mill贸n


If (Numero %26lt; 100000000) And (Numero %26gt;= 10000000) Then


If Int(Numero / 1000000) %26lt; 16 Then


Letras = Letras %26amp; Numeros(Int(Numero / 1000000))


Letras = Letras %26amp; '; millones ';


Numero = Numero - (Int(Numero / 1000000) * 1000000)


Else


Letras = Letras %26amp; Numeros(Int(Numero / 10000000) * 10)


Numero = Numero - (Int(Numero / 10000000) * 10000000)


If Numero %26gt; 1000000 Then


Letras = Letras %26amp; '; y ';


End If


End If


End If


'*---%26gt; Unidades de Mill贸n


If (Numero %26lt; 10000000) And (Numero %26gt;= 1000000) Then


If Int(Numero / 1000000) = 1 Then


Letras = Letras %26amp; '; un mill贸n ';


Else


Letras = Letras %26amp; Numeros(Int(Numero / 1000000))


Letras = Letras %26amp; '; millones ';


End If


Numero = Numero - (Int(Numero / 1000000) * 1000000)


End If


'*---%26gt; Centenas de Millar


If (Numero %26lt; 1000000) And (Numero %26gt;= 100000) Then


If (Int(Numero / 100000) = 1) And ((Numero - (Int(Numero / 100000) * 100000)) %26lt; 1000) Then


Letras = Letras %26amp; ';cien mil ';


Else


Select Case Int(Numero / 100000)


Case 1


Letras = Letras %26amp; ';ciento';


Case 5


Letras = Letras %26amp; ';quinientos';


Case 7


Letras = Letras %26amp; ';setecientos';


Case 9


Letras = Letras %26amp; ';novecientos';


Case Else


Letras = Letras %26amp; Numeros(Int(Numero / 100000))


End Select


If (Int(Numero / 100000) %26lt;%26gt; 1) And (Int(Numero / 100000) %26lt;%26gt; 5) And (Int(Numero / 100000) %26lt;%26gt; 7) And (Int(Numero / 100000) %26lt;%26gt; 9) Then


Letras = Letras %26amp; ';cientos ';


Else


Letras = Letras %26amp; '; ';


End If


End If


Numero = Numero - (Int(Numero / 100000) * 100000)


End If


'*---%26gt; Decenas de Millar


If (Numero %26lt; 100000) And (Numero %26gt;= 10000) Then


If Int(Numero / 1000) %26lt; 16 Then


Letras = Letras %26amp; Numeros(Int(Numero / 1000))


Letras = Letras %26amp; '; mil ';


Numero = Numero - (Int(Numero / 1000) * 1000)


Else


Letras = Letras %26amp; Numeros(Int(Numero / 10000) * 10)


Numero = Numero - (Int((Numero / 10000)) * 10000)


If Numero %26gt; 1000 Then


Letras = Letras %26amp; '; y ';


Else


Letras = Letras %26amp; '; mil ';


End If


End If


End If


'*---%26gt; Unidades de Millar


If (Numero %26lt; 10000) And (Numero %26gt;= 1000) Then


If Int(Numero / 1000) = 1 Then


Letras = Letras %26amp; ';';


Else


Letras = Letras %26amp; Numeros(Int(Numero / 1000))


End If


Letras = Letras %26amp; '; mil ';


Numero = Numero - (Int(Numero / 1000) * 1000)


End If


'*---%26gt; Centenas


If (Numero %26lt; 1000) And (Numero %26gt; 99) Then


If (Int(Numero / 100) = 1) And ((Numero - (Int(Numero / 100) * 100)) %26lt; 1) Then


Letras = Letras %26amp; ';cien ';


Else


Select Case Int(Numero / 100)


Case 1


Letras = Letras %26amp; ';ciento';


Case 5


Letras = Letras %26amp; ';quinientos';


Case 7


Letras = Letras %26amp; ';setecientos';


Case 9


Letras = Letras %26amp; ';novecientos';


Case Else


Letras = Letras %26amp; Numeros(Int(Numero / 100))


End Select


If (Int(Numero / 100) %26lt;%26gt; 1) And (Int(Numero / 100) %26lt;%26gt; 5) And (Int(Numero / 100) %26lt;%26gt; 7) And (Int(Numero / 100) %26lt;%26gt; 9) Then


Letras = Letras %26amp; ';cientos ';


Else


Letras = Letras %26amp; '; ';


End If


End If


Numero = Numero - (Int(Numero / 100) * 100)


End If


'*---%26gt; Decenas


If (Numero %26lt; 100) And (Numero %26gt; 9) Then


If Numero %26lt; 16 Then


Letras = Letras %26amp; Numeros(Int(Numero))


Numero = Numero - Int(Numero)


Else


Letras = Letras %26amp; Numeros(Int((Numero / 10)) * 10)


Numero = Numero - (Int((Numero / 10)) * 10)


If Numero %26gt; 0.99 Then


Letras = Letras %26amp; '; y ';


End If


End If


End If


'*---%26gt; Unidades


If (Numero %26lt; 10) And (Numero %26gt; 0.99) Then


Letras = Letras %26amp; Numeros(Int(Numero))


Numero = Numero - Int(Numero)


End If


Loop Until (Numero = 0)


'*---%26gt; Decimales


If (Decimales %26gt; 0) Then


Letras = Letras %26amp; '; con ';


Letras = Letras %26amp; Format(Decimales * 100, ';00';) %26amp; ';/100 centavos';


End If


num_letras = Letras


End FunctionHow do I change my numbers to text using excel?
You need to program it as a function... actually there's no factory function that does that...
http://support.microsoft.com/kb/181298/e鈥?/a>