Introduzione ai UserForm

MsgBox e InputBox coprono domande semplici sì/no e risposte su una sola riga, ma aggiungere un cliente richiede davvero diversi campi contemporaneamente — un nome azienda, un contatto, una città, uno stato. Questo è lo scopo di un UserForm: una piccola finestra personalizzata con proprie etichette, caselle di testo, menu a discesa e pulsanti, creata all'interno del VBE e controllata interamente dal tuo codice.

Creazione di un modulo

Nel VBE, fai clic con il tasto destro sul tuo progetto in Esplora progetti e scegli Inserisci → UserForm. Apparirà una superficie di progettazione vuota, insieme a una Toolbox mobile di controlli che puoi trascinare su di essa.

Etichette, Caselle di Testo, Caselle Combinata e Pulsanti

Ogni controllo che trascini sul form riceve un nome predefinito come TextBox1 o CommandButton1 — funzionale, ma privo di significato quando un form contiene sei o sette controlli. L'abitudine più importante in questa sezione è visibile nella finestra Proprietà: rinominare ogni controllo immediatamente dopo averlo aggiunto, utilizzando un prefisso breve che ne identifichi il tipo (txt per TextBox, cbo per ComboBox, cmd per CommandButton, opt per OptionButton, chk per CheckBox, lst per ListBox) seguito da un nome descrittivo. txtCompanyName è chiaro e inequivocabile nel codice anche dopo tre settimane; TextBox1 non lo è.

Le etichette sono semplici didascalie di testo non interattive ("Company Name:") — l'utente può vederle ma non può scriverci o cliccarle. Le caselle di testo sono dove viene digitato il testo libero. Le caselle combinata presentano un menu a discesa di scelte, che è esattamente ciò per cui vengono utilizzate cboCity e cboStatus — limitare City e Status a un elenco noto invece di permettere all'utente di scrivere liberamente "chicago", "Chicago,IL" e "CHI" per la stessa cosa in record diversi.

Scrittura del codice dietro il modulo

Fare doppio clic su qualsiasi controllo nell'area di progettazione per accedere direttamente al suo codice — VBA crea automaticamente una procedura evento chiamata ControlName_EventName, e scrivere codice al suo interno significa che quel codice verrà eseguito ogni volta che si verifica quello specifico evento su quello specifico controllo. L'evento predefinito di un pulsante è 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 è una procedura evento speciale che viene eseguita automaticamente nel momento in cui il modulo viene caricato — prima che l'utente veda qualsiasi cosa — il che la rende il posto giusto per popolare le ComboBox con .AddItem invece di inserire manualmente le scelte nella finestra delle proprietà, soprattutto quando queste scelte potrebbero cambiare o provenire da un foglio di lavoro. Unload Me all'interno di cmdCancel_Click chiude completamente il modulo; Me si riferisce sempre al modulo in cui il codice è attualmente in esecuzione, quindi questa riga funziona senza modifiche indipendentemente dal nome che verrà assegnato successivamente al modulo stesso.

Esempio pratico: salvataggio di un nuovo cliente

Questa è la procedura dietro il pulsante Salva — quella che effettivamente scrive una nuova riga in 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

Attività

1. Inserire un nuovo UserForm, nominarlo frmAddCustomer e aggiungere tre TextBox (txtCompanyName, txtContact, txtEmail) e due ComboBox (cboCity, cboStatus), ciascuno con una Label corrispondente.
2. Aggiungere due CommandButton, cmdSave e cmdCancel, e scrivere le procedure UserForm_Initialize e cmdCancel_Click esattamente come mostrato.
3. Scrivere cmdSave_Click come mostrato, quindi aggiungere un pulsante temporaneo altrove nella cartella di lavoro con il codice frmAddCustomer.Show per testare l'apertura del modulo.
4. Compilare il modulo per un sesto cliente fittizio e fare clic su Salva — confermare che una nuova riga appare in tblCustomers con i valori inseriti.