Con poche righe di codice, possiamo facilmente loop attraverso i controlli su un Modulo utente VBA di Excel. Il form utente che creeremo appare come segue:
Per creare questo modulo utente, eseguire i seguenti passaggi.
1. Aprire l'editor di Visual Basic. Se l'Esplora progetti non è visibile, fare clic su Visualizza, Esplora progetti.
2. Fare clic su Inserisci, Modulo utente. Se la Casella degli strumenti non viene visualizzata automaticamente, fare clic su Visualizza, Casella degli strumenti. Lo schermo dovrebbe essere impostato come di seguito.
3. Aggiungere l'etichetta, le caselle di controllo (la prima in alto, la seconda sotto la prima e così via) e il pulsante di comando. Una volta che questo è stato completato, il risultato dovrebbe essere coerente con l'immagine del modulo utente mostrato in precedenza. Ad esempio, creare un controllo casella di controllo facendo clic su CheckBox dalla casella degli strumenti. Successivamente, puoi trascinare una casella di controllo sul form utente.
4. È possibile modificare i nomi e le didascalie dei controlli. I nomi vengono utilizzati nel codice VBA di Excel. Le didascalie sono quelle che appaiono sullo schermo. È buona norma cambiare i nomi dei controlli, ma non è necessario qui perché in questo esempio abbiamo solo pochi controlli. Per modificare la didascalia del form utente, l'etichetta, le caselle di controllo e il pulsante di comando, fare clic su Visualizza, Finestra delle proprietà e fare clic su ciascun controllo.
5. Per mostrare il form utente, posiziona un pulsante di comando sul foglio di lavoro e aggiungi la seguente riga di codice:
Sub CommandButton1_Click privato ()
UserForm1.Show
Fine sottotitolo
Ora abbiamo creato la prima parte dell'Userform. Sebbene sembri già pulito, non accadrà ancora nulla quando faremo clic sul pulsante Cancella.
6. Aprire l'editor di Visual Basic.
7. Nell'Esplora progetti, fare doppio clic su UserForm1.
8. Fare doppio clic sul pulsante Cancella.
9. Aggiungi le seguenti righe di codice:
Sub CommandButton1_Click privato ()
Dim contr Come controllo
Per ogni controllo in UserForm1.Controls
Se TypeName(contr) = "CheckBox" Then
contr.Value = False
Finisci se
Prossimo
Fine sottotitolo
Spiegazione: Excel VBA esegue il ciclo di tutti i controlli sul form utente. La funzione TypeName viene utilizzata per filtrare i controlli delle caselle di controllo. Se una casella di controllo controlla, Excel VBA deseleziona la casella di controllo. contr viene scelto casualmente qui, puoi usare qualsiasi nome. Ricorda di fare riferimento a questo nome nel resto del codice.
Risultato quando si fa clic sul pulsante Cancella:
