Екцел ВБА трака напретка у програму Екцел
Трака напретка је нешто што нам показује колико је процеса урађено или завршено када покренемо велике скупове кодова који захтевају веће време за извршење. Користимо траку напретка у ВБА да покажемо кориснику о статусу процеса или ако да се више процеса изводи у једном коду, користимо траку напретка да покажемо који је процес колико напредовао.
Трака напретка приказује проценат извршених задатака када се стварни задатак изводи иза екрана са низом упутстава датих кодом.
Када ВБА коду треба значајно време за извршење, мука је корисника да зна колико брзо може да заврши. Подразумевано треба да сачекамо пуно време да довршимо задатак, али уметањем траке напретка упознајемо напредак ВБА кода.
У готово свим рачунарским софтвером видимо тракастог графикона напретка који приказује напредак задатка који извршавамо, баш као и слика испод.
У Екцелу можемо створити траку напретка помоћу ВБА кодирања. Ако сте се икад запитали како можемо да направимо траку напретка, онда је ово чланак прилагођен вама.
Направите сопствену траку напретка
Да бисмо креирали траку напретка, морамо следити неколико корака. Испод су кораци које треба укључити приликом креирања тракастог графикона напретка.
Корак 1: Направите или убаците нови кориснички образац.
Чим кликнете на горњу опцију, видећете кориснички образац као доле.
Корак 2: Притисните тастер Ф4 да бисте видели прозор ВБА својстава.
На овој картици својстава морамо да променимо својства ВБА корисничког обрасца који смо уметнули.
Корак 3: Промените име корисничког обрасца у УФПрогрессБар.
Сада овај кориснички образац можемо референцирати са именом „УФПрогрессБар“ током кодирања.
Корак 4: Промените својство приказа модела корисничког обрасца у ФАЛСЕ.
Корак 5: Сада прилагодите поравнање корисника тако да одговара вашим потребама. Променио сам висину корисничког обрасца на 120 и ширину на 300.
Корак 6: Промените наслов корисничког обрасца у „Напредак статусне траке“.
Корак 7: Сада из оквира са алаткама корисничког обрасца уметните ЛАБЕЛ у кориснички образац на врху.
Овом налепницом морамо да подесимо својства налепнице. Избришите наслов и учините га празним и подесите ширину налепнице.
Корак 8: Промените име налепнице у „ПрогессЛабел“.
Корак 9: Сада из оквира са алаткама узмите оквир и нацртајте одмах испод налепнице коју смо уметнули у претходним корацима. Уверите се да је оквир у центру корисничког обрасца.
Корак 10: Сада морамо да променимо нека својства Фраме-а како би изгледао потпуно исто као кориснички образац који смо уметнули.
Својство 1: Промените име оквира у „ПрогрессФраме“.
Својство 2: Избришите наслов и учините га празним.
Својство 3: Промените специјални ефекат оквира на 6 - фмСпециалЕффецтБумп.
Након свих ових промена, наш кориснички образац би требало да изгледа овако.
Корак 11: Сада уметните још једну налепницу. Овај пут налепницу уметните унутар оквира који смо уметнули.
Током уметања налепнице, уверите се да лева страна налепнице тачно одговара оквиру који смо уметнули, као што је приказано на горњој слици.
Корак 12: Након уметања налепнице промените својства налепнице на следећи начин.
Својство 1: Промените име налепнице у „МаинПрогрессЛабел“.
Својство 2: Избришите наслов.
Својство 3: Промените боју позадине према вашој жељи.
Ок, сада смо завршили са процесом постављања траке напретка и у овом тренутку то изгледа овако.
Сада морамо да унесемо кодове да би ово савршено функционисало.
Корак 13: Да бисте направили оквир, додајте доњи макро у екцел.
Шифра:
Суб ИнитУФПрогрессБарБар () Са УФПрогрессБар .Бар.Видтх = 0 .Тект.Цаптион = "0%". Прикажи вбМоделесс Крај са
Ако овај код покренете ручно или преко тастера Ф5, требали бисмо видети овакву траку напретка.
14. корак: Сада треба да креирамо макро за извршавање задатка. Изводим задатак уметања серијских бројева од 1 до 5000. Заједно са овим кодом, морамо да конфигуришемо и тракасти графикон напретка,. Тхев код је код по вашој мери.
Шифра:
Суб ПрогрессБар_Цхарт () Дим и Ас Лонг Дим ЦуррентУФПрогрессБар Ас Доубле Дим УФПрогрессБарПерцентаге Ас Доубле Дим БарВидтх Ас Лонг и = 1 Цалл ИнитУФПрогрессБарБар До Вхиле и <= 5500 Целлс (и, 1) .Валуе = и ЦуррентУФПрогрессБар = и / 2500 БарПидарБар = Бордер.Видтх * ЦуррентУФПрогрессБар УФПрогрессБарПерцентаге = Роунд (ЦуррентУФПрогрессБар * 100, 0) УФПрогрессБар.Бар.Видтх = БарВидтх УФПрогрессБар.Тект.Цаптион = УФПрогрессБарПерцентаге & "% Цомплете" ДоЕПопоп иБар ЕндФресс иБарПергрессБарПерценттаге
