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