секундомер

[EducatedFool]

VITA11111, в 8-м посте этой темы есть файл с несколькими секундомерами.
Чем он не подходит?

Тот же секундомер у меня на сайте: http://excelvba.ru/programmes/StopWatch

Ещё одна аналогичная программа: http://excelvba.ru/programmes/Timer
(пожалуй, она вам больше подойдёт)

[Andrew_K1982]

Сообщение от EducatedFool

Можно. Вот пример:

Dim bt As Date, StopTimer As Boolean

Sub TStart()
    bt = IIf(Year(bt) < 2000, Now, Now - Cells(1, 1))
    StopTimer = False
    Application.OnTime Now + TimeSerial(0, 0, 1), "tmr"
End Sub

Sub tmr()
    Cells(1, 1) = Now - bt
    If Not StopTimer Then Application.OnTime Now + TimeSerial(0, 0, 1), "tmr"
End Sub

Sub TStop()
    StopTimer = True
End Sub

А разве нельзя было взять готовое решение здесь?

просветите меня, а куда надо вписать все єто?

[VITA11111]

EducatedFool это супер таймер,там считает по кругам но я не понимаю ничего в написании макросов,нужны отдельные секундомеры с кнопкой старт для каждого игрока который выходит на площадку и кнопкой стоп для остановки когда игрок сходит на замену, кнопкой ресет для начала новой записи при начале новой игры. Время общее которое сыграл игрок вместе с положительными и отрицательными действиями , потом учитывается в формуле коэфициента полезного действия игрока во время игры.(замены игрока во время игры могут происходить до конца игры НАПРИМЕР: выход игрока в нападение, замена в защите или наоборот )

[IgorGO]

кнопка РЕЗЕТ - сбрасывает все секундомеры в 0
кпопка СТОП/СТАРТ - останавливает/запускает все секундомеры
кнопки ОН/ОФФ - останавливают/запускают отдельные секундомеры

во вложении пример с 4-я секундомерами.
если интересно, обращайтесь, расскажу, добавлю еще энное количество, поправлю дизайн (который практически отсутсвует в примере).

хотя... там все довольно элементарно

[VITA11111]

СПАСИБО за пример не могу добавить секундомеры. При добавлении кнопки не могу назначить ей макрос:

Sub But05(): PlButClick "But05": End Sub

при добавлении проблема не могу разобратся
With ActiveSheet.Shapes(bnm).OLEFormat.O bject

Пожалуйста посмотрите потому что я не очень понимаю

[IgorGO]

добавил немного и чуть-чуть поправил. секундомер общего времени работает на том же алгоритме, что и для всех игроков (под кнопкой "Очистка" стрятана еще одна кнопка, которая постоянно в состоянии ВКЛ.)

[VITA11111]

уважаемый IgorGO спасибо огромное, вы можете добавить секундомеры и кнопки кнопки ОН/ОФФ
я чайник в VBA , а нужно позарез для определения количества ошибок у детей и над чем мне с ними надо работать

[VITA11111]

СПАСИБО ОГРОМНОЕ IGORGO РАЗОБРАЛСЯ, ПОЧЕМУ НЕ МОГ ДОБАВИТЬ КНОПКУ,ПОТОМУ ЧТО СНАЧАЛА ДОБАВЛЯЕТСЯ КНОПКА И ИЗМЕНЯЕТСЯ ЕЕ ИМЯ А ПОТОМ ПИШЕТСЯ К НЕЙ МАКРОС, А Я ДОБАВЛЯЛ МАКРОС А ПОТОМ КНОПКУ И ЕЙ НЕ МОГ НАЗНАЧИТЬ ИМЯ МАКРОСА

[IgorGO]

ну, поздравляю!
главное - их однотипно называть надо

[VITA11111]

IGORGO ПОСМОТРИТЕ ПОЖАЛУЙСТА ЧТО ПОЛУЧИЛОСЬ НИ КАК НЕ МОГУ В НА ЛИСТАХ ЗАЩИТА +,ЗАЩИТА -,АТАКА+ ,АТАКА - НАЗНАЧИТЬ МАКРОС ДЛЯ АВТОМАТИЧЕСКОГО СКРЫТИЯ СТРОК ПО ЗНАЧЕНИЮ В СТОЛБЦЕ "D"