iniziare a creare un modulo utente inserendo il Visual Basic ( ambiente di sviluppo integrato) : dal foglio di lavoro di Excel , premere il tasto " alt " - " F11 " . Creare un nuovo modulo utente tramite " Inserisci" > " UserForm "
Trascinare i seguenti controlli dalla casella degli strumenti nel form : . Due caselle di testo , la seconda sotto la prima . Aggiungere un pulsante di comando sotto le caselle di testo , e due controlli etichetta , ciascuno a sinistra di una casella di testo . Nella finestra Proprietà, modificare la didascalia dell'etichetta superiore al " nome", e la didascalia dell'etichetta inferiore a " Indirizzo email ". Modificare la didascalia del pulsante su " Invia".
Inserisci il codice
scrivere il codice che estrae i dati dal modulo e lo inserisce in un foglio di lavoro .
Dalla finestra di progettazione del modulo , fare doppio clic sul pulsante "Invia" . . Il cursore si sposta l'evento Button1_Click , che viene generato quando si fa clic sul pulsante durante l'esecuzione del programma
In caso Button1_Click , inserire il seguente codice di programma :
Dim r come gamma
Set r = Range (" a65536 " ) . End ( xlUp ) per
Set r = r.Offset ( 1 , 0 ) per
r.Value =
Textbox1.Value
Set r = r.Offset ( 0 , 1 ) = r.Value TextBox2.Value - ----------------------------- -----------
Scrivi una piccola subroutine che visualizza il nuovo modulo utente . All'interno l'IDE , fare doppio clic sull'icona ThisWorkbook nel riquadro del progetto . Nella finestra del codice , digitare il nuovo sottoprogramma :
Public Sub mac1 ( ) UserForm1.Show
End Sub
Eseguire il programma dal foglio di lavoro di Excel andando allo sviluppatore> le macro , selezionando " mac1 , " e premendo il pulsante "Esegui" . Inserire alcuni dati del foglio di lavoro con il modulo utente .
Esplora il Programma
La prima linea di Button1_Click dichiara una variabile di intervallo . Un intervallo è un insieme di celle del foglio di lavoro . Potrai inserire i dati in tale intervallo con il codice che segue l'istruzione Dim
L' istruzione Set r = Range (" a65536 ") End ( xlUp ) definisce un intervallo di una cella : . . Della cella più a sinistra della riga precedente dei dati . Questo non è un pezzo intuitiva dall'aspetto di codice , quindi non preoccupatevi se non si capisce a prima vista . Rompere la dichiarazione per vedere come funziona. La Range (" a65536 " ) porzione specifica chiaramente la cella a65536 - modo al fondo della prima colonna del foglio di lavoro . Il pezzo successivo , End ( xlUp ) , è un altro campo : è dove il vostro cursore finirebbe se si aveva inizialmente sul cellulare a65536 , preme il tasto di fine chiamata , e poi premuto la freccia su
Se tu fossi . per inserire i dati in quella cella , che ci si sovrascrive la riga precedente . Ecco perché è necessario il seguente comunicato : Set r = r.Offset ( 1 , 0 ) . Tale dichiarazione ridefinisce la gamma ad essere una riga verso il basso ( e zero colonne a destra ) da dove era. La gamma "r " è ora nella prima cella vuota sotto le righe di dati esistenti . Ed è qui che il codice può iniziare l'inserimento di una nuova riga di dati .
Di riempimento dati delle celle da Forma ingresso
Le successive dichiarazioni spostare i dati del modulo per il campo di codice appena identificato come le prime celle vuote sotto la riga di dati precedente. r.Value = Textbox1.Value imposta il valore della cella vuota con il valore dalla prima casella di testo . La cella successiva è una colonna a destra , e insieme R = r.Offset ( 0 , 1 ) ridefinisce la gamma di essere quella cella . Gli argomenti 0 e 1 si riferiscono a 0 righe verso il basso e 1 cella a destra di ( "r" ) posizione della gamma precedente .
Riempire le due colonne completa una riga di dati . Quando l' utente fa clic sul pulsante , l'evento Button1_Click verrà eseguito di nuovo . L' insieme R = Range (" a65536 " ) . End ( xlUp ) sarà ancora una volta impostato correttamente il range della nuova riga .
software © www.354353.com