factura

CAPÍTULO 8

91

8. DISEÑO DE UNA APLICACIÓN PARA
FACTURAR EN UNA PEQUEÑA EMPRESA
Objetivo: Desarrollar un ejercicio completo para el control y registro de la
FACTURACIÓN para una pequeña empresa, aplicando herramientas vistas
de Microsoft® Excel mediante el uso Visual Basic para Aplicaciones,
formatos, condicionales, fórmulas y funciones.
Primer paso: Diseño de la portada
Inicie con undocumento en blanco en Microsoft® Excel y asigne los
nombres PORTADA, FACTURAR, REGISTRO y CONFIGURAR a cada
hoja. La portada debe contener una pequeña introducción sobre la
aplicación y tres links (puede emplear hipervínculos) en forma de botón, que
deben dirigir al usuario a cada una de las hojas que hacen parte del libro
(ver la ilustración contigua).
Ilustración 116. Diseño de laportada para el ejercicio 8

Elimine las líneas de división y encabezados desmarcando la opción VER
que se encuentra en la ficha DISEÑO DE PÁGINA en Office 2007 o en la
ficha VISTA para Office 2010.

DESARROLLO DE APLICACIONES EN MICROSOFT® EXCEL

CAPÍTULO 8

92

Ilustración 117. Desmarque de las opciones de visualización de líneas de división y encabezados en Microsoft® Excel
2010

Unavez establecidos los hipervínculos, proceda a proteger la hoja
desmarcando la opción SELECCIONAR CELDAS BLOQUEADAS.
Ilustración 118. Protección de la portada para el ejercicio 8

Segundo paso: Diseño de la plantilla de registro de productos
En la hoja CONFIGURAR diseñe una tabla para el registro de productos.
Dicha tabla debe contener los siguientes campos (ver ilustración):
-

CódigoProducto (admite máximo 20 caracteres)
Precio

DESARROLLO DE APLICACIONES EN MICROSOFT® EXCEL

CAPÍTULO 8

93
Ilustración 119. Tabla de registro de productos

Tercer paso: Formulario para el registro de productos
Inserte un formulario en Visual Basic para Aplicaciones, que contenga los
campos mencionados en el paso anterior como se muestra en la ilustración.
Ilustración 120. Formulariopara el registro de productos

Programe el código del botón INGRESAR con la siguiente rutina. Observe
que en este caso solo se admitirán hasta 100 productos.
Private Sub CommandButton1_Click()
For I = 1 To 100
If Cells(I + 2, 2).Value = "" Then
Cells(I + 2, 2).Value = TextBox1.Text
Cells(I + 2, 3).Value = TextBox2.Text
Cells(I + 2, 4).Value = TextBox3.Text
Exit For
End If
Next
EndSub
DESARROLLO DE APLICACIONES EN MICROSOFT® EXCEL

CAPÍTULO 8

94

Inserte la siguiente rutina para programar el botón BORRAR.
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Cuarto paso: Activar el formulario desde la hoja de cálculo
Desde la hoja de Microsoft® Excel donde se encuentra la tabla creada en el
paso 2, agregue unbotón justo al lado de la tabla (Tipo Control Active X)
llamado INGRESAR PRODUCTO, como se observa en la siguiente
ilustración.
Ilustración 121. Botón para la activación del formulario de registro de productos

Incluya el siguiente código en la programación del botón.
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Quinto paso: Formato de la factura
Diseñe el formato para elregistro de la factura de venta. Este formato
admitirá máximo 5 productos. Incluya los siguientes campos:
-

Consecutivo
Cliente (admite máximo 20 caracteres)
Identificación
Código
Producto
Precio
Cantidad
DESARROLLO DE APLICACIONES EN MICROSOFT® EXCEL

CAPÍTULO 8
-

95

Valor Total
Subtotal
Descuento
IVA
Total
Ilustración 122. Esquema general de una factura para el ejercicio 8Sexto paso: Formulario para el registro de una factura
Diseñe un nuevo formulario (USERFOM2) que contenga los campos
mencionados en el paso anterior, exceptuando el consecutivo.
Ilustración 123. Formulario para el registro de facturas

Antes de pasar a programar cada botón, bloqueé los TEXTBOX
correspondientes a PRODUCTO y PRECIO (ya que estos son el resultado
DESARROLLO DE APLICACIONES...