/ / Екцел ВБА СтатусБар својство

Екцел ВБА СтатусБар својство

Тхе Статус ПропертиБар објекта апликације у Екцел ВБА може се користити за означавање напретка дугог макроа. На овај начин можете корисницима омогућити да знају да се макро још увек покреће.

Ситуација:

Макро ћемо направити попунити Ранге ("А1: Е20") са случајним бројевима.

Пример Екцел ВБА СтатусБар Примера

Додајте следеће линијске кодове у командно дугме:

1. Прво, објављујемо три варијабле типа Интегер, названих и, ј и пцтЦомпл.

Dim i As Integer, j As Integer, pctCompl As Integer

2. Додајте Доубле Лооп.

For i = 1 To 20
    For j = 1 To 5

    Next j
Next i

Додајте следеће линије кода (на 3, 4 и 5) у петљу.

3. Користите функцију РандБетвеен за увоз случајног броја између 20 и 100.

Cells(i, j).Value = WorksheetFunction.RandBetween(20, 100)

4. Иницијализирајте променљиву пцтЦомпл. Друга линија кода пише вриједност варијабле пцтЦомпл и неки описни текст у статусној траци.

pctCompl = (i - 1) * 5 + (j * 1)
Application.StatusBar = "Importing Data.. " & pctCompl & "% Completed"

Пример: За и = 3, ј = 1, (3 - 1) * 5 + (1 * 1) = 11% је завршено.

5. Ми користимо метод Ваит из објекта Апплицатион да симулирате дугачак макро.

Application.Wait Now + TimeValue("00:00:01")

6. Да бисте вратили подразумевани текст статусне траке, поставите својство СтатусБар на Фалсе (изван петље).

Application.StatusBar = False

Резултат када кликнете на командно дугме на листу:

Екцел ВБА СтатусБар својство резултата

Напомена: Можете да прекинете макро у било ком тренутку притиском на Есц или Цтрл + Бреак. За визуелни приступ погледајте наш прогрес Индикатор програма.

Такође прочитајте: