conversion de numeros en letras

hola, Victor Manuel !

... converrtir una cantidad ej. 12,453.00 en letra = doce mil cuatrocientos cincuenta y tres

checate el siguiente enlace: http://tinyurl.com/5njo9

saludos,
hector.

Gracias a la comunidad de españa, ya encontre un modulo para hacer la
conversion o traduccion y la modifique para bien de la comunidad mexicana,
solamente tienen que copiar y pegar lo siguiente dentro de un modulo nuevo
del editor de VisualBasic. y en la hoja de calculo en la celda donde quieren
la traduccion solamente se teclea: =ENLETRAS(celda), donde celda es la
cantidad que quieren traducir.


Function EnLetras(Valor) As String ' Función Principal '
If Not IsNumeric(Valor) Then
EnLetras = "¡ La referencia no es valor o... 'excede' la precisión !!!":
Exit Function
End If: Dim Moneda As String, Fracs As String, Cents As Integer
If Int(Abs(Valor)) = 1 Then Moneda = " PESO " Else Moneda = " PESOS "
If Right(Letras(Abs(Valor)), 6) = "ILLON " Or Right(Letras(Abs(Valor)), 8)
= "ILLONES " Then Moneda = "DE" & Moneda
Cents = Application.Round(Abs(Valor) - Int(Abs(Valor)), 2) * 100
'If Cents = 1 Then Fracs = " centavo " Else Fracs = " centavos "
If Cents = 0 Then EnLetras = "( " & Letras(Int(Abs(Valor))) & Moneda &
Fracs & "00/100 M.N. )" Else EnLetras = "( " & Letras(Int(Abs(Valor))) &
Moneda & Fracs & Cents & "/100 M.N. )"
'If Valor < 0 Then EnLetras = "menos " & EnLetras
End Function
Private Function Letras(Valor) As String
' Función Auxiliar [uso 'exclusivo'de la función 'principal'] '
Select Case Int(Valor)
Case 0: Letras = "CERO"
Case 1: Letras = "UN"
Case 2: Letras = "DOS"
Case 3: Letras = "TRES"
Case 4: Letras = "CUATRO"
Case 5: Letras = "CINCO"
Case 6: Letras = "SEIS"
Case 7: Letras = "SIETE"
Case 8: Letras = "OCHO"
Case 9: Letras = "NUEVE"
Case 10: Letras = "DIEZ"
Case 11: Letras = "ONCE"
Case 12: Letras = "DOCE"
Case 13: Letras = "TRECE"
Case 14: Letras = "CATORCE"
Case 15: Letras = "QUINCE"
Case Is < 20: Letras = "DIECI" & Letras(Valor - 10)
Case 20: Letras = "VEINTE"
Case Is < 30: Letras = "VEINTI" & Letras(Valor - 20)
Case 30: Letras = "TREINTA"
Case 40: Letras = "CUARENTA"
Case 50: Letras = "CINCUENTA"
Case 60: Letras = "SESENTA"
Case 70: Letras = "SETENTA"
Case 80: Letras = "OCHENTA"
Case 90: Letras = "NOVENTA"
Case Is < 100: Letras = Letras(Int(Valor \ 10) * 10) & " Y " &
Letras(Valor Mod 10)
Case 100: Letras = "CIEN"
Case Is < 200: Letras = "CIENTO " & Letras(Valor - 100)
Case 200, 300, 400, 600, 800: Letras = Letras(Int(Valor \ 100)) &
"CIENTOS"
Case 500: Letras = "QUINIENTOS"
Case 700: Letras = "SETECIENTOS"
Case 900: Letras = "NOVECIENTOS"
Case Is < 1000: Letras = Letras(Int(Valor \ 100) * 100) & " " &
Letras(Valor Mod 100)
Case 1000: Letras = "UN MIL"
Case Is < 2000: Letras = "UN MIL " & Letras(Valor Mod 1000)
Case Is < 1000000: Letras = Letras(Int(Valor \ 1000)) & " MIL"
If Valor Mod 1000 Then Letras = Letras & " " & Letras(Valor Mod 1000)
Case 1000000: Letras = "UN MILLON "
Case Is < 2000000: Letras = "UN MILLON " & Letras(Valor Mod 1000000)
Case Is < 1000000000000#: Letras = Letras(Int(Valor / 1000000)) & "
MILLONES "
If (Valor - Int(Valor / 1000000) * 1000000) _
Then Letras = Letras & Letras(Valor - Int(Valor / 1000000) * 1000000)
Case 1000000000000#: Letras = "UN BILLON "
Case Is < 2000000000000#
Letras = "UN BILLON " & Letras(Valor - Int(Valor / 1000000000000#) *
1000000000000#)
Case Else: Letras = Letras(Int(Valor / 1000000000000#)) & " BILLONES "
If (Valor - Int(Valor / 1000000000000#) * 1000000000000#) Then Letras
= Letras & " " & Letras(Valor - Int(Valor / 1000000000000#) * 1000000000000#)
End Select
End Function

Espero que les sirva a todos.

"Victor Manuel Tapia Vargas" wrote:

Como puedo hacer en excel para converir una cantidad ej.
12,453.00 en letra = doce mil cuatrocientos cincuenta y
tres

Victor, una pregunta como le hago para abrir un nuevo modulo del editor
VisuaBasic ya que nunca he manejado VisualBasic.

"Victor Manuel Tapia Vargas" escribió:

Gracias a la comunidad de españa, ya encontre un modulo para hacer la
conversion o traduccion y la modifique para bien de la comunidad mexicana,
solamente tienen que copiar y pegar lo siguiente dentro de un modulo nuevo
del editor de VisualBasic. y en la hoja de calculo en la celda donde quieren
la traduccion solamente se teclea: =ENLETRAS(celda), donde celda es la
cantidad que quieren traducir.


Function EnLetras(Valor) As String ' Función Principal '
If Not IsNumeric(Valor) Then
EnLetras = "¡ La referencia no es valor o... 'excede' la precisión !!!":
Exit Function
End If: Dim Moneda As String, Fracs As String, Cents As Integer
If Int(Abs(Valor)) = 1 Then Moneda = " PESO " Else Moneda = " PESOS "
If Right(Letras(Abs(Valor)), 6) = "ILLON " Or Right(Letras(Abs(Valor)), 8)
= "ILLONES " Then Moneda = "DE" & Moneda
Cents = Application.Round(Abs(Valor) - Int(Abs(Valor)), 2) * 100
'If Cents = 1 Then Fracs = " centavo " Else Fracs = " centavos "
If Cents = 0 Then EnLetras = "( " & Letras(Int(Abs(Valor))) & Moneda &
Fracs & "00/100 M.N. )" Else EnLetras = "( " & Letras(Int(Abs(Valor))) &
Moneda & Fracs & Cents & "/100 M.N. )"
'If Valor < 0 Then EnLetras = "menos " & EnLetras
End Function
Private Function Letras(Valor) As String
' Función Auxiliar [uso 'exclusivo'de la función 'principal'] '
Select Case Int(Valor)
Case 0: Letras = "CERO"
Case 1: Letras = "UN"
Case 2: Letras = "DOS"
Case 3: Letras = "TRES"
Case 4: Letras = "CUATRO"
Case 5: Letras = "CINCO"
Case 6: Letras = "SEIS"
Case 7: Letras = "SIETE"
Case 8: Letras = "OCHO"
Case 9: Letras = "NUEVE"
Case 10: Letras = "DIEZ"
Case 11: Letras = "ONCE"
Case 12: Letras = "DOCE"
Case 13: Letras = "TRECE"
Case 14: Letras = "CATORCE"
Case 15: Letras = "QUINCE"
Case Is < 20: Letras = "DIECI" & Letras(Valor - 10)
Case 20: Letras = "VEINTE"
Case Is < 30: Letras = "VEINTI" & Letras(Valor - 20)
Case 30: Letras = "TREINTA"
Case 40: Letras = "CUARENTA"
Case 50: Letras = "CINCUENTA"
Case 60: Letras = "SESENTA"
Case 70: Letras = "SETENTA"
Case 80: Letras = "OCHENTA"
Case 90: Letras = "NOVENTA"
Case Is < 100: Letras = Letras(Int(Valor \ 10) * 10) & " Y " &
Letras(Valor Mod 10)
Case 100: Letras = "CIEN"
Case Is < 200: Letras = "CIENTO " & Letras(Valor - 100)
Case 200, 300, 400, 600, 800: Letras = Letras(Int(Valor \ 100)) &
"CIENTOS"
Case 500: Letras = "QUINIENTOS"
Case 700: Letras = "SETECIENTOS"
Case 900: Letras = "NOVECIENTOS"
Case Is < 1000: Letras = Letras(Int(Valor \ 100) * 100) & " " &
Letras(Valor Mod 100)
Case 1000: Letras = "UN MIL"
Case Is < 2000: Letras = "UN MIL " & Letras(Valor Mod 1000)
Case Is < 1000000: Letras = Letras(Int(Valor \ 1000)) & " MIL"
If Valor Mod 1000 Then Letras = Letras & " " & Letras(Valor Mod 1000)
Case 1000000: Letras = "UN MILLON "
Case Is < 2000000: Letras = "UN MILLON " & Letras(Valor Mod 1000000)
Case Is < 1000000000000#: Letras = Letras(Int(Valor / 1000000)) & "
MILLONES "
If (Valor - Int(Valor / 1000000) * 1000000) _
Then Letras = Letras & Letras(Valor - Int(Valor / 1000000) * 1000000)
Case 1000000000000#: Letras = "UN BILLON "
Case Is < 2000000000000#
Letras = "UN BILLON " & Letras(Valor - Int(Valor / 1000000000000#) *
1000000000000#)
Case Else: Letras = Letras(Int(Valor / 1000000000000#)) & " BILLONES "
If (Valor - Int(Valor / 1000000000000#) * 1000000000000#) Then Letras
= Letras & " " & Letras(Valor - Int(Valor / 1000000000000#) * 1000000000000#)
End Select
End Function

Espero que les sirva a todos.

"Victor Manuel Tapia Vargas" wrote:

> Como puedo hacer en excel para converir una cantidad ej.
> 12,453.00 en letra = doce mil cuatrocientos cincuenta y
> tres
>

Para abrir un nuevo modulo en excel se tiene que hacer lo
siguiente:

1.- ingresar al menu de Herramientas/Macros/Editor de
Visual Basic < tambien puedes oprimir las teclas alt+F11
2.- Dentro del Editor de Visual Basic ingresas al menu
Insertar/Modulo
3.- te aparece una ventana con el nombre del modulo1 (esto
es si es el primer modulo que ingresas)
4.- copias y pegas dentro de la ventana del modulo el
macro indicado.
5.- cierras el editor
6.- teclea =enletras(referencia) en la celda donde quieres
el texto y la referencia es donde tienes el numero a
traducir.

mas dudas, escribeme a mi correo.

Victor, una pregunta como le hago para abrir un nuevo

modulo del editor

VisuaBasic ya que nunca he manejado VisualBasic.

"Victor Manuel Tapia Vargas" escribió:

Gracias a la comunidad de espaà±a, ya encontre un

modulo para hacer la

conversion o traduccion y la modifique para bien de la

comunidad mexicana,

solamente tienen que copiar y pegar lo siguiente dentro

de un modulo nuevo

del editor de VisualBasic. y en la hoja de calculo en

la celda donde quieren

la traduccion solamente se teclea: =ENLETRAS(celda),

donde celda es la

cantidad que quieren traducir.


Function EnLetras(Valor) As String ' Función

Principal '

If Not IsNumeric(Valor) Then
EnLetras = "¡ La referencia no es valor

o... 'excede' la precisión !!!":

Exit Function
End If: Dim Moneda As String, Fracs As String, Cents

As Integer

If Int(Abs(Valor)) = 1 Then Moneda = " PESO " Else

Moneda = " PESOS "

If Right(Letras(Abs(Valor)), 6) = "ILLON " Or Right

(Letras(Abs(Valor)), 8)

= "ILLONES " Then Moneda = "DE" & Moneda
Cents = Application.Round(Abs(Valor) - Int(Abs

(Valor)), 2) * 100

'If Cents = 1 Then Fracs = " centavo " Else Fracs = "

centavos "

If Cents = 0 Then EnLetras = "( " & Letras(Int(Abs

(Valor))) & Moneda &

Fracs & "00/100 M.N. )" Else EnLetras = "( " & Letras

(Int(Abs(Valor))) &

Moneda & Fracs & Cents & "/100 M.N. )"
'If Valor < 0 Then EnLetras = "menos " & EnLetras
End Function
Private Function Letras(Valor) As String
' Función Auxiliar [uso 'exclusivo'de la

función 'principal'] '

Select Case Int(Valor)
Case 0: Letras = "CERO"
Case 1: Letras = "UN"
Case 2: Letras = "DOS"
Case 3: Letras = "TRES"
Case 4: Letras = "CUATRO"
Case 5: Letras = "CINCO"
Case 6: Letras = "SEIS"
Case 7: Letras = "SIETE"
Case 8: Letras = "OCHO"
Case 9: Letras = "NUEVE"
Case 10: Letras = "DIEZ"
Case 11: Letras = "ONCE"
Case 12: Letras = "DOCE"
Case 13: Letras = "TRECE"
Case 14: Letras = "CATORCE"
Case 15: Letras = "QUINCE"
Case Is < 20: Letras = "DIECI" & Letras(Valor - 10)
Case 20: Letras = "VEINTE"
Case Is < 30: Letras = "VEINTI" & Letras(Valor - 20)
Case 30: Letras = "TREINTA"
Case 40: Letras = "CUARENTA"
Case 50: Letras = "CINCUENTA"
Case 60: Letras = "SESENTA"
Case 70: Letras = "SETENTA"
Case 80: Letras = "OCHENTA"
Case 90: Letras = "NOVENTA"
Case Is < 100: Letras = Letras(Int(Valor \ 10) *

10) & " Y " &

Letras(Valor Mod 10)
Case 100: Letras = "CIEN"
Case Is < 200: Letras = "CIENTO " & Letras(Valor -

100)

Case 200, 300, 400, 600, 800: Letras = Letras(Int

(Valor \ 100)) &

"CIENTOS"
Case 500: Letras = "QUINIENTOS"
Case 700: Letras = "SETECIENTOS"
Case 900: Letras = "NOVECIENTOS"
Case Is < 1000: Letras = Letras(Int(Valor \ 100) *

100) & " " &

Letras(Valor Mod 100)
Case 1000: Letras = "UN MIL"
Case Is < 2000: Letras = "UN MIL " & Letras(Valor

Mod 1000)

Case Is < 1000000: Letras = Letras(Int(Valor \

1000)) & " MIL"

If Valor Mod 1000 Then Letras = Letras & " " &

Letras(Valor Mod 1000)

Case 1000000: Letras = "UN MILLON "
Case Is < 2000000: Letras = "UN MILLON " & Letras

(Valor Mod 1000000)

Case Is < 1000000000000#: Letras = Letras(Int

(Valor / 1000000)) & "

MILLONES "
If (Valor - Int(Valor / 1000000) * 1000000) _
Then Letras = Letras & Letras(Valor - Int

(Valor / 1000000) * 1000000)

Case 1000000000000#: Letras = "UN BILLON "
Case Is < 2000000000000#
Letras = "UN BILLON " & Letras(Valor - Int

(Valor / 1000000000000#) *

1000000000000#)
Case Else: Letras = Letras(Int(Valor /

1000000000000#)) & " BILLONES "

If (Valor - Int(Valor / 1000000000000#) *

1000000000000#) Then Letras

= Letras & " " & Letras(Valor - Int(Valor /

1000000000000#) * 1000000000000#)

End Select
End Function

Espero que les sirva a todos.

"Victor Manuel Tapia Vargas" wrote:

> Como puedo hacer en excel para converir una cantidad

ej.

> 12,453.00 en letra = doce mil cuatrocientos cincuenta

y

> tres
>

.