Esempi di Excel VBA: esempi di eventi introduttivi

La finestra del codice dovrebbe essere simile a questa.

Questa procedura del gestore eventi viene eseguita all'apertura della cartella di lavoro.

Workbook_Open viene eseguito automaticamente ogni volta che viene aperta la cartella di lavoro. Utilizza la funzione WeekDay di VBA per determinare il giorno della settimana. Se è venerdì (giorno 6), una finestra di messaggio ricorda all'utente di inviare una segnalazione. Se non è venerdì, non succede nulla.

Se oggi non è venerdì, potresti avere difficoltà a testare questa procedura. Puoi semplicemente modificare il 6 in modo che corrisponda al numero del giorno effettivo di oggi.

E, naturalmente, puoi modificare questa procedura come preferisci. Ad esempio, la versione seguente visualizza un messaggio ogni volta che viene aperta la cartella di lavoro. Questo diventa fastidioso dopo un po'.

Una procedura Workbook_Open pu�� fare quasi tutto. Questi gestori di eventi vengono spesso utilizzati per quanto segue:

• Visualizzazione dei messaggi di benvenuto (come nella fantastica cartella di lavoro di Frank)
• Apertura di altre cartelle di lavoro
• Attivazione di un particolare foglio di lavoro nella cartella di lavoro
• Configurazione di menu di scelta rapida personalizzati

Ecco un esempio finale VBA di Excel di una procedura Workbook_Open che usa le funzioni GetSetting e SaveSetting per tenere traccia di quante volte la cartella di lavoro è stata aperta. La funzione SaveSetting scrive un valore nel registro di Windows e la funzione GetSetting recupera tale valore (consultare la Guida per i dettagli). Il seguente esempio di Excel VBA recupera il conteggio dal registro, lo incrementa e quindi lo salva di nuovo nel registro. Indica inoltre all'utente il valore di Cnt che corrisponde al numero di volte in cui la cartella di lavoro è stata aperta.

Cartella di lavoro secondaria privata_Apri()
  Dim Cnt As Long
  Cnt = GetSetting("MyApp", "Impostazioni", "Apri", 0)
  Cnt = Cnt + 1
  SaveSetting "MyApp", "Settings", "Open", Cnt
  MsgBox "Questa cartella di lavoro è stata aperta " & Cnt & " volte."
Fine sottotitolo

Cartella di lavoro secondaria privata_BeforeClose (Annulla come booleano)
  Dim Msg As String
  Dim Ans quanto a lungo
  Dim FName As String
  Msg = "Vuoi fare un backup di questo file?"
  Risposta = MsgBox(Msg, vbSìNo)
  Se Ans = vbSì Allora
    FName = "F:\BACKUP\" & ThisWorkbook.Name
    ThisWorkbook.SaveCopyAs FName
  Finisci se
Fine sottotitolo

Cartella di lavoro secondaria privata_BeforeSave(ByVal SaveAsUI _
  come booleano, annulla come booleano)
  Contatore fioco come intervallo
  Imposta contatore = Fogli ("Foglio1"). Intervallo ("A1")
  Valore.Contatore = Valore.Contatore + 1
Fine sottotitolo

Cartella di lavoro secondaria privata_BeforeSave(ByVal SaveAsUI _
  come booleano, annulla come booleano)
  Se SaveAsUI Then
    MsgBox "Non puoi salvare una copia di questa cartella di lavoro!"
  Annulla = Vero
  Finisci se
Fine sottotitolo