Formulario II

Muy buen día tenga cada uno de ustedes en esta ocasión tengo el gusto de publicar de nueva cuenta un nuevo ejercicio el cual consiste en la aplicación de un formulario para ejecutar un Control de Asistencia, para su efecto trabajaremos con Microsoft Excel, Visual Basic y varias fórmulas así como macros.
Para dar inicio a este ejercicio primero debemos contar con los campos siguientes y asi mismo copiarlos en la fila 10 para poseer nuestro formato de trabajo, en nuestra hoja número 1:

Como siguiente paso nos colocaremos en lo que es nuestra hoja dos en la cual deberemos de colocar los siguientes campos:

• Código
• Nombre
• Grado
• Carrera

Y anotar los datos que serán indispensables para la elaboración de este formulario a los cuales los utilizaremos como una matriz la cual nombraremos como "Datos", en esta ocasión únicamente utilizare a modo de ejemplo diez datos:

Como siguiente paso en nuestra hoja no. 1 nos colocaremos en la Fila 2 y comenzaremos a anotar los siguientes códigos en su columna correspondiente, pero lo haremos utilizando una macro así que deberán de tener mucho cuidado puesto que cada error sera grabado, a nuestra macro la nombraremos como "Registrar", podemos encontrar la opción Macros en la ficha Vista al final de la misma o con el método abreviado "Alt+F8":

puesto que ahora ya hemos utilizado la opción grabar macro y la hemos nombrado tenemos que hacer lo siguiente:

• Celda "A2": =VALOR(G2)
• Celda "B2": =BUSCARV(A2,DATOS,2,FALSO)
• Celda "C2": =BUSCARV(A2,DATOS.3,FALSO)
• Celda "D2": =BUSCARV(A2,DATOS,4, FALSO)
• Celda "E2": =HOY(), se debe modificar el formato
• Celda "F2": =AHORA(), se debe modificar el formato

Ahora copiamos este código y lo pegamos en la fila 11 con pegado especial, valores y listo lo único que se debe realizar es cambiar de nuevo el formato de la fecha y la hora luego seleccionamos toda la fila e insertamos una fila entera y nos colocamos en la celda "G2".

Como siguiente paso buscamos la aplicación Visual Basic y de nuevo tenemos que insertar un UserForm:

Ahora lo que haremos será insertar dos Etiquetas que serán:

1. Asistencia
2. Ingrese Código

Como próximo paso ingresaremos un Cuadro de Texto:

Para continuar debemos darle doble click a nuestro Cuadro de Texto y anotar el siguiente código que sera un condicional:

If Val ( TextBox1 ) > =5050 then

[G2] = TextBox1

Copiamos el código de nuestra macro que se encuentra en el módulo

Range ("A2").Select

End If

TextBox1= Empty

TextBox1.SetFocus

Ahora ya terminamos de trabajar con Visual Basic regresamos a Excel y en la fila 7 hacemos lo siguiente:

• Celda B7= Colocamos Nombre
• Celda C7= La vamos a combinar y centrar con las celdas D7 y E7 y colocaremos el código =B2

Luego de haber realizado esto nos vamos a la fila 8 y aplicamos lo siguiente:

• Celda B8= Colocamos Grado y Carrera
• Celda C8= La combinamos y centramos con D8 y E8 y colocamos la función =CONCATENAR(celda donde se encuentra grado, celda donde se encuentra carrera).

Como ultimo paso nos colocamos en la fila 9 y haremos lo siguiente:

• Celda B9= Colocamos Fecha y Hora
• Celda C9= La combinaremos y centraremos con D9 y E9 y colocaremos el código =E9

Aplicamos bordes y unos cuantos colores y listo.

Y culmina de la siguiente forma: 

Gracias y muchos exitos. ;D

Formulario I

Muy bien en esta ocasión tengo el gusto de publicar un ejercicio que consiste básicamente en un formulario con la situación que se deben de calcular los sueldos líquidos de una empresa, con la ayuda de un formulario dicho trabajo se nos facilitara demasiado.

