Strādājot IBM, es biju daļa no ToastMasters International kluba. Tā ir vieta, kur var uzlabot savas komunikācijas un vadības prasmes.
Interesanta sadaļa iknedēļas sanāksmēs bija ekspromta uzstāšanās. Šajā sanāksmes daļā cilvēkam tika dota tēma, un viņam par to bija jārunā 2 minūtes. Bija izraudzīta persona, kas mēdza noteikt runas laiku un rāda zaļo kartīti 1 minūtē, dzelteno kartīti 1:30 minūtē un sarkano kartīti pēc 2 minūtēm.
Parasti runas laika noteikšanai izmanto viedtālruni vai pulksteni, un laiks tiek manuāli ierakstīts uz papīra.
Bieži gadās, ka persona aizmirst parādīt krāsainās kartītes vai dažreiz aizmirst ierakstīt skaļruņu laiku (tas notika ar mani visu laiku). Paturot prātā šīs lietas, programmā Excel esmu izveidojis hronometru, kas palīdzētu laiku un ierakstītu runas.
Vispirms uzzināsim, kā programmā Excel izveidot pamata hronometru.
Hronometra izveide programmā Excel (pamata)
Ar vienkāršu/pamata hronometru programmā Excel es domāju kaut ko tādu, kas sāktos, nospiežot sākuma pogu, un apstātos, kad nospiežam apturēšanas pogu.
Kaut kas, kā parādīts zemāk:
Lejupielādējiet šo pamata hronometru programmā Excel
Lai programmā Excel izveidotu šo hronometru, jums jāzina par Pieteikums.Laikā metode VBA.
Lietojumprogramma. Vienreizēja metode VBA
Application.OnTime metodi var izmantot, ja vēlaties nākotnē palaist noteiktu kodu. Piemēram, varat to izmantot, lai parādītu ziņojumu lodziņu, kas atgādinātu jums piecelties un izstiept kājas pēc 1 stundas vai lietot zāles pēc 3 stundām.
Lietojumprogrammas sintakse. OnTime metode:
Application.OnTime (Agrākais laiks, Procedūra, LatestTime, Grafiks)
- EarliestTime: laiks, kad vēlaties palaist procedūru.
- Procedūra: izpildāmās procedūras nosaukums.
- LatestTime (neobligāti): ja darbojas cits kods un jūsu norādīto kodu nevar palaist noteiktajā laikā, varat norādīt LatestTime, uz kuru tam jāgaida. Piemēram, tas varētu būt EarliestTime + 45 (tas nozīmē, ka tas gaidīs 45 sekundes, līdz otra procedūra tiks pabeigta). Ja pat pēc 45 sekundēm procedūru nevar izpildīt, tā tiek pārtraukta. Ja to nenorādīsit, programma Excel nogaidīs, līdz kodu varēs palaist, un pēc tam to palaidīs.
- Grafiks (neobligāti): ja iestatīts uz True, tas ieplāno jaunu laika procedūru. Ja tas ir nepatiess, tas atceļ iepriekš iestatīto procedūru. Pēc noklusējuma tas ir True.
Piemērs Application.OnTime metode
Apakšpārbaude () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" Beigt apakšnodaļu ShowMessage () MsgBox ("HELLO") Beigu apakšapjoms
Makro pirmajā daļā tiek izmantota metode Application.OnTime un pēc piecām sekundēm tiek palaista procedūra ShowMessage (pēdiņās). ShowMessage procedūra vienkārši parāda ziņojumu lodziņu ar uzvedni HELLO.
Šo formātu varat izmantot, lai palaistu jebkuru procedūru pēc noteiktā laika no pašreizējā laika.
Tagad, izmantojot šo koncepciju, apskatīsim kodu vienkārša hronometra izveidei programmā Excel.
Dim NextTick kā datums, t kā datums Sub StartStopWatch () t = Time Call StartTimer End Sub Sub StartTimer () NextTick = Time + TimeValue ("00:00:01") Diapazons ("A1"). Vērtība = Formāts (NextTick - t - TimeValue ("00:00:01"), "hh: mm: ss") Application.OnTime NextTick, "StartTimer" beigu apakšapakš StopTimer () On Error Resume Next Application.OnTime EarliestTime: = NextTick, Procedūra: = "StartTimer", Grafiks: = False End Sub
Šim kodam ir 3 daļas:
- Pirmā daļa inicializē pašreizējo laiku mainīgajam t. Tad tas izsauc citu procedūru StartTimer.
- StartTimer procedūrā tiek izmantots mainīgais NextTick, kas ar katru sekundi tiek palielināts par 1. Darblapā šūnai A1 ir darbības taimeris, kā mēs esam norādījuši NextTick - t -TimeValue (“00:00:01”), “hh: mm: ss”) kā vērtību šajā šūnā. Pēc tam tas katru sekundi atkal palaiž StartTimer kodu.
- StopTimer atceļ Application.Ontime procedūru, padarot grafika vērtību False. Tas aptur taimeri.
Lūk, ko jūs iegūsit, izmantojot iepriekš minēto kodu (es esmu piešķīris makro start/stop pogas):
Šis ir pamata hronometrs programmā Excel.
Es to saucu par pamata, jo jūs nevarat apstāties vidū un atsākt to, kur aizgājāt. Nospiežot sākuma pogu, tas vienmēr tiks restartēts no 1.
Tagad, kad esat apguvis Application.OnTime metodes pamatus, varat to viegli pielāgot, lai programmā Excel izveidotu jebkura veida hronometru.
Hronometrs programmā Excel (ToastMasters)
Esmu izmantojis iepriekš apspriesto jēdzienu un programmā Excel izveidojis hronometru, ko var izmantot Toastmasters sanāksmē (ko es minēju šīs apmācības sākumā).
Lūk, ko var izdarīt, izmantojot šo hronometru:
- Jūs varat apturēt taimeri un pēc tam atkal atsākt no tā paša laika (ierakstīts līdz tam).
- Jūs varat atiestatīt taimeri. Tādējādi taimera vērtība tiek iestatīta uz 0. Tiklīdz jūs to darāt, tas automātiski reģistrē kopējo pagājušo laiku.
- Tas maina taimera kārbas krāsu atkarībā no hronometra vērtības (tas varētu būt labs atgādinājums parādīt zaļo/dzelteno/sarkano kartīti).
Lūk, kā tas izskatās:
Šajā iepriekšējā demonstrācijā esmu iestatījis krāsu maiņu ik pēc piecām sekundēm. Jūs varat viegli norādīt, kad vēlaties mainīt krāsu (zaļā karte pēc 1 minūtes, dzeltenā kartīte pēc 1,5 minūtēm un sarkanā karte pēc 2 minūtēm), mainot vērtības aprēķina lapā.
Tiklīdz jūs nospiežat atiestatīšanas pogu, taimera krāsa atkal kļūs balta, taimera vērtība kļūs par 0 un laiks tiks ierakstīts G slejā.
Piezīme. Tā kā šajos failos ir makro, pirms to izmantošanas ir jāiespējo makro. Atverot darbgrāmatu, redzēsit dzeltenu pogu - Iespējot saturu. Noklikšķiniet uz tā, lai iespējotu makro.
Ja, izmantojot taimeri, izveidojat kaut ko foršu, kopīgojiet to ar mani.
