CONVERSION DE NUMEROS A LETRAS

HOLA BUENAS TARDES,"HECTOR MIGUEL"

DE SER POSIBLE Y ME PUEDAN AUXILIAR COMO EN OTRA OCASION COMENTE QUE MI
COMPAÑERA TIENE EN EXCEL PARA POSIBILIDAD DE EJECUTAR LA FUNCION DE CONVERTIR
NUMEROS A LETRAS (MONEDA PESOS) PARA DISTINTOS FORMATOS, ES MI DESEO
OPTIMIZAR MI TRABAJO, HE RECIBIDO RESPUESTA DE UTILIZAR MACROS PERO COMO NO
SOY MUY BUENA NO LOGRE HACERLO, ASI ES QUE SI ME PUEDES AYUDAR GRACIAS...
tambien utilizo msn, si es posible, para que me auxilien,, espero respuesta ¡
buen dia!



BUTTERFLY


"Héctor Miguel" escribió:

hola, 'anonimo/a' !

> ... EL METODO DE MACROS... PERO COMO HAGA PARA UTILIZARLO [...]

si continuas con 'problamillas' :-(
a que direccion quieres un ejemplo ?

saludos,
hector.

¡BUEN DIA! "Alfredo Espinosa"
Muchas gracias, por ayudarme en estos precisos momento he realizado la
acción que me enviaste y ha ¡dado resultado! nuevamente gracias...

y gracias a todos aquellos me respondieron, un rutundo agradecimiento y solo
me resta desearle un año lleno de luz, tranquilidad y mucho trabajo (en buen
plan)

hasta luego...
BUTTERFLY


"Alfredo_espinosa" escribió:

Tambien tienes que bajarle el nivel de seguridad a Excel en la PC en la que
quieres ejectar la macro:

Menu Herramientas - Macros - Seguridad.

Selecciona "Media", cierra Excel y abre nuevamente tu libro con la macro y
selecciona "Habilitar Macros", LISTO.

Alfredo Espinosa

"STAR" escribió:

> HOLA, BUENAS TARDES POR CONTESTARME, YO QUIERO TENER UNA FORMULA,
> PROCEDIMIENTO PARA OBTENER QUE MI CELDA (YA SEA UTILIZADA PARA CUALQUIER
> FORMATO)CONVIERTA UNA CANTIDAD "X" EN LETRA.. MI COMPAÑERA TIENE EN SU PC
> ESTA FUNCION CONVIERTENUMLETRA ( ) PERO INTENTAMOS COLOCARLA EN OTRA PC Y NO
> FUNCIONA "APARECE COMO MACROS DESHABILITADAS Y FIRMAS DIGITALES SIN FIRMAR"
> REALMENTE NO SE UTILIZAR LAS MACROS Y EL "EDITOR DE VISUALBASIC" TAMPOCO
> SI ME PUEDES AYUDAR,, MUCHAS GRACIAS...
> BUTTERFLY
>
>
> "STAR" escribió:
>
> > ME INTERESA UTILIZAR EL METODO DE MACROS, ME PARECE QUE ES EL SEGUNDO PERO
> > COMO HAGA PARA UTILIZARLO, ME PODRIAN AYUDA?
> >
> > BUTTERFLY

Hola: yo tengo la formula que es muy sencilla para la conversion de numeros a
letras
mi correo si estan interesados es

"Alfredo_espinosa" escribió:

Tambien tienes que bajarle el nivel de seguridad a Excel en la PC en la que
quieres ejectar la macro:

Menu Herramientas - Macros - Seguridad.

Selecciona "Media", cierra Excel y abre nuevamente tu libro con la macro y
selecciona "Habilitar Macros", LISTO.

Alfredo Espinosa

"STAR" escribió:

> HOLA, BUENAS TARDES POR CONTESTARME, YO QUIERO TENER UNA FORMULA,
> PROCEDIMIENTO PARA OBTENER QUE MI CELDA (YA SEA UTILIZADA PARA CUALQUIER
> FORMATO)CONVIERTA UNA CANTIDAD "X" EN LETRA.. MI COMPAÑERA TIENE EN SU PC
> ESTA FUNCION CONVIERTENUMLETRA ( ) PERO INTENTAMOS COLOCARLA EN OTRA PC Y NO
> FUNCIONA "APARECE COMO MACROS DESHABILITADAS Y FIRMAS DIGITALES SIN FIRMAR"
> REALMENTE NO SE UTILIZAR LAS MACROS Y EL "EDITOR DE VISUALBASIC" TAMPOCO
> SI ME PUEDES AYUDAR,, MUCHAS GRACIAS...
> BUTTERFLY
>
>
> "STAR" escribió:
>
> > ME INTERESA UTILIZAR EL METODO DE MACROS, ME PARECE QUE ES EL SEGUNDO PERO
> > COMO HAGA PARA UTILIZARLO, ME PODRIAN AYUDA?
> >
> > BUTTERFLY

A todo el grupo que pueda interesar, les adjunto una macro que convierte un
numero a letras que he utilizado desde hace mas de 10 años para diversas
aplicaciones tales como facturas, cheques, recibos etc. Basta con hacer en la
celda (EXCEL) que se quiere que salgan las letras +Beto(celda Nro) ejemplo
+beto(F7) y si en F7 esta un numero P.E 1.500 le escribira Un Mil Quinientos.
SI DESEAN QUE SEA DE USO DIRECTO EN SUS TRABAJOS INCLUYANLA EN LAS MACROS DE
EXCEL Y LE DARA EL RESULTADO SIN TENER QUE GRABARLA EN CADA LIBRO.

ESTA ES LA MACRO QUE CREO UN AMIGO EN 1995 LUIS ALBERTO OCHIPINTI

Sub NROSALETRAS()
'
' beto Macro
' Macro grabada 14/11/95 por Luis A.Ochipinti C.
'
' Método abreviado: CTRL+a
'
Function beto(NumeroArg As Double) As String
Dim Unidad(9)
Dim Decena(9)
Dim Centena(9)
Dim Especial(5)
'NumeroArg = 115321245
nCifra = 0
queda = 0
Flag = "F"
beto = ""
Millones = 0
Millares = 0
Unidades = 0
digitoMillon = 0
digitoMillar = 0
'Tabla de conversion
Unidad(1) = "Uno "
Unidad(2) = "Dos "
Unidad(3) = "Tres "
Unidad(4) = "Cuatro "
Unidad(5) = "Cinco "
Unidad(6) = "Seis "
Unidad(7) = "Siete "
Unidad(8) = "Ocho "
Unidad(9) = "Nueve "
Decena(1) = "Diez "
Decena(2) = "Veinte "
Decena(3) = "Treinta "
Decena(4) = "Cuarenta "
Decena(5) = "Cincuenta "
Decena(6) = "Sesenta "
Decena(7) = "Setenta "
Decena(8) = "Ochenta "
Decena(9) = "Noventa "
Centena(1) = "Ciento "
Centena(2) = "Doscientos "
Centena(3) = "Trescientos "
Centena(4) = "Cuatrocientos "
Centena(5) = "Quinientos "
Centena(6) = "Seiscientos "
Centena(7) = "Setecientos "
Centena(8) = "Ochocientos "
Centena(9) = "Novecientos "
Especial(1) = "Once "
Especial(2) = "Doce "
Especial(3) = "Trece "
Especial(4) = "Catorce "
Especial(5) = "Quince "
If NumeroArg < 1 Then
Exit Function
End If
'Centena de Millon Ejemplo 115,321,245
Millones = Int(NumeroArg / 1000000) 'Millones = 115
If Millones <> 0 Then
nCifra = Int(Millones / 100) 'nCifra = 1
If nCifra <> 0 Then
digitoMillon = nCifra
If Millones = 100 Then
beto = "Cien "
Else
beto = beto & Centena(nCifra)
End If
End If
'Decena de Millon
queda = Int(Millones - digitoMillon * 100) 'queda = 15
nCifra = Int(queda / 10) 'nCifra = 1
If nCifra <> 0 Then
If queda > 10 And queda < 16 Then
beto = beto & Especial(queda - nCifra * 10)
Flag = "V" 'Pasar por alto unidad
Else
beto = beto & Decena(nCifra)
End If
End If
'Unidad de Millon
If Flag = "F" Then
nCifra = Int(Millones - digitoMillon * 100 - nCifra * 10)
'nCifra = 5
If queda > 15 And nCifra > 0 Then
beto = beto & "y " & Unidad(nCifra)
Else
beto = beto & Unidad(nCifra)
End If
End If
If Millones = 1 Then
beto = "Un Millón "
Else
beto = beto & "Millones "
End If
Flag = "F"
End If
'Centena de Millar
Millares = Int((NumeroArg - Millones * 1000000) / 1000) 'Millares = 321
If Millares > 0 Then
nCifra = Int(Millares / 100) 'nCifra = 3
If nCifra > 0 Then
digitoMillar = nCifra
If Millares = 100 Then
beto = "Cien "
Else
beto = beto & Centena(nCifra)
End If
End If
'Decena de Millar
queda = Int(Millares - nCifra * 100) 'queda = 21
nCifra = Int(queda / 10) 'nCifra = 2
If nCifra > 0 Then
If queda > 10 And queda < 16 Then
beto = beto & Especial(queda - nCifra * 10)
Flag = "V" 'Pasar por alto unidad
Else
beto = beto & Decena(nCifra)
End If
End If
'Unidad de millar
If Flag = "F" Then
nCifra = Int(Millares - digitoMillar * 100 - nCifra * 10)
'nCifra = 1
If queda > 15 And nCifra > 0 Then
beto = beto & "y " & Unidad(nCifra)
Else
beto = beto & Unidad(nCifra)
End If
End If
beto = beto & "Mil "
Flag = "F"
End If
'Centena
Unidades = (NumeroArg - Millones * 1000000 - Millares * 1000)
If Unidades > 0 Then
nCifra = Int(Unidades / 100) 'nCifra = 2
If nCifra > 0 Then 'Unidades = 245
If Unidades = 100 Then
beto = beto & "Cien "
Exit Function
Else
beto = beto & Centena(nCifra)
End If
End If
'Decena
queda = Unidades - nCifra * 100 'Queda = 45
nCifra = Int(queda / 10) 'nCifra = 4
If nCifra > 0 Then
If queda > 10 And queda < 16 Then
beto = beto & Especial(queda - nCifra * 10)
Exit Function
Else
beto = beto & Decena(nCifra)
End If
End If
'Unidad
queda = queda - nCifra * 10 'Queda = 5
If queda > 0 Then
If nCifra > 0 Then
beto = beto & "y " & Unidad(queda)
Else
beto = beto & Unidad(queda)
End If
End If
End If
End Function

"Alfredo_espinosa" escribió:

Tambien tienes que bajarle el nivel de seguridad a Excel en la PC en la que
quieres ejectar la macro:

Menu Herramientas - Macros - Seguridad.

Selecciona "Media", cierra Excel y abre nuevamente tu libro con la macro y
selecciona "Habilitar Macros", LISTO.

Alfredo Espinosa

"STAR" escribió:

> HOLA, BUENAS TARDES POR CONTESTARME, YO QUIERO TENER UNA FORMULA,
> PROCEDIMIENTO PARA OBTENER QUE MI CELDA (YA SEA UTILIZADA PARA CUALQUIER
> FORMATO)CONVIERTA UNA CANTIDAD "X" EN LETRA.. MI COMPAÑERA TIENE EN SU PC
> ESTA FUNCION CONVIERTENUMLETRA ( ) PERO INTENTAMOS COLOCARLA EN OTRA PC Y NO
> FUNCIONA "APARECE COMO MACROS DESHABILITADAS Y FIRMAS DIGITALES SIN FIRMAR"
> REALMENTE NO SE UTILIZAR LAS MACROS Y EL "EDITOR DE VISUALBASIC" TAMPOCO
> SI ME PUEDES AYUDAR,, MUCHAS GRACIAS...
> BUTTERFLY
>
>
> "STAR" escribió:
>
> > ME INTERESA UTILIZAR EL METODO DE MACROS, ME PARECE QUE ES EL SEGUNDO PERO
> > COMO HAGA PARA UTILIZARLO, ME PODRIAN AYUDA?
> >
> > BUTTERFLY

hola, wall !

como hiciste para encontrar y contestar a una consulta de diciembre 31 de 2006 (???)

a partir de esa fecha, han habido una que otra propuestas al respecto :D

aqui encuentras algunas aternativas SIN macros:
http://www.teladearana.es/todo-info...etras.html

solo necesitas mantener una cierta "relatividad" entre la celda con el numero y la celda con las letras
(y viene explicado en el articulo)

y aqui hay otras opciones con funciones personalizadas (vba)
http://www.teladearana.es/todo-info...etras.html

saludos,
hector.