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

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

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

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

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

 

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

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

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

 

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

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

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

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

 

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

 

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

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

 

ВложениеРазмерЗагрузкиПоследняя загрузка
StopWatch.xls52 КБ1642 года 4 недели назад

Комментарии

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

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

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

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

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

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

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

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