Introduction to UserForms

MsgBox e InputBox cubren preguntas simples de sí/no y respuestas de una sola línea, pero agregar un cliente realmente requiere varios campos a la vez: un nombre de empresa, un contacto, una ciudad, un estado. Para eso sirve un UserForm: una pequeña ventana personalizada con sus propias etiquetas, cuadros de texto, listas desplegables y botones, creada dentro del VBE y controlada completamente por tu código.

Creación de un formulario

En el VBE, haz clic derecho en tu proyecto en el Explorador de proyectos y elige Insertar → UserForm. Aparecerá una superficie de diseño en blanco, junto con una caja de herramientas flotante con controles que puedes arrastrar sobre ella.

Etiquetas, cuadros de texto, cuadros combinados y botones

Cada control que arrastras al formulario recibe un nombre predeterminado como TextBox1 o CommandButton1: funcional, pero sin sentido cuando un formulario tiene seis o siete controles. El hábito más importante en esta sección es visible en la ventana de Propiedades: renombrar cada control inmediatamente después de agregarlo, usando un prefijo corto que identifique su tipo (txt para TextBox, cbo para ComboBox, cmd para CommandButton, opt para OptionButton, chk para CheckBox, lst para ListBox) seguido de un nombre descriptivo. txtCompanyName se entiende claramente en el código dentro de tres semanas; TextBox1 no.

Las etiquetas son los textos simples y no interactivos ("Company Name:") — el usuario puede verlos pero nunca escribir en ellos ni hacer clic. Los cuadros de texto son donde se escribe texto libremente. Los cuadros combinados presentan una lista desplegable de opciones, que es exactamente para lo que sirven cboCity y cboStatus: restringir City y Status a una lista conocida en lugar de permitir que el usuario escriba libremente "chicago", "Chicago,IL" y "CHI" para lo mismo en diferentes registros.

Escritura de código detrás del formulario

Haz doble clic en cualquier control en la superficie de diseño para ir directamente a su código: VBA crea automáticamente un procedimiento de evento llamado ControlName_EventName, y escribir código dentro de él significa que ese código se ejecuta cada vez que ocurre ese evento específico en ese control específico. El evento predeterminado de un botón es Click:

Private Sub UserForm_Initialize()
    ' runs once, automatically, when the form is first shown
    cboCity.AddItem "Chicago"
    cboCity.AddItem "Boston"
    cboCity.AddItem "Austin"
    cboCity.AddItem "Seattle"
    cboCity.AddItem "Denver"
 
    cboStatus.AddItem "Active"
    cboStatus.AddItem "Inactive"
    cboStatus.AddItem "Prospect"
End Sub
 
Private Sub cmdCancel_Click()
    Unload Me
End Sub

UserForm_Initialize es un procedimiento de evento especial que se ejecuta automáticamente en el momento en que se carga el formulario, antes de que el usuario vea algo, lo que lo convierte en el lugar adecuado para llenar los ComboBoxes con .AddItem en lugar de escribir las opciones manualmente en la ventana de Propiedades, especialmente cuando esas opciones pueden cambiar o provenir de una hoja de cálculo. Unload Me dentro de cmdCancel_Click cierra el formulario por completo; Me siempre se refiere al formulario en el que se está ejecutando el código, por lo que esta línea funciona sin modificaciones sin importar cómo renombres el formulario más adelante.

Ejemplo práctico: guardar un nuevo cliente

Este es el procedimiento detrás del botón Guardar, el que realmente escribe una nueva fila en tblCustomers:

Private Sub cmdSave_Click()
    Dim tbl As ListObject
    Dim newRow As ListRow
 
    Set tbl = ThisWorkbook.Worksheets("Customers").ListObjects("tblCustomers")
    Set newRow = tbl.ListRows.Add
 
    newRow.Range(1, 1).Value = "C" & Format(tbl.ListRows.Count + 1, "000")
    newRow.Range(1, 2).Value = txtCompanyName.Value
    newRow.Range(1, 3).Value = txtContact.Value
    newRow.Range(1, 4).Value = txtEmail.Value
    newRow.Range(1, 5).Value = cboCity.Value
    newRow.Range(1, 6).Value = cboStatus.Value
 
    MsgBox txtCompanyName.Value & " was added successfully."
    Unload Me
End Sub

Tarea

1. Insertar un nuevo UserForm, nombrarlo frmAddCustomer y agregar tres TextBoxes (txtCompanyName, txtContact, txtEmail) y dos ComboBoxes (cboCity, cboStatus), cada uno con su respectiva etiqueta.
2. Agregar dos CommandButtons, cmdSave y cmdCancel, y escribir los procedimientos UserForm_Initialize y cmdCancel_Click exactamente como se muestra.
3. Escribir cmdSave_Click como se indica, luego agregar un botón temporal en otra parte del libro con el código frmAddCustomer.Show para probar la apertura del formulario.
4. Completar el formulario para un sexto cliente ficticio y hacer clic en Save; confirmar que aparece una nueva fila en tblCustomers con los valores ingresados.