ConvNúmeroLetra

mario -  
 HASSOUNI -
hola
por supuesto no puedo sniffff

para empezar,
he descargado en: http://gerard.g.pagesperso-orange.fr/logexl_05.htm#Convertir%20les%20nombres%20en%20lettres
el problema,

quiero un número para convertir en letras por ejemplo: X€ o Y€ = Xeuro o Yeuro.

en la macro "argumentos de la función", ¿por qué "argumentos de la función" significa =B3 propone 52,12?

Convertir los números en letras:

Ninguna función de Excel permite la conversión de números en letras.
Sin embargo, se ha creado una macro para este fin y se llama ConvNumberLetter.
Para poder beneficiarse de ella, es necesario instalarla previamente. Luego estará disponible como una función.

1 - Instalación de la macro complementaria: (ESO YA ESTÁ HECHO)
Descargar el archivo NbLettre.xla y colocarlo en la carpeta=
C:Documentos y Configuración / Tu Nombre / Datos de Aplicación / Microsoft/Macros complementarias.

Abrir Excel.

Desde el menú Herramientas / Macros complementarias... abrir el cuadro de diálogo Macro Complementaria.

En la ventana que se ha abierto, marcar Nblettre (1) y hacer OK (2).

Para el caso en que la línea Nblettre no figure sería necesario buscar el archivo NbLettre.xla haciendo clic en Examinar...
(3) y activarlo.
Esta operación debe realizarse en cada ordenador que deba utilizar la macro en creación.

2 - Uso de la función ConvNumberLetter: (ESO YA ESTÁ HECHO)
Como para una función clásica, hacer clic en Insertar función.

En la ventana de Insertar función, elegir la categoría Personalizadas (4) y luego la función ConvNumberLetter (5).

Hacer clic en OK.

Se abre la ventana del asistente Argumentos de la función.
Contiene tres zonas de argumentos que deben completarse de la siguiente manera:

Número es la celda cuyo contenido se va a convertir.

Divisa (6) es:

0 ninguna
1 Euro
2 Dólar $

Idioma (7) es:

0 Francés
1 Belga
2 Suizo

(ERROR)
La apariencia del texto resultante de esta función no puede ser modificada.
Por ejemplo, no es posible poner mayúsculas.
Solo es posible el formato clásico de las celdas (negrita, cursiva...).

parece que la "fuente Arial"?, bueno, he tomado "fuente Courier New" en negrita, cursiva.

Para visualizar el código VBA de la macro, hacer Alt+F11.
Se encuentra en el Módulo ModNumLettre de VBAProject (NbLettre.xla) todo ubicado en el Explorador de proyectos,
a la izquierda de la ventana.

(ERROR)
por lo tanto Alt+F11 "Microsoft Visual Basic-libro1" dice: "(Nombre)VBAProject"

no entiendo nada con "....todo ubicado en el Explorador de proyectos,"
¿quizás falta una macro?, ¿por qué no funciona?

por favor, ¿hay alguna persona......ATENCIÓN SOY MUY PRINCIPIANTE
Gracias.
Configuración: Windows XP Firefox 2.0.0.20

2 respuestas

Usuario anónimo
 
Hola,
Estoy un poco sorprendido porque en mi casa la función tiene 5 argumentos.
'Número
' Divisa=0 ninguno
' =1 Euro €
' =2 Dólar $
' =3 €uro €
' Idioma=0 Francés
' =1 Belga
' =2 Suizo
' Mayúsculas =0 Minúscula
' =1 Mayúscula al inicio de la frase
' =2 Mayúscula
' =3 Mayúscula al inicio de cada palabra
' CeroCent=0 No mencionar los céntimos si son iguales a 0
' =1 Mencionar siempre los céntimos
'***********
' Conversión limitada a 999 999 999 999 999 o 9 999 999 999 999,99
si el número contiene más de 2 decimales, se redondea a 2 decimales
*****
El argumento llamado "Mayúsculas" te ayudaría a resolver el problema de las mayúsculas.
Intenta agregar los argumentos que faltan o copia esta fórmula:
=ConvNumberLetter(A7;1;2;1;0) con el número a transformar en A7.
Buena suerte.
8
HASSOUNI
 
Hola,
me gustó mucho su solución, pero por favor, deme este macro porque el mío es muy antiguo y no reconoce los otros argumentos.
gracias
0