Как показать/скрыть строку состояния с помощью vba?

В VBA есть свойство «Строка состояния», которое может помочь вам отобразить значение в строке состояния, а также есть свойство «DisplayStatusBar», позволяющее скрывать и показывать состояние окна Excel. При использовании этих свойств необходимо сбросить строку состояния до конца, иначе там останется последнее сообщение или настройка.

В уроке мы увидим несколько примеров, которые можно использовать при работе в Excel.

Показать значение в строке состояния

Как я уже сказал, вы можете использовать свойство StatusBar для отображения значения в строке состояния. В приведенном ниже коде вы использовали значение «Привет» для добавления в строку состояния.

1. Используйте ключевое слово «Приложение» для ссылки на приложение Excel.
2. Введите точку, чтобы получить список свойств и методов.
3. Выберите свойство «StatusBar».
4. В конце используйте знак равенства, чтобы указать значение, которое вы хотите отображать в строке состояния.

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

Скрыть строку состояния с помощью VBA

Теперь предположим, что если вы хотите скрыть строку состояния, вы можете использовать DisplayStatusBar и указать для этого свойства значение «False» ( рассмотрите следующий код ).

1. Используйте ключевое слово «Приложение» для ссылки на приложение Excel.
2. Введите точку, чтобы получить список свойств и методов.
3. Выберите свойство «DisplayStatusBar».
4. В конце используйте знак равенства, чтобы указать «False».

 Sub vba_status_bar_hide() Application.DisplayStatusBar = False End Sub

Обновление прогресса в строке состояния

Последующие выполнения кода отображают счетчик выполнения в строке состояния с числом от 1 до 100, которое вы можете изменить по мере необходимости.

 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

Важные моменты, которые следует помнить

1. Чтобы использовать их, вам нужно использовать «приложение» со свойствами строки состояния.
2. После просмотра сообщения о статусе вам необходимо удалить это сообщение.