суббота, 6 января 2018 г.

Математическая головоломка в Excel

Очередная головоломка написанная мною в Экселе, уже седьмая по счету, остальные можно увидеть тут.

Суть простая - нужно решить как можно больше примеров за отведенное время.
Конструкция таймера в Экселе реализована вот так:

Sub таймер()
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
Каждую секунду вызывается данная конструкция. Единица в ячейке J3 контрольная - она не дает запустить таймер еще раз, если он уже запущен. Если такого не сделать то при каждом запуске таймера будет смещаться время и за одну секунду он будет прибавлять не 1 а 2-3 и больше, в зависимости от того сколько раз запускали таймер.

Скачать саму головоломку можно тут

Комментариев нет:

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