Нужна аналогичная программа (надстройка, макрос) для Excel?
Оформите заказ, не забыв прикрепить примеры файлов, и описать, что и как должно работать.
Секундомер в Excel - для фиксации времени автогонки |
Данный секундомер предназначен для фиксации времени прохождения кругов автогонщиками.
Возможен одновременный, а также выборочный, старт всех секундомеров (в примере их 4 - по одному на каждого гонщика)
По прохождении гонщиком очередного круга достаточно нажать кнопку СТОП - и секундомер начнёт фиксировать время следующего круга.
В последнем столбце формулой подсчитывается суммарное время прохождения всех 4 кругов.
Внимание: Перед стартом необходимо запустить основной таймер - нажатием желтой кнопки,
и лишь потом запускать отдельные таймеры (или всё секундомеры вместе) нажатием зелёных кнопок.
Смотрите также программу для игрового клуба / интернет кафе
для учёта времени и платежей нескольких игроков на приставках
Смотрите также расширенную версию этой программы - с возможностью изменения количества участников и этапов соревнования, а также стабильно работающую в различных версиях Windows и Office
Время всех кругов, а также суммарное время, отображается с точностью до миллисекунд. (точнее, с точностью до сотых долей секунды)
PS: Секундомер попроще можно скачать, щелкнув по этой картинке:
Еще один секундомер, который можно запускать в обе стороны
(обычный и обратный таймер):
Исправленная версия этого таймера - совместима с нерусскими локализациями Office и Excel for Macintosh
- 23944 просмотра
Комментарии
Сделал свой секундомер по примеру с интернета.
Но не могу разобраться как сделать до сотых долей!!!
Кто может ПОМОЧЬ???
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, ну ничего — у себя поищу!
Отправить комментарий