Para dar inicio primero debemos de contar con los siguientes campos:

Como siguiente paso buscaremos la ficha "Programador" y daremos click sobre la opción Visual Basic.

O simplemente utilizar el método abreviado "Alt+F11":

Como tercer paso para la realización de este formulario se deberá de insertar un "UserForm" que es la aplicación para el mismo. Podemos encontrarla en el menú de Visual Basic en el menú "Insertar":

Ahora habiendo insertado nuestro UserForm insertaremos 6 "Etiquetas" las cuales deberán de contar los siguientes nombre y se mostrara en la imagen la colocación y orden de las mismas:

1. Cálculo Sueldo Líquido
2. No.:
3. Nombre:
4. Sueldo:
5. Bonificación:
6.  Horas Extra:

Como quinto paso deberemos de insertar 5 "Cuadros de Texto" los cuales se colocaran a la par de nuestras Etiquetas ya que en estos colocaremos la información que necesitamos para trabajar nuestra planilla de sueldos:

Ahora insertaremos un "Cuadro de Comando" al cual nombraremos como "Calcular Sueldo" dentro del cual colocaremos la función o acción que nuestro formulario deberá de tomar por medio de un código especial el cual lo anotare posteriormente:

Muy bien ahora daremos doble click a nuestro Cuadro de Comando para describir las acciones que este tomara con el siguiente código:

Para darle una función a cada Cuadro de Texto, los vincularemos con las celdas correspondientes:

[A2] = TextBox1

[B2] = TextBox2

[C2] = TextBox3

[D2] = TextBox4

[G2] = TextBox5

Para calcular el T_Sueldo, "Total Sueldo", la vinculamos con la celda correspondiente y anotamos el siguiente código:

[E2] = Val([C2]) + Val([D2])

Para calcular el D_IGSS, "Descuento de IGSS", la vincularemos con la celda correspondiente y anotamos el siguiente código:

[F2] = Val([C2]) * 0.0483

Para calcular el P_Extras, "Pago de Horas Extras", la vincularemos con la celda correspondiente y anotamos el siguiente código:

[H2] = Val([C2]) / 30 / 8 * Val([G2]) * 1.5

Para calcular el Líquido, "Sueldo Líquido", la vincularemos con la celda correspondiente y anotamos el siguiente código:

[I2] = Val([E2]) - Val([F2]) + Val([H2])

El siguiente código lo anotaremos para que al estar en Excel aparezcamos en la celda "A2":

Range("A2").Select

El próximo código nos permite ingresar una fila completa: 

Selection.EntireRow.Insert

Este código cumple la función del mismo ya mencionado:

Range("A2").Select

Este código nos permite que a la hora de comenzar a trabajar con nuestro formulario siempre aparezcamos en el Cuadro de Texto No. 1:

TextBox1.SetFocus

Este juego de códigos nos permite que cada uno de nuestros Cuadros de Texto al haber ingresado los datos anteriores aparezcan en blanco:

TextBox1 = Empty

TextBox2 = Empty

TextBox3 = Empty

TextBox4 = Empty

TextBox5 = Empty

Muy bien para terminar simplemente debe guardar el documento como un libro de excel habilitado para macros, esto ha sido todo espero y les halla servido cualquier duda o comentario será muy bien recibido hasta luego. :D

Función Concatenar

La función CONCATENAR une hasta 255 cadenas de texto en una sola. Los elementos que se unirán pueden ser texto, números, referencias de celda o una combinación de estos elementos.


Sintaxis
=Concatenar(texto1; [texto2]; ...)
La sintaxis de la función CONCATENAR tiene los siguientes argumentos:

• Texto1    Obligatorio. El primer elemento de texto que se concatenará.
• Texto2; ...    Opcional. Elementos de texto adicionales, hasta un máximo de 255 elementos. Deben estar separados con punto y coma.

Función Indice

Devuelve el valor de un elemento de una tabla o matriz seleccionado por los índices de número de fila y de columna.

Use la forma matricial si el primer argumento de INDICE es una constante matricial.

Sintaxis

