Как сделать секундомер для экзаменов в Word через VBA

В этой статье мы подробно расскажем, как сделать секундомер, который можно использовать для экзаменов в Word через VBA.

С помощью редактора VBA в Word вы можете самостоятельно создавать множество небольших, но полезных инструментов. И сегодня мы хотим показать вам, как сделать секундомер. Вы можете запускать и использовать его всякий раз, когда Word открыт. Например, пригодится при сдаче экзаменов.

Вставить модуль в проект VBA

1. Прежде всего, нажмите «Alt + F11», чтобы открыть редактор VBA в Word.
2. Затем нажмите «Обычный» проект и нажмите «Вставить».
3. Выберите «Модуль» в этом меню.
4. Дважды щелкните модуль, чтобы открыть его.
5. Нажмите «F4», чтобы открыть «Окно свойств». Измените имя модуля на «modStopwatch».
6. Затем вставьте следующие коды в модуль:

Public g_dtStart As Variant
Public g_bOnTimer As Boolean

Public Sub OnTimerUpdate()
  Dim tmNextUpdate As Variant
 
  frmStopwatch.lblShowElapsedTime = Format(Now - g_dtStart, "hh:mm:ss")
  tmNextUpdate = Now + TimeValue("00:00:01")
  If g_bOnTimer Then
    Application.OnTime tmNextUpdate, "OnTimerUpdate"
  End If
End Sub

Sub TriggerStopwatch()
    frmStopWatch.Show
End Sub

7. Наконец, сохраните коды.

Вставьте форму пользователя

1. В редакторе VBA нажмите «Вставить» и выберите «Пользовательская форма».
2. Затем нажмите на его ручки, чтобы настроить размер формы.
3. Следующая назовите пользовательскую форму как «frmStopwatch», установите заголовок как «Секундомер»и установите цвет фона. Также, установите «ShowModal» как «False».
4. Перейдите на вкладку «Вид» и выберите «Панель инструментов».
5. На панели инструментов нажмите «Ярлык» и нарисуйте шесть меток в нужном месте на пользовательской форме, например, ниже:
6. Теперь задайте свойства для каждой метки.

• Нажмите на метку 1. Затем перейдите в окно свойств. Введите «Сtart Time:» для подписи. При необходимости измените цвет фона и шрифт.
• Нажмите на метку 2. Назовите его как «фунтыtarвремя”. Установите «BackColor» в белый цвет. Затем установите «Шрифт» правильно.
• Нажмите на метку 3. Введите «Время окончания:» для заголовка. Установите цвет фона и шрифт такие же, как у метки 1.
• Нажмите на метку 4. Назовите его как «lblEndTime».. Установите «BackColor» в белый цвет. Затем установите шрифт такой же, как у метки 2.
• Нажмите на метку 5. Введите «Прошедшее время:» для подписи. Установите цвет фона и шрифт такие же, как у метки 1.
• Нажмите на метку 6. Назовите его как «lblShowElapsedTime».. Установите «BackColor» в белый цвет. Затем установите шрифт такой же, как у метки 2.

7. На панели инструментов нажмите «CommandButton» и создайте 3 кнопки. Расположите их в следующем порядке:
8. Аналогичным образом задайте свойства кнопки.

• Нажмите на кнопку 1. Назовите его как «btnStarт ». Установите цвет фона. Введите «Сtart Таймер» для подписи. И установите шрифт правильно.
• Нажмите на кнопку 2. Назовите его как «btnStop». Установите цвет фона. Введите «Stop Timer» для подписи. И установите шрифт правильно.
• Нажмите на кнопку 3. Назовите его «cmdClose».. Установите цвет фона. Введите «Закрыть» для заголовка. И установите шрифт правильно.

9. Теперь дважды щелкните на «Starкнопку «Таймер». И введите следующие коды:

Private Sub btnStart_Click()
  Dim tmNextUpdate As Variant
  g_dtStart = Now
 
  frmStopwatch.lblStartTime = Format(g_dtStart, "hh:mm:ss")
  frmStopwatch.lblShowElapsedTime = Format(0, "hh:mm:ss")
  tmNextUpdate = Now + TimeValue("00:00:01")
  g_bOnTimer = True
  Application.OnTime tmNextUpdate, "modStopwatch.OnTimerUpdate", 0
End Sub

Первая и последняя строки уже есть, поэтому вам не нужно вводить их снова. Сохраняйте коды.

10. Затем дважды нажмите кнопку «Остановить таймер». Затем введите эти коды:

Private Sub btnStop_Click()
  varEndTime = Now
 
  lblEndTime = Format(varEndTime, "hh:mm:ss")
 
  g_bOnTimer = False
End Sub

11. Дважды щелкните кнопку «Закрыть» и вставьте коды:

Private Sub cmdClose_Click()
  Unload Me
End Sub

Затем вы можете назначить кнопку для макроса "ТриггерСекундомер«Что касается подробных шагов по назначению кнопки для макроса, вы можете обратиться к этой статье: Как удалить форматирование вставленных текстов с помощью макроса и VBA в вашем Word

Вот демонстрация использования секундомера:

Выберите правильный инструмент восстановления

В связи с тем, что для хранения информации используется все больше цифровых устройств, восстановление данных стало горячей темой в наши дни. Например, если вы столкнулись с крахом Word, вы должны получить инструмент для восстановления. искаженное слово. Тогда это utmost важность получения подходящего инструмента.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить xlsx и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com