Creare un modulo in Excel, utilizzando i comandi raggruppati in una cornice, che produrrà i campi di testo semplice in cui l'utente può immettere le sue informazioni. Creare tre pulsanti di comando sul modulo che avranno un effetto sulle informazioni in forma quando l'utente esegue un sinistro del mouse con il mouse. E 'semplice per creare un modulo che elenca i dipendenti o dirigenti, e verificare il loro stato.

istruzione

1 Aprire una cartella di lavoro in Excel. Se si sa quale cartella di lavoro si desidera che il modulo di appartenere a, quindi ora è il momento di aprirla. Utilizzare il menu File per accedere alla cartella di lavoro.

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

3 Fai clic su "Inserisci", quindi selezionare "form".

4 Trascinare un pulsante di comando nel form. Hai bisogno di almeno tre di questi per questo esempio.

5 Mettere i nomi sul vostro pulsanti di comando e le etichette. Fai clic su "Visualizza" e "Finestra Proprietà". Fare clic su uno dei pulsanti di comando che si inserisce nel form.

6 Assegnare un nome al pulsante di comando che leggerà "OK" cliccando sul impostazione del nome nella finestra Proprietà e digitando "cmdOK". Clicca su l'impostazione "Caption" nella finestra Proprietà e digitare "OK".

7 Fare clic su un altro pulsante di comando. Nome di questo uno "cmdCancel," e impostare la didascalia per leggere "Cancel" nella finestra Proprietà.

8 Fare clic sul pulsante terzo comando, il nome "cmdClearForm" e modificare l'impostazione titolo per leggere "Cancella modulo."

9 Premete il tasto funzione "F7" sulla tastiera per visualizzare la finestra del codice.

10 Fare clic sugli elenchi a discesa nella parte superiore della finestra del codice. Visualizza l'elenco in alto a sinistra per aprire il subprocedure denominato "Modulo di utente" e fare clic sull'altro elenco a discesa per selezionare "Initialize".

11 Eliminare la sottoprocedura di cui sopra che dice: procedura UserForm_Click ().

12 Digitare il seguente codice nella finestra del codice (non digitare il testo blu, basta aggiungere il testo nero):
Private Sub UserForm_Initialize ()

txtName.Value = ""
txtPhone.Value = ""
With cboDepartment
.AddItem "Employees"
.AddItem "Managers"
End With

YourCourse.Value = ""
optIntroduction = True
chkWork = false
chkVacation = False
txtName.SetFocus

End Sub

13 Inserire il codice nel pulsante Annulla. Fare doppio clic sul pulsante Annulla per aprire la finestra del codice. Digitare il codice in modo che legge la finestra del codice: Private Sub cmdCancel_Click ()

Unload Me

End Sub

14 Aprire la finestra del codice per il pulsante Cancella modulo. Ricordatevi di fare doppio clic sul pulsante "Cancella modulo".

15 Digitare il codice nella finestra del codice in modo che legge:
Private Sub cmdClearForm_Click ()

Call UserForm_Initialize

End Sub

16 Fare doppio clic sul pulsante "OK" per aggiungere il seguente codice nella finestra del codice:

Private Sub cmdOK_Click ()

ActiveWorkbook.Sheets("YourWork").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = FalseThen
ActiveCell.Offset(1, 0).Select
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
If optIntroduction = True Then
ActiveCell.Offset(0, 4).Value = "Intro"
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").Select

End Sub