Creare un modulo in Excel , utilizzando i comandi raggruppati in un frame , che produrrà semplici campi di testo in cui l'utente può inserire le sue informazioni . Creare tre pulsanti di comando sulla forma che avrà un effetto sulle informazioni nella forma in cui l'utente esegue un clic sinistro con il mouse. E 'semplice per creare un modulo che elenca i dipendenti o dirigenti , e verificare il loro stato . Istruzioni
1

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

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

Fare clic su " Inserisci " e poi selezionare " form. "
4

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

dare dei nomi dei pulsanti e le etichette di comando . Fare clic su "Visualizza" e "Finestra delle proprietà ". Fare clic su uno dei pulsanti di comando che è inserito nel modulo .
6

Nome del pulsante di comando che sarà " OK ", facendo clic sul nome di impostazione nella finestra Proprietà e digitando " cmdOK " . Clicca sulla impostazione " Caption" nella finestra delle proprietà e digitare "OK" .
7

Clicca su un altro pulsante di comando . Nome di questo uno " cmdCancel , " e impostare la didascalia di leggere "Annulla" nella finestra delle proprietà .
8

Fare clic sul pulsante terzo comando , il nome " cmdClearForm " e modificare l'impostazione di leggere didascalia " Cancella modulo ".
9

Premi il tasto funzione " F7 " sulla tastiera per aprire la finestra del codice .
10

Clicca sugli elenchi a discesa nella la parte superiore della finestra del codice . Clicca sulla lista in alto a sinistra per aprire il subprocedure denominato " Modulo di utente" e cliccare sul altro elenco a discesa per selezionare
11

Eliminare il subprocedure elencato sopra che dice " inizializzazione ". : UserForm_Click ( ) Procedura di
12

digitare il seguente codice nella finestra del codice (non digitare il testo in blu , basta aggiungere il testo nero ) : . private Sub UserForm_Initialize ( ) txtName.Value = " " txtPhone . Value = " " Con cboDepartment.AddItem "Dipendenti" . AddItem " Responsabili " End With

YourCourse.Value = " " optIntroduction = TruechkWork = FalsechkVacation = FalsetxtName.SetFocusEnd Sub
13 < p > Inserisci il tuo codice nel pulsante Annulla . Fare doppio clic sul pulsante Annulla per aprire la finestra del codice . Digitare il codice in modo che la finestra di codice legge : Private Sub cmdCancel_Click ( ) Unload MeEnd Sub
14

Aprire la finestra del codice per il tasto Cancella . Ricordati di fare doppio clic sul pulsante " Cancella modulo "
15

Tipo il codice nella finestra del codice in modo che legge : . Private Sub cmdClearForm_Click ( ) Chiamata UserForm_InitializeEnd Sub
16 < p > Fare doppio clic sul pulsante " OK " per aggiungere il codice riportato di seguito nella finestra del codice : . .

private Sub cmdOK_Click ( ) ActiveWorkbook.Sheets ( " yourwork " ) ActivateRange ( " A1 " ) SelectDoIf IsEmpty ( ActiveCell ) = FalseThenActiveCell.Offset ( 1 , 0 ) . SelectEnd IfLoop Fino IsEmpty ( ActiveCell ) = TrueActiveCell.Value txtName.ValueActiveCell.Offset = ( 0 , 1 ) = txtPhone.ValueActiveCell.Offset ( 0 , 2 ) = cboDepartment.ValueActiveCell . Offset ( 0 , 3) = cboCourse.ValueIf optIntroduction = True ThenActiveCell.Offset ( 0 , 4) . Value = "Intro " ElseIf optIntermediate = True ThenActiveCell.Offset ( 0 , 4) . Valore = ElseActiveCell.Offset " Intermed " ( 0 , 4) . Valore = Fine " Adv " IFIF chkLunch = True ThenActiveCell.Offset ( 0 , 5 ) . Value = "Sì" ElseActiveCell.Offset ( 0 , 5 ) . Value = " No " End IFIF chkWork = True ThenActiveCell.Offset ( 0 , 6 ) . Value = " Sì " ElseIf chkVacation = False ThenActiveCell.Offset ( 0 , 6 ) . Value = " " ElseActiveCell.Offset ( 0 , 6 ) . Value = " No " End IfEnd IfRange ( " A1 " ) . SelectEnd Sub