Jak wstawić zegar w MS Excel

Otwórz arkusz kalkulacyjny Excel i kliknij "Developer" na pasku menu u góry ekranu. Jeśli nie ma go na liście, kliknij przycisk "Microsoft Office", "Opcje programu Excel", "Popularny" i wybierz kartę "Pokaż programistę".

Kliknij "Wstaw" w nowym oknie, które się pojawi i wybierz "Procedura" z rozwijanego menu, wpisz nazwę nowej procedury, np. "ExcelTimer" i upewnij się, że typ wybrany jest "Sub".

Napisz następujący tekst w osobnych liniach w panelu po prawej stronie pomiędzy "Public Sub ExcelTimer ()" i "End Sub": Dim PauseTime, Start, Finish, TotalTime If (MsgBox ("Naciśnij Tak, aby otrzymać przypomnienie o przerwaniu", 4 )) = vb Yes Następnie PauseTime = 10 Start = Timer Do While Timer <Start + PauseTime DoEvents Application.Speech.Speak "Czas na przerwę!" Loop Finish = Timer TotalTime = Finish - Rozpocznij MsgBox "Przerwa trwała dla" & TotalTime & "seconds" Else End End If End Sub

Sprawdź funkcję, naciskając klawisz "F5". Otworzy się standardowy arkusz kalkulacyjny Excela i powinieneś zobaczyć małe okienko z tekstem "Naciśnij tak, aby otrzymać przypomnienie o przerwie" (Naciśnij "Tak", aby otrzymać przypomnienie). Kliknij przycisk "Tak" Jeśli nie widzisz tego samego, upewnij się, że kod został prawidłowo wstawiony w kroku 3.

Kliknij "OK", kiedy timer zakończy wykonywanie, aby powrócić do arkusza kalkulacyjnego.

Przypisz klawisz skrótu do tej akcji, zaznaczając go na liście makr i kliknij "Opcje".