Función para leer números detallada

He recibido varias consultas sobre el tema, sobre todo pidiéndome el contenido de la función.
Para los que entiendan sobre macros les dejo el texto completo (tiene 2 procedimientos):

Function NOMBRE(x)
xuni = "uno         dos         tres        cuatro      cinco       " + _
       "seis        siete       ocho        nueve       diez        " + _
       "once        doce        trece       catorce     quince      " + _
       "dieciséis   diecisiete  dieciocho   diecinueve  veinte      " + _
       "veintiuno   veintidós   veintitrés  veinticuatroveinticinco " + _
       "veintiséis  veintisiete veintiocho  veintinueve "
xdec = "treinta  cuarenta cincuentasesenta  setenta  ochenta  noventa"
xcent = "dosc   tresc  cuatrocquin   seisc  setec  ochoc   novec"
NOMBRE = ""
uni = Right(x, 2)
If uni < 30 And uni > 0 Then
    NOMBRE = Trim(Mid(xuni, 12 * (uni - 1) + 1, 12))
End If
If uni > 29 Then
    dec = Left(uni, 1)
    uni = Right(uni, 1)
    NOMBRE = Trim(Mid(xdec, 9 * (dec - 3) + 1, 9))
    If uni <> 0 Then
        NOMBRE = NOMBRE + " y " + Trim(Mid(xuni, 12 * (uni - 1) + 1, 12))
    End If
End If
cent = Int(x / 100)
If cent = 1 Then
    NOMBRE = "ciento " + NOMBRE
End If
If x = 100 Then
    NOMBRE = "cien"
End If
If cent > 1 Then
    NOMBRE = Trim(Mid(xcent, 7 * (cent - 2) + 1, 7)) + "ientos " + NOMBRE
End If
End Function

Function ALETRAS(x)
ALETRAS = ""
millones = Right(Int(x / 1000000), 3)
parte1 = Right(Int(x), 3)
PARTE2 = Right(Int(x / 1000), 3)
If millones = 1 Then ALETRAS = NOMBRE(millones) + " millón "
If millones > 1 Then ALETRAS = NOMBRE(millones) + " millones "
If PARTE2 = 1 Then ALETRAS = ALETRAS + " un mil "
If PARTE2 > 1 Then ALETRAS = ALETRAS + NOMBRE(PARTE2) + " mil "
ALETRAS = ALETRAS + NOMBRE(parte1)
centavos = (Round(x, 2) - Int(x)) * 100
centavos = Right(Round(centavos, 0), 2)
concon = ""
If PARTE2 > 0 Then concon = " con "
If centavos > 0 Then ALETRAS = ALETRAS + concon + centavos + " centavos"
ALETRAS = ALETRAS + "."
End Function

Leer números en Excel

Esta es una hoja de cálculo que contiene la función personal ALETRAS().

Permite “leer” un número en una celda; el número máximo es 999.999.999 y puede o no tener decimales.

Aquí va una tabla que muestra cuán fácil es usar la función:

	B	C
2	2.367,89	dos mil trescientos sesenta y siete con 89 centavos.
3	14,00	catorce.
4	-23,00	veintitrés.
5	0,75	75 centavos.
		C2.  =ALETRAS(B2)
		C3.  =ALETRAS(B3)
		C4.  =ALETRAS(B4)
		C5.  =ALETRAS(B5)

El link para bajar el archivo es:

https://sites.google.com/site/qnetbna/home/archivos

Troqueles para turnos

Este programa lo hice para colaborar con el Anexo Operativo en donde se pagan planes sociales y conceptos similares, en donde es enorme la concurrencia de público, con largas colas en las veredas que molestan a los vecinos, etc.

Se trata de una hoja de cálculo que genera troqueles con un número y una hora aproximada de atención.

Se supone que estos troqueles deberían ser repartidos entre la gente que está esperando en la cola para que se retiren y vuelvan a la hora a aproximada de atención; esto descongestiona bastante el local.

Se deben informar estos conceptos:

Cantidad de cajeros. Es la cantidad de cajeros que atenderán al público; pueden ser de 1 a 5

