DE NUMEROS A LETRAS

'Macro que permite convertir Numeros a Letras hasta por 999,999,999.99

'Procedimiento para Cargar la Macro

'Seleccionar y Pegar en el Portapapeles Todo Este Codigo(Con Ctrl-C)

'Abrir Libro de Excel Normal

'Elegir Herramientas/Macro/Editor de Visualbasic

'De la Barra de Menús Elegir Insertar Modulo

'Seleccionar el Modulo

'Ctrl+V para pegar todo

'Grabar en Libro de Excel

'y Listo

' Forma de llamada en una celda utilizar lo siguiente

'=conviertenumletra(celda)

Function ConvierteNumLetra(Numero)

Dim Texto

Dim Millones

Dim Miles

Dim Cientos

Dim Decimales

Dim Cadena

Dim CadMillones

Dim CadMiles

Dim CadCientos

Texto = Numero

Texto = FormatNumber(Texto, 2)

Texto = Right(Space(14) & Texto, 14)

Millones = Mid(Texto, 1, 3)

Miles = Mid(Texto, 5, 3)

Cientos = Mid(Texto, 9, 3)

Decimales = Mid(Texto, 13, 2)

CadMillones = ConvierteCifra(Millones)

CadMiles = ConvierteCifra(Miles)

CadCientos = ConvierteCifra(Cientos)

If Trim(CadMillones) > "" Then

If Trim(CadMillones) = "UN" Then

Cadena = CadMillones & " MILLON"

Else

Cadena = CadMillones & " MILLONES"

End If

End If

If Trim(CadMiles) > "" Then

Cadena = Cadena & " " & CadMiles & " MIL"

End If

If Trim(CadCientos) = "UN" Then

Cadena = Cadena & "UN PESO " & Decimales & "/100 M.N."

Else

If Miles & Cientos = "000000" Then

Cadena = Cadena & " " & Trim(CadCientos) & " DE PESOS " & Decimales & "/100 M.N."

Else

Cadena = Cadena & " " & Trim(CadCientos) & " PESOS " & Decimales & "/100 M.N."

End If

End If

ConvierteNumLetra = Trim(Cadena)

End Function

Function ConvierteCifra(Texto)

Dim Centena

Dim Decena

Dim Unidad

Dim txtCentena

Dim txtDecena

Dim txtUnidad

Centena = Mid(Texto, 1, 1)

Decena = Mid(Texto, 2, 1)

Unidad = Mid(Texto, 3, 1)

Select Case Centena

Case "1"

txtCentena = "CIEN"

If Decena & Unidad <> "00" Then

txtCentena = "CIENTO"

End If

Case "2"

txtCentena = "DOSCIENTOS"

Case "3"

txtCentena = "TRESCIENTOS"

Case "4"

txtCentena = "CUATROCIENTOS"

Case "5"

txtCentena = "QUINIENTOS"

Case "6"

txtCentena = "SEISCIENTOS"

Case "7"

txtCentena = "SETECIENTOS"

...