Stopper készítése Excelben (Basic + Toastmasters Style)

Az IBM -nél dolgozva a ToastMasters International klub tagja voltam. Ez egy olyan hely, ahol fejlesztheti kommunikációs és vezetői képességeit.

A heti találkozások érdekes része volt a rögtönzött beszéd. Az értekezlet ezen részében egy személy kapott egy témát, és 2 percig kellett beszélnie róla. Volt egy kijelölt személy, aki szokta időzíteni a beszédet, és 1 perc múlva zöld, 1:30 percnél sárga és 2 perc múlva piros lapot mutat.

Általában okostelefont vagy órát használnak a beszéd időzítésére, és a megtett időt manuálisan rögzítik egy papírra.

Gyakran előfordul, hogy az illető elfelejti megmutatni a színes kártyákat, vagy néha elfelejti rögzíteni a hangszórók időzítését (ez mindig velem történt). Ezeket a dolgokat szem előtt tartva létrehoztam az Excelben egy stopperórát, amely segít a beszédek időben és rögzítésében.

Először tanuljuk meg, hogyan hozhatunk létre alapvető stopperórát Excel -ben.

Stopper létrehozása Excelben (Basic)

Az Excel egyszerű/alapvető stopperje alatt olyasmit értek, amely akkor indulna el, ha megnyomjuk a start gombot, és leáll, amikor megnyomjuk a stop gombot.

Valami az alábbiak szerint:

Töltse le ezt az alapvető stopperórát az Excelben

A stopper Excelben való létrehozásához tudnia kell a Alkalmazás.Időben módszer a VBA -ban.

Alkalmazás. Egyszeri módszer a VBA -ban

Application.OnTime módszer akkor használható, ha a jövőben egy megadott kódot szeretne futtatni. Használhatja például egy üzenetdoboz megjelenítésére, amely emlékeztet arra, hogy 1 óra elteltével keljen fel és nyújtsa ki a lábát, vagy 3 óra múlva szedjen gyógyszert.

Az alkalmazás szintaxisa. OnTime módszer:

Application.OnTime (Legkorábbi időpont, Eljárás, LatestTime, Menetrend)

• EarliestTime: Az az idő, amikor futtatni szeretné az eljárást.
• Eljárás: A végrehajtandó eljárás neve.
• LatestTime (opcionális): Ha egy másik kód fut, és a megadott kód nem futtatható a megadott időben, akkor megadhatja a LatestTime -t, amelyre várnia kell. Például ez lehet az EarliestTime + 45 (ami azt jelenti, hogy 45 másodpercet vár, amíg a másik eljárás befejeződik). Ha még 45 másodperc után sem tudja végrehajtani az eljárást, akkor elhagyja. Ha ezt nem adja meg, az Excel megvárja, amíg a kód futtatható, majd futtatja.
• Ütemezés (opcionális): Ha True értékre van állítva, akkor új időbeosztást ütemez. Ha hamis, akkor törli az előzőleg beállított eljárást. Alapértelmezés szerint ez igaz.

Példa az Application.OnTime módszerre

Sub teszt () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" End Sub Sub ShowMessage () MsgBox ("HELLO") End Sub

A makró első része az Application.OnTime metódust használja, és öt másodperc múlva futtatja a ShowMessage eljárást (idézőjelben). A ShowMessage eljárás egyszerűen megmutatja az üzenettáblát a HELLO paranccsal.

Ezzel a formátummal bármilyen eljárást futtathat az aktuális idő után meghatározott idő elteltével.

Most ezt a koncepciót használva nézzük meg az egyszerű stopper Excelben történő létrehozásának kódját.

Dim NextTick dátumként, t Dátum részként StartStopWatch () t = Time Call StartTimer End Sub Sub StartTimer () NextTick = Time + TimeValue ("00:00:01") Range ("A1"). Value = Format (NextTick - t - TimeValue ("00:00:01"), "óó: mm: ss") Application.OnTime NextTick, "StartTimer" End Sub Sub StopTimer () On Error Folytassa a következő alkalmazást.OnTime EarliestTime: = NextTick, eljárás: = "StartTimer", Ütemezés: = False End Sub

Ez a kód 3 részből áll:

• Az első rész inicializálja az aktuális időt a t változóhoz. Ezután meghív egy másik eljárást StartTimer.
• A StartTimer eljárás a NextTick változót használja, amelyet minden másodperccel 1 -gyel növel. A munkalapon az A1 cella futási időzítővel rendelkezik, mivel a NextTick - t -TimeValue („00:00:01”), „óó: mm: ss”) értékeket adtuk meg a cellában. Ezután minden másodperc után újra futtatja a StartTimer kódot.
• A StopTimer törli az Application.Ontime eljárást azzal, hogy az ütemezés értékét False értékre állítja. Ez leállítja az időzítőt.

A fenti kóddal ezt kapja (a makrókat hozzárendeltem a start/stop gombokhoz):

Ez egy alapvető stopper az Excelben.

Ezt alapvetőnek nevezem, mivel nem állhat meg középen, és újraindíthatja ott, ahol abbahagyta. A start gomb megnyomásakor mindig újraindul 1 -től.

Most, hogy megtanulta az Application.OnTime módszer alapjait, könnyedén módosíthatja ezt, hogy bármilyen stopperórát készítsen az Excelben.

Stopperóra Excelben (ToastMasters esetén)

A fent tárgyalt koncepciót használtam, és létrehoztam egy stopperórát az Excelben, amely használható a Toastmasters találkozón (amelyet az oktatóanyag elején említettem).

Íme a következők:

• Leállíthatja az időzítőt, majd újraindíthatja ugyanabból az időből (addig rögzítve).
• Visszaállíthatja az időzítőt. Ezzel az időzítő értékét 0 -ra állítja. Amint ezt megteszi, automatikusan rögzíti a teljes eltelt időt.
• A stopper értékétől függően megváltoztatja az időzítő doboz színét (ez jó emlékeztető lehet a zöld/sárga/piros kártyák megjelenítésére).

Így néz ki:

Ebben a fenti bemutatóban öt másodpercenként beállítottam a színváltozást. Könnyen megadhatja, hogy mikor kívánja megváltoztatni a színt (a zöld kártya 1 percnél, a sárga kártya 1,5 percnél és a piros lap 2 percnél) a Számítási lap értékeinek megváltoztatásával.

Amint megnyomja a reset gombot, az időzítő színe visszaáll fehérre, az időzítő értéke 0 lesz, és rögzíti az időt a G oszlopban.

Megjegyzés: Mivel ezek a fájlok makrót tartalmaznak, használat előtt engedélyezni kell a makrókat. Amikor megnyitja a munkafüzetet, megjelenik egy sárga gomb - Tartalom engedélyezése. Kattintson rá a makrók engedélyezéséhez.

Ha valami klassz dolgot készít egy időzítő segítségével, ossza meg velem.