Nella finestra di progettazione dell'IDE (Visualizza> Oggetto), trascinare e controlli caduta dalla casella degli strumenti a un form utente come segue :
Inserire un controllo frame nel form . Nella finestra Proprietà , modificare la didascalia di " Stato civile ". Con il controllo del telaio ancora selezionato , trascinare due pulsanti di opzione all'interno del controllo struttura . Trascinare due etichette nel telaio , ciascuno a sinistra di un pulsante di opzione . Dare le etichette le didascalie " Sposata ", e "Single ".
Trascinare una casella di riepilogo sotto il suo telaio e pulsanti di opzione . Trascinare una etichetta , che dovrebbe automaticamente essere nominato Label3 , sotto la casella di riepilogo . Inserire " Risposta alla domanda di sicurezza , " per la sua didascalia . A destra della Label3 trascinare una casella di testo . Sotto la casella di testo trascinare un pulsante e dare la voce " Invia". Infine, trascinare un'etichetta , che dovrebbe essere chiamato Label4 , alla destra del controllo telaio . Fai la sua didascalia vuota .
Le azioni appena scattata creato una forma tipica che raccoglie dati da un nuovo potenziale cliente . È ora verrà utilizzato Visual Basic per trasferire i dati del cliente dai controlli su un foglio di lavoro Excel .
Creazione di codice per il modulo
doppio clic sul form per inserire il finestra di codice , quindi selezionare questi oggetti dalle due caselle a discesa nella parte superiore della finestra del codice : UserForm , e inizializzare . L'IDE creerà un vuoto sub inizializzazione. All'interno di quella secondaria , immettere questo codice , che popola la casella di riepilogo quando si avvia il programma :
ListBox1.List = array ( "Cosa hai di film preferito ", " ? In quale città sei nato ", " Che cosa è il suono di una mano sola ? " ) per
Come hai fatto per Initialize subroutine il form dell'utente , creare subroutine vuote per eventi Click dei pulsanti di opzione " , utilizzando scatole di finestra del codice a discesa . Negli eventi Click sia OptionButton1 e 2, inserire il seguente codice: " coniugale ". Questo è il nome di una funzione si scrive ora :
In una sezione vuota della finestra del codice , creare la funzione civile:
Private Sub coniugale ( ) ' Quale pulsante è stato selezionato Se ? OptionButton1.Value = True ThenLabel4.Caption = ElseLabel4.Caption "sposato " = "single" End If End Sub
trasferimento dei dati del modulo al foglio di lavoro
Creare la subroutine vuota per l'evento Click del pulsante di comando utilizzando scatole di finestra del codice a discesa e immettere questo nella subroutine :
Range ("A1 " ) = Label4.CaptionRange ( "B1" ) = ListBox1.ValueRange ( " C1" ) = Textbox1.Value
Questo codice trasferisce i dati del modulo per il foglio di lavoro .
Immettere l'ultimo pezzo di codice , una nuova subroutine che visualizza la forma :
Public Sub ShowForm ( ) UserForm1.Show
End Sub
software © www.354353.com