Formula Pasar Numero A Letra

Abra la hoja de Cálculo de OpenOffice.org[->0] Vaya al menú Herramientas y luego a Macro (ver imagen) Elija “Organizar Macros..” Después elija OpenOffice.org Basic, Elegir “NUEVO” Elimine las lineasde código que aparecen. Pegue el código correspondiente. Guardar el código. Ahora ya se puede usar la macro en la hoja de calculo (y probablemente en otras partes de OpenOffice) Elija el menú“Archivo” y luego “Cerrar”
· Abra una hoja de cálculo nueva.
· Teclee un valor en alguna celda, ej. 123 en la celda A1 y presione ENTER
· Luego en la celda (A2) teclee: =NUMLET(A1) y presione ENTERAparecerá: CIENTO VEINTITRÉS.
listo .. puedes codificarlo a tu gusto.!!
CÓDIGO DEL MACRO

Public Function NumLetras(ByVal Numero As Double, ByVal Mayusculas As Boolean) As String Dim NumTmp As String Dimco1 As Integer Dim co2 As Integer Dim pos As Integer Dim dig As Integer Dim cen As Integer Dim dec As Integer Dim uni As Integer Dim letra1 As String Dim letra2 As String Dim letra3 As String DimLeyenda As String Dim Leyenda1 As String Dim TFNumero As String Dim Mayusculas As Boolean If Numero 1 Then Leyenda = "billones " End If Case 2 If cen + dec + uni >= 1 And Val(Mid(NumTmp, 7, 3)) = 0 ThenLeyenda = "mil millones " ElseIf cen + dec + uni >= 1 Then Leyenda = "mil " End If Case 3 If cen + dec = 0 And uni = 1 Then Leyenda = "millon " ElseIf cen > 0 Or dec > 0 Or uni > 1 Then Leyenda ="millones " End If Case 4 If cen + dec + uni >= 1 Then Leyenda = "mil " End If Case 5 If cen + dec + uni >= 1 Then Leyenda = "" End If End Select co1 = co1 + 1 TFNumero = TFNumero + letra3 + letra2 + letra1+ Leyenda Leyenda = "" letra1 = "" letra2 = "" letra3 = "" Loop If Val(NumTmp) = 0 Or Val(NumTmp) 0 Then cTexto = "veinti" End If Case 3: cTexto = "treinta " Case 4: cTexto = "cuarenta " Case 5:cTexto = "cincuenta " Case 6: cTexto = "sesenta " Case 7: cTexto = "setenta " Case 8: cTexto = "ochenta " Case 9: cTexto = "noventa " Case Else: cTexto = "" End Select If uni > 0 And dec > 2 Then...