Questo progetto riassume i numeri in un intervallo sopra la cella attiva , inserendo la somma nella cella attiva . Per iniziare questo progetto , creare i dati per esso - i numeri da sommare . In un foglio di lavoro di Excel , immettere i cinque numeri in una colonna . Selezionare la prima cella vuota sotto la colonna di numeri .
Ora , creare il programma Visual Basic che sommerà i numeri .
Inserisci il codice che l'ambiente di sviluppo
Inserisci l' ambiente di sviluppo integrato di Visual Basic ( IDE ), premendo Alt - F11 . Nella finestra del codice , digitare la seguente funzione:
Sub Macro1 ( ) per
Dim s As StringDim o Come RangeDim p come gamma
o = ActiveCell.Offset ( -1 ) Set p = o.End ( xlUp ) set q = Range ( o, p ) per
s = " = media ( " & q.Address & " ) "
ActiveCell.Formula = s
End Sub
Questo codice del programma equivale a inserire manualmente il seguente testo nella cella selezionata in precedenza : " = somma ( Eseguire la macro con il ritorno al foglio di lavoro di Excel , selezionando Developer > Macro , selezionare Macro1 , e premendo il pulsante Esegui . La macro riassume la colonna di numeri , inserendo il risultato nella cella attualmente attivato . ( Se non vedi la scheda Sviluppo , esporlo selezionando il pulsante Office in alto a sinistra di Excel , scegliere Opzioni di Excel , e la "Mostra scheda Sviluppo sulla barra multifunzione . " ) il secondo progetto si basa sulla prima , consentendo l' uso del proprio programma una scelta di funzioni Reinserire l'IDE di Visual Basic e selezionare . Inserisci> UserForm. Trascinare i seguenti controlli nella forma dalla casella degli strumenti : una casella di riepilogo e un pulsante . Premere F7 per tornare alla visualizzazione del codice e selezionare Form utente dalla casella a discesa a sinistra nella parte superiore della finestra del codice , e inizializzare da destra casella a discesa . L'IDE crea la funzione Sub UserForm_Initialize ( ) . In tale funzione , immettere questo codice , che si aggiunge alla casella di riepilogo i nomi delle funzioni che l'utente seleziona da : " sum " ListBox1.AddItem " media " Utilizzare il caselle di sinistra e di destra a discesa della finestra di codice , ancora una volta , la scelta di CommandButton1 da sinistra a discesa e clicca da destra casella a discesa . L'IDE crea la funzione vuota CommandButton1_Click ( ) . Immettere il seguente codice in quella funzione , che chiamerà l'originale macro1 hai scritto con la funzione che l'utente sceglie dalla casella di riepilogo : Macro1 ( ListBox1.Value ) per Modifica Macro1 ad accettare un argomento : Tasto destro del mouse il testo " Macro1 " e selezionare definizione per navigare alla definizione Macro1 . Modificare la riga "Sub Macro1 ( ) " leggere "Sub Macro1 ( func As String ) " Ora che hai aggiunto l'argomento , modificare Macro1 usarlo: modificare l'istruzione s = " = media ( "& q.Address &" ) " come segue : s = " = " & pippo &" ( "& q.Address &" ) " Inserisci questa nuova funzione sotto Macro1 : Sub Macro2 ( ) UserForm1.ShowEnd Sub
progetto Due: Utilizzare un modulo
ListBox1.AddItem
Scrivi il funzione che carica il modulo
Informazioni correlate
Programmazione © www.354353.com