Excel - archivo que permite cambiar de números a letras para excel

   
Vista:

archivo que permite cambiar de números a letras para excel

Publicado por David (1 intervención) el 28/07/2014 20:38:39
Que tal marcelo, te agradezco si me pudieras enviar el archivo que permite cambiar de números a letras para excel.
Gracias
Saludos!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JoaoM

archivo que permite cambiar de números a letras para excel

Publicado por JoaoM (161 intervenciones) el 29/07/2014 00:41:56
Si te sirve adaptalo donde dice Bolívares, colocale el tuyo, donde dice & "/Centimos" puedes colocar & "/100"

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
'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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

archivo que permite cambiar de números a letras para excel

Publicado por CronyTech (1 intervención) el 30/12/2015 05:01:11
Hola!
Entiendo que este post es antiguo pero tal vez le sirva a alguien más.
Con este complemento de Excel pueden convertir números a letras fácilmente:

http://cronytech.jimdo.com/pruebas/excelmatic/

Aparte incluye otras funcionalidades como crear/proteger varias hojas a la vez, consolidar libros, etc.

Espero les sirva.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar