Nell'angolo in basso a sinistra di Excel, troverai una barra di stato:
Excel utilizza questa barra di stato per comunicarti messaggi. Tuttavia, la proprietà StatusBar può anche essere regolata utilizzando VBA, consentendo di visualizzare i propri messaggi.
Messaggio barra di stato personalizzato
Puoi aggiornare la barra di stato con il tuo messaggio personalizzato in Excel mentre è in esecuzione una macro, utilizzando il pulsante Barra di stato proprietà.
1. Inserisci questo codice in una macro ogni volta che desideri aggiornare l'utente con un messaggio della barra di stato personalizzato:
| 1 | Application.StatusBar = "Sto lavorando ora!!!" |
2. E alla fine della tua macro inserisci questo codice per cancellare la barra di stato e restituire il controllo a Excel:
| 1 | Application.StatusBar = FALSE |
Disabilita l'aggiornamento della barra di stato
Invece di visualizzare un messaggio durante l'esecuzione della procedura, è possibile disabilitare la barra di stato. Ciò aumenterà la velocità del codice VBA poiché Excel può saltare l'elaborazione del messaggio della barra di stato da visualizzare.
Per disabilitare l'aggiornamento della barra di stato mentre il codice è in esecuzione, impostare il DisplayStatusBar proprietà a falso.
| 1 | Application.DisplayStatusBar = False |
Alla fine del tuo codice, ripristina l'aggiornamento della barra di stato:
| 1 | Application.DisplayStatusBar = True |
Importante! Utilizzare il Barra di stato proprietà per impostare i messaggi, ma usa il DisplayStatusBar proprietà per disabilitare o abilitare del tutto la barra di stato.
Accelera il codice VBA
Per una velocità di elaborazione ottimale prova a utilizzare questo codice:
| 12345678910111213141516 | sub Esegui veloce()Application.ScreenUpdating = FalseApplication.DisplayStatusBar = FalseApplication.EnableEvents = FalseActiveSheet.DisplayPageBreaks = FalseApplication.Calculation = xlCalculationManual"Il tuo codice qui"Application.ScreenUpdating = TrueApplication.DisplayStatusBar = TrueApplication.EnableEvents = TrueActiveSheet.DisplayPageBreaks = TrueApplicazione.Calcolo = xlCalcoloAutomaticofine sotto |
