Використовуйте Excel і VBA, щоб створити індикатор виконання.
Індикатор виконання використовується в комп’ютерній програмі для вказівки на перебіг операції. Зазвичай це прямокутник, який анімується під час виконання операції. Visual Basic for Applications, або 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 = False я. Label6.Visible = Неправда. Label7.Visible = Неправда. Label8.Visible = Неправда. Label9.Visible = Неправда. Label10.Visible = False
Крок 6
Введіть наступне, щоб створити цикл while і повторити 10 разів, призупинивши код на 5 секунд:
Зробіть Поки cnt <> 10
Виберіть Case cnt Case Is = 1 Me. Label1.Visible = Правда. Label1.BackColor = vbBlue Case Is = 2 Me. Label2.Visible = Правда. Label2.BackColor = vbBlue Case Is = 3 Me. Label3.Visible = True Me. 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 = Правда. Label6.BackColor = vbBlue Case Is = 7 Me. Label7.Visible = True Me. Label7.BackColor = vbBlue Case Is = 8 Me. Label8.Visible = Правда. Label8.BackColor = vbBlue Case Is = 9 Me. Label9.Visible = Правда. Label9.BackColor = vbBlue Case Is = 10 Me. Label10.Visible = True Me. Label10.BackColor = vbBlue End Select. я. Програма перефарбування. Зачекайте зараз + TimeValue("00:00:05")cnt = cnt + 1
Петля
Крок 7
Натисніть меню «Вставка», а потім натисніть «Модуль», щоб додати новий модуль. Скопіюйте та вставте наведений нижче код, щоб розпочати "UserForm1.":
Sub showProgressBar() UserForm1.Show End Sub
Натисніть «F5», щоб запустити програму.
