Секундомер в UserForm, которая в немодальном режиме

Хранитель времени

Гость

04.08.2009 16:24:24

Добрый день,

Имеется простенькая UserForm с одной кнопкой "Продолжить", которая висит на экране в немодальном режиме, пока пользователь не закончит обработку руками данных в рабочей книге. Затем пользователь нажимает на кнопку "Продолжить" и запускается следующий цикл обработки данных и UserForm выгружается.

Вопрос: возможно ли в эту UserForm вставить что-то наподобие секундомера, которое подсчитывало бы секунды/минуты/часы с момента, когда эта UserForm была активирована и до тех пор, пока не будет нажата кнопка "Продолжить"?

Может, кто-то делал что-то аналогичное. Подбросьте идею...

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

04.08.2009 17:15:23

Попробуйте такой вариант:

Скриншот: http://excelvba.ru/Screenshots/JPG__04-08-2009__19-13-36.JPG
Ссылка на файл с примером: http://excelvba.ru/XL_Files/Sekundomer.zip

Код формы:
Private Sub CommandButton1_Click()
' делаем что-то
Unload Me ' а потом закрываем форму
End Sub

Private Sub UserForm_Initialize()
t = Now: newTime
End Sub

Private Sub UserForm_Terminate()
If sch > Now Then Application.OnTime sch, "newTime", , False
End Sub

Код модуля:
Public t As Date, sch As Date

Sub newTime()
UserForm1.Caption = Format(Now - t, "Прошло HH:NN:SS")
sch = Now + 1 / 86400
Application.OnTime sch, "newTime" ' каждую секунду
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Хранитель времени Гость	#3 04.08.2009 17:31:57 Спасибо, EducatedFool Работает!

Rezh Пользователь Сообщений: 36 Регистрация: 01.01.1970	#4 30.11.2009 13:58:58 EducatedFool, и от Rezh прими благодарность!

Читают тему