Как создать индикатор выполнения в VBA

Индикатор выполнения используется в компьютерном приложении для индикации хода выполнения операции. Обычно это прямоугольник, который анимируется по мере выполнения операции. Visual Basic для приложений или VBA — это язык программирования, используемый в приложениях Microsoft Office для автоматизации рутинных задач и создания пользовательских интерфейсов. Вы можете легко создать индикатор выполнения с помощью VBA в Microsoft Office Excel. Excel — это приложение для работы с электронными таблицами, входящее в пакет Microsoft Office.

Шаг 1

Откройте Microsoft Office Excel, затем нажмите «Alt» и «F11», чтобы открыть редактор Visual Basic. Щелкните правой кнопкой мыши «VBAProject», затем щелкните «UserForm», чтобы вставить новую форму. В меню «Панель инструментов» нажмите «Ярлык». Удерживая кнопку мыши, перетащите форму, чтобы создать новый элемент управления меткой.

Шаг 2

Щелкните метку правой кнопкой мыши и выберите "Свойства", затем измените "Высоту" на 42 и "Ширина" на 12. Измените "Верх" на 12. Создайте еще девять меток, используя тот же процесс.

Шаг 3

Нажмите «CommandButton» на панели «Панель инструментов» и добавьте новую кнопку в форму. Щелкните правой кнопкой мыши «CommandButton» и выберите «Просмотр кода», чтобы создать новую процедуру.

Шаг 4

Введите следующее, чтобы создать новую переменную и определить ее значение:

Dim cnt As Integer cnt =0

Шаг 5

Введите следующее, чтобы скрыть все метки при запуске формы:

Me.Label1.Visible =False Me.Label2.Visible =False Me.Label3.Visible =False Me.Label4.Visible =False Me.Label5.Visible =False Me.Label6.Visible =False Me.Label7.Visible =False Me .Label8.Visible =False Me.Label9.Visible =False Me.Label10.Visible =False

Шаг 6

Введите следующее, чтобы создать цикл while и повторить 10 раз, приостановив код на 5 секунд:

Делать пока cnt <> 10

Select Case cnt
 Case Is = 1
 Me.Label1.Visible = True
 Me.Label1.BackColor = vbBlue
 Case Is = 2
 Me.Label2.Visible = True
 Me.Label2.BackColor = vbBlue

 Case Is = 3
 Me.Label3.Visible = True
 Me.Label3.BackColor = vbBlue

 Case Is = 4
 Me.Label4.Visible = True
 Me.Label4.BackColor = vbBlue

 Case Is = 5
 Me.Label5.Visible = True
 Me.Label5.BackColor = vbBlue

 Case Is = 6
 Me.Label6.Visible = True
 Me.Label6.BackColor = vbBlue

 Case Is = 7
 Me.Label7.Visible = True
 Me.Label7.BackColor = vbBlue

 Case Is = 8
 Me.Label8.Visible = True
 Me.Label8.BackColor = vbBlue

 Case Is = 9
 Me.Label9.Visible = True
 Me.Label9.BackColor = vbBlue

 Case Is = 10
 Me.Label10.Visible = True
 Me.Label10.BackColor = vbBlue


End Select
Me.Repaint

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

ЦНТ =ЦНТ + 1

Цикл

Шаг 7

Нажмите меню «Вставить», затем нажмите «Модуль», чтобы добавить новый модуль. Скопируйте и вставьте приведенный ниже код, чтобы запустить «UserForm1.»:

Sub showProgressBar() UserForm1.Show End Sub

Нажмите "F5", чтобы запустить программу.