Fecha: es la fecha operativa

Primer número: se muestra un cuadro desplegable para que el usuario elija el número inicial a generar, que dependerá de la cantidad de cajeros disponibles.

Centro / Casa: nombre del Anexo Operativo o Sucursal

Horario de comienzo: la hora en que se comenzará a atender al público.

El ticket a imprimir tiene más o menos este aspecto:

BANCO DE LA

NACION ARGENTINA

Anexo Operativo Tucumán

Fecha 26/May

Hora Atención 08:30

1

El programa prevé que se atienda una persona cada 2 minutos.

Se imprimen troqueles en grupos de 4 hojas A4 apaisadas, con hasta 5 columnas (una por cajero) y 5 filas. Si hay 5 cajeros se imprimirán 5 hojas con hasta 100 números, y al elegir el primer número el programa mostrará 1, 101, 201, 301, etc.

Ahora a cortar papeles con una regla y una trincheta...

Pueden bajar el archivo del sitio:

https://sites.google.com/site/qnetbna/home/archivos

Video demostración JJQ-PERSONALES versión 4.1

Contraseña

La contraseña del sistema de préstamos personales es QUINTEROS.
Está en el texto del blog.

Actualización de software JJQ-PERSONALES-41

En esta oportunidad no voy a sorprender a nadie.

Se trata simplemente de una versión actualizada del software para préstamos personales, donde se corrigen pequeños errores como consecuencia de las sugerencias que recibo.

El nuevo pack se puede bajar de esta dirección:

https://sites.google.com/site/qnetbna/home/archivos/JJQ.zip?attredirects=0&d=1

Recuerden que el contenido del archivo zip debe ser descomprimido en una única carpeta.

PINs

Esta es una aplicación que desarrollé para la Tesorería.
Ellos reciben a diario PINes que deben entregar a los clientes; se hace necesario entonces contar con un sistema que permita registrar tanto la recepción de los PINes como su entrega y lo más importante, controlar su stock.
Se trata de una hoja que tiene una tabla:

Nro Doc	Apellido y nombre	Tipo	Recepción	Entrega
33445566	GARCIA AMELIA	C	02/03/2011
23324554	LUJANERA María	E	10/03/2011	16/03/2011

Su contenido es el siguiente:

Nro Doc: el número de documento del cliente

Apellido y nombre: el del cliente

Tipo: hay 3 categorías posibles

                C para clientes del banco

                S para planes sociales

                E para empresas

Recepción: la fecha de recepción del PIN

Entrega: la fecha de entrega del PIN

Cada vez que se ingresa o modifica un registro, aparece en la parte superior de la hoja un tablero flotante que informa para cada tipo de PIN: la cantidad recibida, la cantidad entregada y el stock.

Además, para lograr informes personalizados, se pueda activar el comando Autofiltro.

La hoja está protegida SIN CONTRASEÑA, sólo para evitar cambios accidentales.

http://www.megaupload.com/?d=6T91GAHI

Préstamo Contingente Nativa

Este programa que adjunto permite generar rápidamente el formulario 60370 a través del el cliente que cobra sus haberes a través del Banco accede a este beneficio, que consiste en debitar el saldo de la tarjeta de crédito Nativa aún cuando la caja de ahorros vinculada no tuviese fondos, generando un descubierto que se cancelará cuando se produzca una acreditación futura.
La hoja tiene 3 pestañas:
Pestaña K CA: aquí se pegan los datos de la caja de ahorros donde se autorizará el descubierto; se accede a estos datos a través de la posición $ (ver la primera entrada de este blog Copiar y Pegar Datos)
Pestaña Solicitante: aquí se puede corregir el nombre del solicitante (es para el caso de cuentas que están abiertas a nombre de más de un titular), se ingresa la tasa de interés anual y el número de cuenta de la tarjeta Nativa.
Pestaña F60370: esta pestaña contiene el formulario completo con los datos ingresados; sólo puede imprimirse.

Link del archivo: http://www.megaupload.com/?d=LA2OHU65