Користите Екцел и ВБА да направите траку напретка.
Трака напретка се користи у рачунарској апликацији да означи напредак операције. Обично је то правоугаоник који се анимира како операција напредује. Висуал Басиц за апликације, или ВБА, је рачунарски програмски језик који се користи у Мицрософт Оффице апликацијама за аутоматизацију рутинских задатака и креирање корисничких интерфејса. Можете лако да креирате траку напретка користећи ВБА у Мицрософт Оффице Екцел-у. Екцел је апликација за табеларне прорачуне укључена у Мицрософт Оффице пакет.
Корак 1
Отворите Мицрософт Оффице Екцел, а затим притисните „Алт“ и „Ф11“ да бисте отворили Висуал Басиц Едитор. Кликните десним тастером миша на „ВБАПројецт“, а затим кликните на „УсерФорм“ да бисте уметнули нови образац. У менију „Тоолбок“ кликните на „Лабел“. Док држите дугме миша, превуците образац да бисте креирали нову контролу ознаке.
Видео дана
Корак 2
Кликните десним тастером миша на ознаку и изаберите „Својства“, а затим промените „Висину“ на 42 и „Ширина“ на 12. Промените „Врх“ на 12. Направите још девет етикета користећи исти процес.
Корак 3
Кликните на „ЦоммандБуттон“ у окну „Тоолбок“ и додајте ново дугме у свој образац. Кликните десним тастером миша на „ЦоммандБуттон“ и кликните на „Прикажи код“ да бисте креирали нову процедуру.
Корак 4
Унесите следеће да бисте креирали нову променљиву и дефинисали њену вредност:
Дим цнт Као цео број цнт = 0
Корак 5
Унесите следеће да бисте сакрили све ознаке када се образац покрене:
ја. Лабел1.Висибле = Фалсе Ме. Лабел2.Висибле = Фалсе Ме. Лабел3.Висибле = Фалсе Ме. Лабел4.Висибле = Фалсе Ме. Лабел5.Висибле = Фалсе ја. Лабел6.Висибле = Фалсе Ме. Лабел7.Висибле = Фалсе Ме. Лабел8.Висибле = Фалсе Ме. Лабел9.Висибле = Фалсе Ме. Лабел10.Висибле = Фалсе
Корак 6
Унесите следеће да бисте креирали вхиле петљу и поновили 10 пута док паузирали код на 5 секунди:
Урадите Док цнт <> 10
Изаберите Цасе цнт Цасе Ис = 1 Ме. Лабел1.Висибле = Истина. Лабел1.БацкЦолор = вбБлуе Цасе Ис = 2 Ме. Лабел2.Висибле = Истина. Лабел2.БацкЦолор = вбБлуе Цасе Ис = 3 Ме. Лабел3.Висибле = Истина. Лабел3.БацкЦолор = вбБлуе Цасе Ис = 4 Ме. Лабел4.Висибле = Истина. Лабел4.БацкЦолор = вбБлуе Цасе Ис = 5 Ме. Лабел5.Висибле = Истина. Лабел5.БацкЦолор = вбБлуе Цасе Ис = 6 Ме. Лабел6.Висибле = Истина. Лабел6.БацкЦолор = вбБлуе Цасе Ис = 7 Ме. Лабел7.Висибле = Труе Ме. Лабел7.БацкЦолор = вбБлуе Цасе Ис = 8 Ме. Лабел8.Висибле = Труе Ме. Лабел8.БацкЦолор = вбБлуе Цасе Ис = 9 Ме. Лабел9.Висибле = Труе Ме. Лабел9.БацкЦолор = вбБлуе Цасе Ис = 10 Ме. Лабел10.Висибле = Труе Ме. Лабел10.БацкЦолор = вбБлуе Енд Селецт. ја. Апликација за поновно фарбање. Сачекајте одмах + временска вредност("00:00:05")цнт = цнт + 1
Лооп
Корак 7
Кликните на мени „Инсерт“, а затим кликните на „Модуле“ да бисте додали нови модул. Копирајте и налепите код испод да бисте покренули свој „УсерФорм1.“:
Суб сховПрогрессБар() УсерФорм1.Схов Енд Суб
Притисните "Ф5" да покренете свој програм.
