Очередная головоломка написанная мною в Экселе, уже седьмая по счету, остальные можно увидеть тут.
Конструкция таймера в Экселе реализована вот так:
Sub таймер()Каждую секунду вызывается данная конструкция. Единица в ячейке J3 контрольная - она не дает запустить таймер еще раз, если он уже запущен. Если такого не сделать то при каждом запуске таймера будет смещаться время и за одну секунду он будет прибавлять не 1 а 2-3 и больше, в зависимости от того сколько раз запускали таймер.
If Range("J3").Value = 1 Then Exit Sub
Range("J6").Value = Range("J6").Value + 1
Application.OnTime Now + TimeValue("00:00:01"), "таймер"
If Range("J6").Value = 60 Then
kol = Range("B4").Value - 1
Range("K3").Value = 0
Range("J3").Value = 1
MsgBox "Кончилось время" & vbNewLine & " За минуту вы решили " & kol & " " & Range("A6").Value & "" & vbNewLine & " Поздравляем!", , "Конец игры"
End If
End Sub
Скачать саму головоломку можно тут
Комментариев нет:
Отправить комментарий