Главная » Программы для Excel » Секундомер в Excel - для фиксации времени автогонки

Нужна аналогичная программа (надстройка, макрос) для Excel?

Оформите заказ, не забыв прикрепить примеры файлов, и описать, что и как должно работать.

Секундомер в Excel - для фиксации времени автогонки
Скриншот секундомера автогонки - 4 независимых таймера на 4 круга

Данный секундомер предназначен для фиксации времени прохождения кругов автогонщиками.

 

Возможен одновременный, а также выборочный, старт всех секундомеров (в примере их 4 - по одному на каждого гонщика)

По прохождении гонщиком очередного круга достаточно нажать кнопку СТОП - и секундомер начнёт фиксировать время следующего круга.

В последнем столбце формулой подсчитывается суммарное время прохождения всех 4 кругов.

 

Внимание: Перед стартом необходимо запустить основной таймер - нажатием желтой кнопки,
и лишь потом запускать отдельные таймеры (или всё секундомеры вместе) нажатием зелёных кнопок.

Смотрите также программу для игрового клуба / интернет кафе
для учёта времени и платежей нескольких игроков на приставках

Смотрите также расширенную версию этой программы - с возможностью изменения количества участников и этапов соревнования, а также стабильно работающую в различных версиях Windows и Office

Время всех кругов, а также суммарное время, отображается с точностью до миллисекунд. (точнее, с точностью до сотых долей секунды)

 

PS: Секундомер попроще можно скачать, щелкнув по этой картинке:

 

Еще один секундомер, который можно запускать в обе стороны
(обычный и обратный таймер):

Исправленная версия этого таймера - совместима с нерусскими локализациями Office и Excel for Macintosh

 

Вложения:
StopWatch.xls52 КБ
  • 24837 просмотров

Комментарии

Александр Анатольевич Марков, 13 Фев 2020 - 00:58.#1

Сделал свой секундомер по примеру с интернета.
Но не могу разобраться как сделать до сотых долей!!!
Кто может ПОМОЧЬ???

Sub Start_timer()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("sheet1")

sh.Range("Q1").Value = "Start"

If sh.Range("Q2").Value = "" Then
sh.Range("Q2").Value = Now
End If

x:

VBA.DoEvents

If sh.Range("Q1").Value = "Stop" Then Exit Sub
sh.Range("Q3").Value = Now

GoTo x

End Sub

Sub Stop_timer()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("sheet1")

sh.Range("Q1").Value = "Stop"

End Sub
Sub Reset_timer()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("sheet1")

sh.Range("Q1").Value = "Stop"
sh.Range("Q2:Q3").ClearContents

End Sub

Игорь (администратор сайта), 6 Фев 2016 - 22:37.#2

Сергей, в статье же приведена ссылка на расширенную версию этой программы - с возможностью изменения количества участников и этапов соревнования:
http://excelvba.ru/programmes/Timer

Сергей, 6 Фев 2016 - 20:52.#3

Здравствуйте! А как добавить больше гонщиков?

avsmirnov1968@yandex.ru, 2 Июл 2015 - 01:37.#4

StopWatch.xls работает как надо.

Нашёл GetTickCount, а не StopWatch, ну ничего — у себя поищу!

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
             _                  ____    _   _   _   _ 
   __ _     / \     _ __ ___   / ___|  | | | | | | | |
  / _` |   / _ \   | '_ ` _ \  \___ \  | |_| | | |_| |
 | (_| |  / ___ \  | | | | | |  ___) | |  _  | |  _  |
  \__, | /_/   \_\ |_| |_| |_| |____/  |_| |_| |_| |_|
     |_|
Введите код, изображенный в стиле ASCII-арт.