Formula Para Convertir En Exel Nuemros A Letras

se van al bisualbasic desde su excel como? le das alt+f11, luego te vas a insertar modulo, pegas este comando y listo la funcion te apraecera como num_texto. la escrives num_texto(en el parentesis va la celda a convertir) y listo

Function Num_texto(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, 1)

CadMiles = ConvierteCifra(Miles, 1)

CadCientos = ConvierteCifra(Cientos, 0)

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(CadMiles & CadCientos) = "UN" Then

Cadena = Cadena & "UNO CON " & Decimales & "/100"

Else

If Miles & Cientos = "000000" Then

Cadena = Cadena & " " & Trim(CadCientos) & " PESOS CON " & Decimales & " CTVOS"

Else

Cadena = Cadena & " " & Trim(CadCientos) & " PESOS CON " & Decimales & " CTVOS"

End If

End If

Num_texto = Trim(Cadena)

End Function

Function ConvierteCifra(Texto, SW)

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"

Case "8"

txtCentena = "OCHOCIENTOS"

Case "9"

txtCentena = "NOVECIENTOS"

End Select

Select Case Decena

Case "1"

...