Quando si creano moduli utente in Excel VBA, puoi usare il Collezione di controlli per scorrere facilmente i controlli e impostare una proprietà di ciascun controllo su un valore specifico.
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 testo (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 testo facendo clic su TextBox dalla casella degli strumenti. Successivamente, puoi trascinare una casella di testo sul form utente.
4. Per modificare la didascalia del form utente, l'etichetta 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 vbModeless
Fine sottotitolo
Spiegazione: aggiungendo vbModeless, puoi utilizzare il modulo utente e lavorare contemporaneamente nel tuo foglio di lavoro.
Ora abbiamo creato la prima parte dell'Userform. Sebbene sembri già pulito, non accadrà ancora nulla quando faremo clic sul pulsante di comando sul form utente.
6. Aprire l'editor di Visual Basic.
7. Nell'Esplora progetti, fare doppio clic su UserForm1.
8. Fare doppio clic sul pulsante di comando.
9. Aggiungi le seguenti righe di codice:
Sub CommandButton1_Click privato ()
Dim i As Integer
Per i = da 1 a 10
Controls("TextBox" & i).Value = Cells(i + 1, 1).Value
Avanti io
Fine sottotitolo
Spiegazione: Con poche righe di codice, possiamo riempire le caselle di testo con i numeri di telefono del foglio. Abbiamo usato l'operatore & per concatenare (unire) gli elementi. Queste righe di codice funzionano perché non abbiamo modificato i nomi dei controlli della casella di testo (TextBox1, TextBox2, TextBox3, ecc.). Per modificare i nomi dei controlli, fare clic su Visualizza, Finestra delle proprietà e fare clic su ciascun controllo.
Risultato quando si fa clic sul pulsante di comando sul foglio:
