Número a letras Excel
NUMERO A LETRAS EXCEL VERSIÓN I
Pesos, Dolares, Euros, Libras, metros cuadrados....
FÓRMULAS CREADAS BY
HÉCTOR MIGUEL OROZCO DÍAZ
Muchos de nosotros hemos necesitado alguna vez el convertir una cantidad numérica a letras
- En [ Euros, dolares, libras, Pesos....] ya sea porque estamos realizando cheques, facturaciones bancarias y necesitemos convertir dicha cantidad a literales...
- En [Sistema métrico decimal ] ya sea porque estemos realizando medidas de longitud, medidas de capacidad o medidas de masa y necesitemos convertir dichas medidas a literales...
Versión II aqui
¿CÓMO REALIZARLO EN EXCEL SIN MACROS?
Descarga del archivo:
En letra Sin y Con macro.zip (27 kB)
Dentro del archivo comprimido de descarga, van dos archivos (Uno sin macros y otro con macro), explicación al final del artículo.
DESARROLLO
La celda A1 tiene formato personalizado para un tipo de moneda aquí podemos personalizar a nuestro gusto el tipo de formato que deseemos para dicha celda...
En la celda A3 y A4 es donde podéis escribir vuestra unidad de moneda, sistema métrico decimal....en singular y en la celda A5 si quitáis la almuhadilla podréis observar como cambia la Celda C1
La celda B1 es la que nos marcara la manera que queramos ver nuestra conversion a letras
Observar como estan estructuradas las fórmulas y los Nombres definidos
Esto nos servira para una cantidad pero...
¿CÓMO PODRíAMOS HACERLO PARA VARIAS CANTIDADES?
Podéis hacerlo mediante varias de las Funciones que se exponen en la siguiente Web de Bob Phillps donde también hay una solución para [números a literales en Ingles] sin macros, también creada por Héctor Miguel Orozco Díaz
http://www.xldynamic.com/source/xld.xlFAQ0004.html
Tambien podéis realizar lo siguiente [ Desarrollo del segundo archivo ]
- Nos situamos en la hoja [EnLetraSinMacros] y en la Fila 1 insertamos 3 Filas.
- Ocultamos las filas que van desde La Fila Número 6 a la Número 31
- Lo decoramos al gusto.
- Insertamos un botón desde La barra de herramientas ? Cuadro de controles o bien si estáis con la nueva versión de Office 2007 ? desde la ficha Programador ? Insertar ? Controles Active X...
Más o menos que os quede así ya que esta va a aser nuestra hoja de Trabajo
Una vez insertado el botón le añadís el macro o código siguiente
Private Sub CommandButton1_Click()
With Sheets("EnLetraSinMacros")
.Range("A5,C5").Copy _
Worksheets("Datos").Cells(.Rows.Count, "A"). _
End(xlUp).Offset(1, 0)
End With
Sheets("EnLetraSinMacros").Range("A5").Select
End Sub
Luego creamos una hoja donde van a ir nuestros datos llamada valga la redundancia [Datos] y que al darle al botón arriba explicado pues pasarían todos los datos a la dicha hoja uno debajo de otro
Por último una hoja donde vayan los Cheques para así poder víncular las celdas de los cheques con nuestra hoja datos
Y esto seria todo a realizar ...
Como habéis podido comprobar las fórmulas creadas por Héctor Miguel Orozco nos dan mucho juego a la hora de personalizar nuestras tareas de conversión a literales sólo hay que hacer un buen uso de Ellas.
