Jak vložit časovač do aplikace MS Excel

Otevřete tabulku aplikace Excel a klikněte na "Vývojář" v panelu nabídek v horní části obrazovky. Pokud se nezobrazí v seznamu, klepněte na tlačítko "Microsoft Office", "Excel možnosti", "Populární" a vyberte kartu "Zobrazit vývojáře".

V novém okně, které se zobrazí, klikněte na "Vložit" a v rozbalovací nabídce vyberte "Postup", zadejte název nového postupu, například "ExcelTimer" a ujistěte se, že typ vybrané je "Sub".

Napište následující text v samostatných řádcích na panelu vpravo mezi "Public Sub ExcelTimer ()" a "End Sub": Dim PauseTime, Start, Finish, TotalTime Pokud (MsgBox (" )) = vbYes Pak PauseTime = 10 Start = Časovač Do Timer <Start + PauseTime DoEvents Application.Speech.Speak "Doba trvání Break!" Loop Finish = Časovač TotalTime = Dokončit - Spustit MsgBox "Break trval" & TotalTime & "sekund" Else End End If End Sub

Zkontrolujte funkci stisknutím tlačítka "F5". Otevře se standardní tabulka aplikace Excel a zobrazí se malé okno s textem "Stiskněte tlačítko Ano, chcete-li si připomenout připomenutí" (stiskem tlačítka "Ano" získáte připomenutí). Klepněte na tlačítko "Ano" Pokud se nezobrazí to samé, ujistěte se, že jste správně vložili kód v kroku 3.

Klepněte na tlačítko "OK", jakmile časovač dokončí spuštění pro návrat do tabulky.

Přiřazení klávesové zkratky této akci výběrem v seznamu maker a kliknutím na tlačítko "Možnosti".