=Indice(matriz; núm_fila; [núm_columna])

• Matriz    Obligatorio. Un rango de celdas o una constante de matriz.
• Si matriz contiene solo una fila o columna, el argumento núm_fila o núm_columna correspondiente es opcional.
• Si matriz tiene más de una fila y más de una columna y solo utiliza núm_fila o núm_columna, INDICE devuelve una matriz con toda una fila o columna.
• Núm_fila    Obligatorio. Selecciona la fila de la matriz desde la cual se devolverá un valor. Si se omite núm_fila, se requiere el argumento núm_columna.
• Núm_columna    Opcional. Selecciona la columna de la matriz desde la cual se devolverá un valor. Si se omite núm_columna, se requiere el argumento núm_fila.

Función Si

La función "SI" devuelve un valor si una condición especificada se evalúa como VERDADERO y otro valor si se evalúa como FALSO. 
Sintaxis
=Si(prueba_lógica; [valor_si_verdadero]; [valor_si_falso])

La sintaxis de la función SI tiene los siguientes argumentos:

• Prueba_lógica    Obligatorio. Cualquier valor o expresión que pueda evaluarse como VERDADERO o FALSO. Por ejemplo, A10=100 es una expresión lógica; si el valor de la celda A10 es igual a 100, la expresión se evalúa como VERDADERO. De lo contrario, se evaluará como FALSO. Este argumento puede utilizar cualquier operador de comparación-
• Valor_si_verdadero    Opcional. El valor que desea que se devuelva si el argumento prueba_lógica se evalúa como VERDADERO. Por ejemplo, si el valor de este argumento es la cadena de texto "Dentro de presupuesto" y el argumento prueba_lógica se evalúa como VERDADERO, la función SImuestra el texto "Dentro de presupuesto". Si el argumento prueba_lógicase evalúa como VERDADERO y el argumento valor_si_verdadero se omite, la función SI devuelve 0. Para mostrar la palabra VERDADERO, utilice el valor lógico VERDADERO para el argumento valor_si_verdadero.
• Valor_si_falso    Opcional. El valor que desea que se devuelva si el argumento prueba_lógica se evalúa como FALSO. Por ejemplo, si el valor de este argumento es la cadena de texto "Presupuesto excedido" y el argumento prueba_lógica se evalúa como FALSO, la función SI devuelve el texto "Presupuesto excedido". Si prueba_lógica se evalúa como FALSO y el argumento valor_si_falso se omite, la función SI devuelve el valor lógico FALSO. Si prueba_lógica se evalúa como FALSO y se omite el valor del argumento valor_si_falso, la función SI devuelve el valor 0.

Función Sumar.Si.Conjunto

Está función agrega las celdas de un rango que cumpla con varios criterios.


Sintaxis


=Sumar.Si.Conjunto(rango_suma; rango_criterios1; criterios1; [rango_criterios2; criterios2];...)

• rango_suma    Obligatorio. Una o más celdas para sumar, incluidos números o nombres, rangos o referencias de celda que contengan números. Se omiten los valores en blanco o de texto.
• rango_criterios1    Obligatorio. El primer rango en el que se evalúan los criterios asociados.
• criterios1    Obligatorio. Los criterios en forma de número, expresión, referencia de celda o texto que define qué celdas del argumento rango_criterios1 se agregarán. Por ejemplo, los criterios se pueden expresar como 32, ">32", B4, "manzanas" o "32".
• rango_criterios2; criterios2; …    Opcional. Rangos adicionales y sus criterios asociados. Se permiten hasta 127 pares de rangos/criterios.

Función Contar.Si

Cuenta las celdas, dentro del rango, que no están en blanco y que cumplen con el criterio especificado.

Sintaxis

=CONTAR.SI(rango;criterio)

Rango     es el rango dentro del cual desea contar las celdas.

Criterio     es el criterio en forma de número, expresión, referencia a celda o texto, que determina las celdas que se van a contar. Por ejemplo, los criterios pueden expresarse como 32, "32", ">32", "manzanas" o B4.