'En la celda preferida coloca =SI(A1="";"";numletr(A1)).LA funcion SI es si la celda esta vacia, no presenta leyenda alguna. A1 puedes cambiarla por la de tu preferencia, donde va a escribir en lettras
Function numletr(value)
If Int(value) = 1 Then
numletr = "un bolivar con " & Int(Round(((value - Int(value)) * 100))) & "/Centimos"
Else
numletr = Num2Text(value) & " Bolivares con " & Int(Round(((value - Int(value)) * 100))) & "/Centimos"
End If
End Function
Public Function Num2Text(ByVal value As Double) As String
fraccion = value - Int(value)
value = Int(value)
Select Case value
Case 0: Num2Text = "Cero"
Case 1: Num2Text = "Uno"
Case 2: Num2Text = "Dos"
Case 3: Num2Text = "Tres"
Case 4: Num2Text = "Cuatro"
Case 5: Num2Text = "Cinco"
Case 6: Num2Text = "Seis"
Case 7: Num2Text = "Siete"
Case 8: Num2Text = "Ocho"
Case 9: Num2Text = "Nueve"
Case 10: Num2Text = "Diez"
Case 11: Num2Text = "Once"
Case 12: Num2Text = "Doce"
Case 13: Num2Text = "Trec"
Case 14: Num2Text = "Catorce"
Case 15: Num2Text = "Quince"
Case Is < 20: Num2Text = "Dieci" & Num2Text(value - 10)
Case 20: Num2Text = "Veite"
Case Is < 30: Num2Text = "Veinti" & Num2Text(value - 20)
Case 30: Num2Text = "Treinta"
Case 40: Num2Text = "Cuarenta"
Case 50: Num2Text = "Cincuenta"
Case 60: Num2Text = "Sesenta"
Case 70: Num2Text = "Setenta"
Case 80: Num2Text = "Ochenta"
Case 90: Num2Text = "Noventa"
Case Is < 100: Num2Text = Num2Text(Int(value \ 10) * 10) & " y " & Num2Text(value Mod 10)
Case 100: Num2Text = "Cien"
Case Is < 200: Num2Text = "Ciento " & Num2Text(value - 100)
Case 200, 300, 400, 600, 800: Num2Text = Num2Text(Int(value \ 100)) & "cientos"
Case 500: Num2Text = "Quinientos"
Case 700: Num2Text = "Setecientos"
Case 900: Num2Text = "Novecientos"
Case Is < 1000: Num2Text = Num2Text(Int(value \ 100) * 100) & " " & Num2Text(value Mod 100)
Case 1000: Num2Text = "Mil"
Case Is < 2000: Num2Text = "Mil " & Num2Text(value Mod 1000)
Case Is < 1000000: Num2Text = Num2Text(Int(value \ 1000)) & " Mil"
If value Mod 1000 Then Num2Text = Num2Text & " " & Num2Text(value Mod 1000)
Case 1000000: Num2Text = "Un _Millón"
Case Is < 2000000: Num2Text = "Un Millón " & Num2Text(value Mod 1000000)
Case Is < 1000000000000#: Num2Text = Num2Text(Int(value / 1000000)) & " Millones"
If (value - Int(value / 1000000) * 1000000) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000) * 1000000)
Case 1000000000000#: Num2Text = "Un Billón"
Case Is < 2000000000000#: Num2Text = "Un Billón " & Num2Text(value - Int(value / 1000000000000#) * 1000000000000#)
Case Else: Num2Text = Num2Text(Int(value / 1000000000000#)) & " Billones"
If (value - Int(value / 1000000000000#) * 1000000000000#) Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000000000#) * 1000000000000#)
End Select
End Function
Crear cuenta