Come creare moduli con Excel

Apri un libro in Excel. Se sai in quale libro vuoi che sia il tuo modulo, allora è il momento di aprirlo. Usa il menu File per accedere al libro.

Fare clic sul menu "Strumenti", selezionare "Macro" e fare clic su "Visual Basic Editor".

Clicca su "Inserisci" e quindi seleziona "UserForm".

Trascina un pulsante di comando nel modulo. Hai bisogno di almeno tre di questi per questo esempio.

Dai nomi ai pulsanti di comando e alle etichette. Clicca su "Visualizza" e "Finestra Proprietà". Fai clic su uno dei pulsanti di comando che hai inserito nel modulo.

Denominare il pulsante di comando che leggerà "OK" facendo clic sulle impostazioni del nome nella finestra Proprietà e digitando "cmdOK". Fare clic sull'impostazione "Legenda" nella finestra Proprietà e digitare "OK".

Clicca su un altro pulsante di comando. Inserisci il nome di "cmdCancel" e imposta il titolo per leggere "Annulla" nella finestra Proprietà.

Fare clic sul terzo pulsante di comando e denominarlo "cmdClearForm" e modificare le impostazioni del titolo per leggere "Elimina modulo"

Premere il tasto "F7" sulla tastiera per visualizzare la finestra del codice.

Fare clic sull'elenco a discesa nella parte superiore della finestra del codice. Fare clic sulla lista in alto a sinistra per aprire la subprocedura denominata "Modulo utente" e fare clic sull'altro elenco a discesa per selezionare "Avvia".

Rimuovere la subprocedura sopra descritta che legge: procedura UserForm_Click ().

Scrivi il seguente codice nella finestra del codice (non scrivere sul testo blu, aggiungi il testo in nero): Private Sub UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" Con cboDepartment .AddItem "Dipendenti ".AddItem" Gestori "Fine con YourCourse.Value =" "optIntroduction = True chkWork = False chkVacation = Falso txtName.SetFocus End Sub

Inserisci il codice sul pulsante Annulla. Fare doppio clic sul pulsante Annulla per aprire la finestra del codice. Inserisci il tuo codice in modo che la finestra del codice legga: Private Sub cmdCancel_Click () Unload Me End Sub

Aprire la finestra del codice per il pulsante Elimina modulo. Ricorda di fare doppio clic su "Elimina modulo".

Inserisci il tuo codice nella finestra del codice per leggere: Private Sub cmdClearForm_Click () Chiama UserForm_Initialize End Sub

Fare doppio clic sul pulsante "Accetta" per aggiungere il seguente codice nella finestra del codice: Sottoscrittore privato cmdOK_Click () ActiveWorkbook.Sheets ("YourWork"). Attivare Range ("A1"). Selezionare Do If IsEmpty (ActiveCell) = FalseThen ActiveCell.Offset (1, 0). Seleziona End If Loop Until IsEmpty (ActiveCell) = True ActiveCell.Value = txtName.Value ActiveCell.Offset (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboDepartment .Value ActiveCell.Offset (0, 3) = cboCourse.Value Se optIntroduction = True Then ActiveCell.Offset (0, 4) .Value = "Invio" ElseIf optIntermediate = True Then ActiveCell.Offset (0, 4) .Value = " Intermed "Else ActiveCell.Offset (0, 4) .Value =" Adv "End If If chkLunch = True Then ActiveCell.Offset (0, 5) .Value =" Yes "Else ActiveCell.Offset (0, 5) .Value = "No" End If If chkWork = True Then ActiveCell.Offset (0, 6) .Value = "Yes" Else If chkVacation = False Then ActiveCell.Offset (0, 6) .Value = "" Else ActiveCell.Offset (0, 6) .Value = "No" End If End If Range ("A1"). Seleziona End Sub