Come mostrare/nascondere la barra di stato utilizzando vba?

In VBA c’è una proprietà “Status Bar” che può aiutarti a visualizzare un valore nella barra di stato e c’è anche “DisplayStatusBar” per nascondere e mostrare lo stato della finestra di Excel. Quando si utilizzano queste proprietà, è necessario reimpostare la barra di stato fino alla fine, altrimenti l’ultimo messaggio o impostazione rimarrà lì.

Nel tutorial vedremo alcuni esempi che possiamo utilizzare quando lavoriamo in Excel.

Mostra un valore nella barra di stato

Come ho detto, puoi utilizzare la proprietà StatusBar per visualizzare un valore nella barra di stato. Nel codice seguente, hai utilizzato il valore “Hello” da aggiungere alla barra di stato.

1. Utilizzare la parola chiave “Applicazione” per fare riferimento all’applicazione Excel.
2. Digitare un punto per ottenere un elenco di proprietà e metodi.
3. Seleziona la proprietà “StatusBar”.
4. Alla fine, utilizza il segno uguale per specificare il valore che desideri visualizzare nella barra di stato.

 Sub vba_status_bar() Application.StatusBar = "Hello" End Sub

Nascondi la barra di stato usando VBA

Supponiamo ora che se desideri nascondere la barra di stato, puoi utilizzare DisplayStatusBar e specificare questa proprietà su “False” ( considera il codice seguente ).

1. Utilizzare la parola chiave “Applicazione” per fare riferimento all’applicazione Excel.
2. Digitare un punto per ottenere un elenco di proprietà e metodi.
3. Seleziona la proprietà “DisplayStatusBar”.
4. Alla fine, utilizzare il segno uguale per specificare “False”.

 Sub vba_status_bar_hide() Application.DisplayStatusBar = False End Sub

Aggiorna l’avanzamento nella barra di stato

Le successive esecuzioni del codice visualizzano un contatore di avanzamento sulla barra di stato utilizzando il numero da 1 a 100, che è possibile modificare secondo necessità.

 Sub vba_status_bar_update() Dim x As Integer Dim iTimer As Double 'you can change the loop if you need For x = 1 To 100 'dummy loop to run, you can change it as well iTimer = Timer Do Loop While Timer - MyTimer < 0.03 Application.StatusBar = "Progress: " & x & " of 100: " & Format(x / 100, "Percent") DoEvents Next x Application.StatusBar = False End Sub

Punti importanti da ricordare

1. È necessario utilizzare “app” con le proprietà della barra di stato per utilizzarle.
2. Una volta visualizzato un messaggio sullo stato, è necessario cancellarlo.