El Projecte | Sobre nosaltres | Contribuir | Donacions | Llicència

HOME

Els UserForms són una eina poderosa en VBA que permet crear interfícies d'usuari personalitzades dins d'Excel. Aquest mòdul t'ensenyarà com crear, dissenyar i programar UserForms per millorar la interacció amb els teus usuaris.

Introducció als UserForms

Què és un UserForm?

Un UserForm és una finestra personalitzada que pots crear dins d'Excel per recollir dades, mostrar informació o interactuar amb l'usuari de manera més amigable.

Avantatges d'utilitzar UserForms

Interfície amigable: Proporciona una manera més intuïtiva per a l'usuari d'introduir dades.
Validació de dades: Permet validar les dades abans de guardar-les.
Automatització: Facilita l'automatització de tasques complexes.

Crear un UserForm

Passos per crear un UserForm

Obrir l'Editor de VBA: Premeu Alt + F11 per obrir l'Editor de VBA.
Afegir un UserForm: Aneu a Insert > UserForm per afegir un nou UserForm al vostre projecte.

Exemple pràctic: Crear un UserForm bàsic

Sub CrearUserForm()
    Dim uf As Object
    Set uf = VBA.UserForms.Add("UserForm1")
    uf.Show
End Sub

Dissenyar un UserForm

Controls bàsics

Label: Per mostrar text.
TextBox: Per introduir text.
CommandButton: Per executar accions.
ComboBox: Per seleccionar opcions d'una llista desplegable.
ListBox: Per seleccionar elements d'una llista.

Exemple pràctic: Afegir controls a un UserForm

Private Sub UserForm_Initialize()
    ' Afegir un Label
    Dim lbl As MSForms.Label
    Set lbl = Me.Controls.Add("Forms.Label.1")
    lbl.Caption = "Nom:"
    lbl.Left = 10
    lbl.Top = 10

    ' Afegir un TextBox
    Dim txt As MSForms.TextBox
    Set txt = Me.Controls.Add("Forms.TextBox.1")
    txt.Left = 50
    txt.Top = 10

    ' Afegir un CommandButton
    Dim btn As MSForms.CommandButton
    Set btn = Me.Controls.Add("Forms.CommandButton.1")
    btn.Caption = "Enviar"
    btn.Left = 10
    btn.Top = 40
End Sub

Programar els controls del UserForm

Esdeveniments dels controls

Els controls del UserForm tenen esdeveniments associats, com ara Click, Change, Enter, etc. Pots escriure codi per a aquests esdeveniments per definir el comportament dels controls.

Exemple pràctic: Programar el botó d'enviament

Private Sub CommandButton1_Click()
    Dim nom As String
    nom = Me.Controls("TextBox1").Text
    MsgBox "Hola, " & nom & "!"
End Sub

Validació de dades

Exemple pràctic: Validar l'entrada de dades

Private Sub CommandButton1_Click()
    Dim nom As String
    nom = Me.Controls("TextBox1").Text
    
    If nom = "" Then
        MsgBox "El camp de nom no pot estar buit.", vbExclamation
    Else
        MsgBox "Hola, " & nom & "!"
    End If
End Sub

Tancar i descarregar el UserForm

Exemple pràctic: Tancar el UserForm

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Exercicis pràctics

Exercici 1: Crear un UserForm per recollir informació de contacte

Crea un UserForm amb els següents controls:
- Labels i TextBoxes per a "Nom", "Cognoms", "Correu electrònic" i "Telèfon".
- Un CommandButton per enviar la informació.
Programa el botó per validar que tots els camps estiguin plens abans de mostrar un missatge de confirmació.

Solució de l'Exercici 1

Private Sub CommandButton1_Click()
    Dim nom As String, cognoms As String, email As String, telefon As String
    nom = Me.Controls("TextBox1").Text
    cognoms = Me.Controls("TextBox2").Text
    email = Me.Controls("TextBox3").Text
    telefon = Me.Controls("TextBox4").Text
    
    If nom = "" Or cognoms = "" Or email = "" Or telefon = "" Then
        MsgBox "Tots els camps són obligatoris.", vbExclamation
    Else
        MsgBox "Informació enviada correctament!"
        Unload Me
    End If
End Sub

Conclusió

En aquest mòdul, has après a crear, dissenyar i programar UserForms en VBA. Els UserForms són una eina poderosa per millorar la interacció amb els usuaris i automatitzar tasques complexes. Practica creant diferents UserForms per familiaritzar-te amb els controls i els esdeveniments associats. En el següent mòdul, explorarem la programació basada en esdeveniments per fer que les teves aplicacions siguin encara més dinàmiques i interactives.

Treballar amb UserForms