Come utilizzare gli eventi con l'oggetto Application in Excel

linguaggio di programmazione di Microsoft Excel , Visual Basic, Applications Edition (VBA ) , fa uso di oggetti virtuali per estendere le funzionalità di Excel . Uno di questi oggetti è l' oggetto Application , che consente ai programmatori di VBA di scrivere programmi che influenzano l'applicazione Excel stesso . Eventi di questa causa oggetto subroutine chiamate " funzioni di eventi " per eseguire. Qualsiasi codice di programma si inserisce in queste funzioni verrà eseguito quando si verifica l'evento (ad esempio nuova creazione , selezione foglio cartella di lavoro ), che la funzione è stata scritta per . Un vantaggio di scrittura di tale codice è la capacità di schermare dati come l'utente entra. Ambiente di programmazione Istruzioni
1

Open Excel VBA facendo clic destro scheda di ogni foglio di lavoro in una cartella di lavoro aperta , quindi selezionando la voce " Visualizza codice " .
2

doppio clic riga del riquadro "Progetto" " Questa cartella di lavoro " per aprire una nuova finestra del codice .
3

Incollare il codice seguente nella prima riga vuota della nuova finestra . Questa subroutine , che verrà eseguito quando si riapre la cartella di lavoro corrente , crea una nuova istanza di oggetto Application di Excel . In questo modo, la subroutine rende le funzioni di evento dell'oggetto Application disponibile per scrivere programmi per .

Privato WithEvents objApp Come Application

Private Sub Workbook_Open ( ) per

objApp = Application

End Sub
4

Clicca il più a sinistra nell'elenco a discesa nella parte superiore della finestra del codice . VBA visualizzerà un elenco di oggetti che è possibile scrivere codice funzione per l' evento . Uno degli oggetti nella lista è la variabile " objApp " è dichiarata e definita nel passaggio precedente . Selezionare l'oggetto .
5

Clicca l'elenco a discesa a destra della finestra del codice , quindi selezionare la funzione di evento " NewWorkbook " . VBA creerà una funzione di evento vuoto che ti scrive il codice per .
6

incollare o digitare il seguente codice di programma di cui sopra istruzione " End Sub " della subroutine " objApp_NewWorkbook " .

MsgBox " Hai creato una nuova cartella di lavoro . "
7

Premi " Alt + F4 " per chiudere l'ambiente VBA , e premere la stessa sequenza di tasti per chiudere Excel . Salvare la cartella di lavoro con un nome di file valido e con una estensione di file " * . Xlsm . " Salvare e riaprire la cartella di lavoro esegue la funzione evento Workbook_Open hai scritto al punto 3. Questa funzione deve eseguire per abilitare le funzioni di eventi objApp per l'esecuzione.
8

riaprire la cartella di lavoro è appena chiuso , quindi premere " Ctrl- N" per creare una nuova cartella di lavoro . Il codice che hai scritto per la subroutine objApp_NewWorkbook al punto 6 verrà eseguito , e visualizzerà il messaggio " Hai creato una nuova cartella di lavoro . "
9

Premi " Alt- F11 " per rientrare nel VBA ambiente , quindi incollare la seguente nuova funzione di evento in ogni spazio vuoto nella finestra del codice . Questa funzione evento, che verrà eseguito quando si modifica una cella della cartella di lavoro attualmente aperta , sostituisce il testo " JS " con il testo " . John Smith "

objApp_SheetChange Private Sub ( ByVal Sh As Object , obiettivo di ByVal come gamma ) per

Dim x

x = Target.Value

Se ( x = " JS " ) Poi

x = " John Smith "

Target.Value = x

End If End

sub
10

Torna Excel premendo "Alt - F11 ", quindi digitare il testo " JS " in ogni cella . Quando si preme "Invio ", la funzione di evento objApp_SheetChange hai scritto nel passaggio precedente verrà eseguito , e cambiare " JS " in " John Smith ".