В сегодняшней статье мы представим вам 2 быстрых способа вставки дней или времени, оставшихся до крайнего срока, в ваш документ Word.
Время от времени, когда вы работаете над важным проектом, вы обнаружите, что вам нужно помнить о точных днях или времени, оставшихся до крайнего срока, чтобы скорректировать свой рабочий темп. Тогда будет хорошей идеей вставить дни или время, оставшееся до крайнего срока, в ваш документ Word, чтобы они могли напомнить вам о последнем оставшемся времени.
В следующем тексте мы хотели бы представить вам 2 метода использования макросов для расчета и получения значения.
Рассчитать количество дней, оставшихся до крайнего срока
- Первый и первыйost, поместите курсор в то место, куда вы хотите вставить число.
- Затем перейдите на вкладку «Разработчик».
- Затем нажмите «Visual Basic» в группе «Код», чтобы открыть редактор VBA. Кроме того, вы можете вместо этого нажать «Alt + F11», если вкладка «Разработчик» недоступна в вашем Word.
- Теперь нажмите «Обычный», а затем «Вставить».
- Далее выбираем «Модуль».
- Дважды щелкните новый модуль, чтобы открыть область редактирования с правой стороны.
- Затем вставьте туда следующие коды:
Sub CountDownfromTodayToDeadlineDate() Dim dtDeadlineDate As Date Dim lDaysLeft As Long ' Введите крайний срок для расчета разницы дат. dtDeadlineDate = InputBox("Введите дату крайнего срока", "Дата крайнего срока", "Например: 2017/2/14") lDaysLeft = DateDiff("d", Now, dtDeadlineDate) ' Вывести разницу дат от сегодняшнего дня до даты крайнего срока в документе Word. Selection.Text = "Осталось " & lDaysLeft & " дней с сегодняшнего дня до " & dtDeadlineDate & vbCrLf End Sub
- Далее нажмите кнопку «Выполнить».
- Вас встретит диалоговое окно, подобное приведенному ниже:
Введите крайний срок в текстовое поле и нажмите «ОК».
Для удобства использования в будущем вы можете нажать «Макросы» на вкладке «Разработчик» и выбрать правильный макрос, а затем нажать «Выполнить». Это вызовет диалоговое окно.
Рассчитать время, оставшееся до крайнего срока
Иногда, помимо получения оставшихся дней, вам также может понадобиться знать, сколько времени у вас осталось до определенного времени. Тогда ревущий макрос — это то, что вам нужно.
- Повторите первые 8 шагов выше. Только вы должны заменить коды на следующие:
Sub CountDownfromNowToDeadlineTime() Dim dtTimeNow As Date Dim dtDeadlineTime As Date Dim lTimeLeft As Long Dim lHour As Long Dim lMinute As Long Dim lSecond As Long ' Получить время сейчас и время крайнего срока. dtTimeNow = TimeValue(Now) dtDeadlineTime = InputBox("Введите время крайнего срока","Время крайнего срока", "Например: 18:00:00") ' Вычислить разницу во времени. lTimeLeft = DateDiff("s", dtTimeNow, dtDeadlineTime) lHour = lTimeLeft \ 3600 lTimeLeft = lTimeLeft - lHour * 3600 lMinute = lTimeLeft \ 60 lSecond = lTimeLeft - lMinute * 60 Selection.Text = "Есть " & lHour & " часы " & lМинуты & " минуты " & lСекунды & " секунды, оставшиеся до " & dtDeadlineTime & vbCrLf End Sub
- Не забудьте нажать кнопку «Выполнить».
- На этот раз у вас будет диалоговое окно «Время крайнего срока». Введите время крайнего срока, затем нажмите «ОК».
Сохранить файлы невредимыми
Чтобы сохранить целостность файлов и защитить их от повреждения, лучший и самый простой способ — часто делать резервные копии. Однако мы понимаем, что трудно придерживаться рутины, поэтому каждый день появляется так много сломанных файлов. Чтобы восстановить эти проблемные файлы, вам понадобится поврежденный инструмент восстановления Word.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая инструмент для исправления ошибок xlsx , так и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com
Оставьте комментарий