Док сам радио у ИБМ -у, био сам део клуба ТоастМастерс Интернатионал. То је место где можете побољшати комуникацијске и лидерске вештине.
Занимљив део недељних састанака било је импровизовано говорење. У овом делу састанка, особа је добила тему и морала је да говори о њој 2 минута. Било је одређено лице које је користило време за говор и показује зелени картон у 1 минуту, жути картон у 1:30 минута и црвени картон након 2 минута.
Обично се паметни телефон или сат користе за мерење времена говора, а време се бележи ручно на папиру.
Често се дешава да особа заборави да покаже обојене карте или понекад заборави да забележи временски распоред за звучнике (дешавало ми се све време). Имајући ове ствари на уму, створио сам штоперицу у Екцелу која би помогла времену и снимила говоре.
Хајде прво да научимо како да направимо основну штоперицу у Екцелу.
Како направити штоперицу у Екцелу (основно)
Под једноставном/основном штоперицом у Екцелу мислим на нешто што би започело када притиснемо дугме за покретање и зауставило се када притиснемо дугме за заустављање.
Нешто као што је приказано испод:
Преузмите ову основну штоперицу у програму Екцел
Да бисте направили ову штоперицу у Екцелу, морате знати о Апликација.На време метод у ВБА.
Апплицатион.ОнТиме Метход у ВБА
Метода Апплицатион.ОнТиме се може користити када желите да убудуће покренете наведени код. На пример, можете га користити за приказивање оквира за поруку који вас подсећа да устанете и протегнете ноге након 1 сата или да узмете лекове након 3 сата.
Синтакса методе Апплицатион.ОнТиме:
Апплицатион.ОнТиме (ЕарлиестТиме, Процедура, ЛатестТиме, Распоред)
- ЕарлиестТиме: Време када желите да покренете процедуру.
- Поступак: Назив процедуре коју треба покренути.
- ЛатестТиме (опционално): У случају да је покренут други код, а наведени код не може да се покрене у наведено време, можете навести ЛатестТиме на који би требало да чека. На пример, то може бити ЕарлиестТиме + 45 (што значи да ће чекати 45 секунди да се друга процедура заврши). Ако ни након 45 секунди процедура не може да се покрене, напушта се. Ако ово не наведете, Екцел би сачекао да се код може покренути, а затим га покренуо.
- Распоред (опционално): Ако је постављено на Тачно, заказује нову временску процедуру. Ако је Фалсе, тада се поништава претходно подешена процедура. Подразумевано, ово је Тачно.
Пример методе Апплицатион.ОнТиме
Суб тест () Апплицатион.ОнТиме Нов + ТимеВалуе ("00:00:05"), "СховМессаге" Енд Суб Суб СховМессаге () МсгБок ("ХЕЛЛО") Крај Суб
Први део макроа користи метод Апплицатион.ОнТиме и покреће процедуру СховМессаге (у двоструким наводницима) након пет секунди. Поступак СховМессаге једноставно приказује оквир за поруку са одзивом ХЕЛЛО.
Овај формат можете користити за покретање било које процедуре након одређеног времена од тренутног времена.
Користећи овај концепт, погледајмо код за креирање једноставне штоперице у Екцелу.
Затамни НектТицк као датум, т као датум Суб СтартСтопВатцх () т = Време позива СтартТимер Крај Суб Суб СтартТимер () НектТицк = Време + Временска вредност ("00:00:01") Распон ("А1"). Вредност = Формат (НектТицк - т - ТимеВалуе ("00:00:01"), "хх: мм: сс") Апплицатион.ОнТиме НектТицк, "СтартТимер" Енд Суб Суб СтопТимер () Он Еррор Ресуме Нект Апплицатион.ОнТиме ЕарлиестТиме: = НектТицк, Процедура: = "СтартТимер", Распоред: = Потпуно погрешан крај
Овај код има 3 дела:
- Први део иницијализује тренутно време променљивој т. Затим позива другу процедуру СтартТимер.
- Процедура СтартТимер користи променљиву НектТицк која се сваке секунде повећава за 1. На радном листу ћелија А1 има тајмер за покретање како смо навели НектТицк - т -ТимеВалуе (“00:00:01”), “хх: мм: сс”) да буде вредност у тој ћелији. Затим поново покреће код СтартТимер након сваке секунде.
- СтопТимер отказује процедуру Апплицатион.Онтиме постављањем вредности распореда на Фалсе. Тиме се зауставља тајмер.
Ево шта ћете добити са горњим кодом (доделио сам макрое тастерима старт/стоп):
Ово је основна штоперица у програму Екцел.
Ја то називам основним јер не можете стати у средини и поново покренути тамо где сте стали. Увек ће се поново покренути од 1 када притиснете дугме за покретање.
Сада када сте научили основе методе Апплицатион.ОнТиме, ово можете лако подесити да бисте створили штоперицу коју желите у Екцелу.
Штоперица у Екцелу (за ТоастМастерс)
Користио сам горенаведени концепт и створио штоперицу у Екцелу која се може користити на састанку Тоастмастерс (који сам споменуо на почетку овог водича).
Ево шта се може урадити помоћу ове штоперице:
- Тајмер можете зауставити, а затим поново покренути из истог времена (снимљено до тада).
- Можете да ресетујете тајмер. Ово поставља вредност тајмера на 0. Чим то учините, он аутоматски бележи укупно протекло време.
- Мења боју оквира мерача времена, у зависности од вредности штоперице (ово би могао бити добар подсетник за приказивање зелених/жутих/црвених картона).
Ево како то изгледа:
У овом горњем демо -у подесио сам промену боје сваких пет секунди. Лако можете одредити када желите да се боја промени (зелени картон за 1 минут, жути картон за 1,5 минута и црвени картон за 2 минута) променом вредности на листу за израчунавање.
Чим притиснете дугме за ресетовање, боја тајмера би се вратила у белу, вредност тајмера би постала 0, а он ће записати време у колону Г.
Напомена: Пошто ове датотеке садрже макро, мораћете да омогућите макрое пре него што га употребите. Када отворите радну свеску, видећете жуто дугме - Омогући садржај. Кликните на њега да бисте омогућили макрое.
Ако креирате нешто кул помоћу тајмера, поделите то са мном.
