Используйте Excel и 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 как целое число cnt = 0
Шаг 5
Введите следующее, чтобы скрыть все метки при запуске формы:
Мне. Label1.Visible = Ложь. Label2.Visible = Ложь. Label3.Visible = Ложь. Label4.Visible = Ложь. Label5.Visible = Ложь Мне. Label6.Visible = Ложь. Label7.Visible = Ложь. Label8.Visible = Ложь. Label9.Visible = Ложь. Label10.Visible = Ложь
ШАГ 6
Введите следующее, чтобы создать цикл while и выполнить итерацию 10 раз, приостановив код на 5 секунд:
Сделать пока cnt <> 10
Выберите Case cnt Case Is = 1 Me. Label1.Visible = Правда меня. Label1.BackColor = vbBlue Case Is = 2 Me. Label2.Visible = True Me. Label2.BackColor = vbBlue Case Is = 3 Me. Label3.Visible = Правда меня. Label3.BackColor = vbBlue Case Is = 4 Me. Label4.Visible = Правда меня. Label4.BackColor = vbBlue Case Is = 5 Me. Label5.Visible = Правда меня. 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 = Правда меня. Label10.BackColor = vbBlue End Select. Мне. Перекрасить приложение. Подождите сейчас + TimeValue ("00:00:05")cnt = cnt + 1
Петля
Шаг 7
Щелкните меню «Вставить», затем щелкните «Модуль», чтобы добавить новый модуль. Скопируйте и вставьте приведенный ниже код, чтобы запустить "UserForm1.":
Sub showProgressBar () UserForm1.Show End Sub
Нажмите «F5», чтобы запустить вашу программу.
