2 szybkie sposoby wstawiania dni lub czasu pozostałego do terminu w dokumencie programu Word

W dzisiejszym artykule przedstawimy 2 szybkie sposoby wstawiania dni lub czasu pozostałego do terminu w dokumencie Word.

Co jakiś czas, pracując nad ważnym projektem, zauważysz, że musisz pamiętać o dokładnych dniach lub godzinach pozostałych do terminu, aby dostosować tempo pracy. W takim razie dobrym pomysłem będzie wstawienie dni lub czasu pozostałego do terminu do dokumentu Word, aby mogli przypomnieć Ci o ostatnim czasie, jaki pozostał.

W poniższym tekście chcielibyśmy przedstawić 2 metody wykorzystania makr do obliczania i uzyskiwania wartości.

Oblicz dni do końca terminu

1. Przede wszystkim należy umieścić kursor w miejscu, w którym chcesz wstawić liczbę.
2. Następnie kliknij zakładkę „Deweloper”.
3. Następnie kliknij „Visual Basic” w grupie „Kod”, aby otworzyć edytor VBA. Możesz także nacisnąć „Alt + F11”, jeśli karta „Deweloper” nie jest dostępna w Twoim programie Word.
4. Teraz kliknij „Normalne”, a następnie „Wstaw”.
5. Następnie wybierz „Moduł”.
6. Kliknij dwukrotnie nowy moduł, aby otworzyć obszar edycji po prawej stronie.
7. Następnie wklej tam następujące kody:

Sub CountDownfromTodayToDeadlineDate()
  Dim dtDeadlineDate As Date
  Dim lDaysLeft As Long

  '  Input the deadline date to calculate the date difference.
  dtDeadlineDate = InputBox("Enter the deadline date", "Deadline Date", "For example:2017/2/14") 
  lDaysLeft = DateDiff("d", Now, dtDeadlineDate)
 
  '  Output the date difference from today to the deadline date in word document. 
  Selection.Text = "There are " & lDaysLeft & " days left from today to " & dtDeadlineDate & vbCrLf
End Sub

8. Następnie kliknij przycisk „Uruchom”.
9. Zostaniesz powitany oknem dialogowym, takim jak poniżej:

Wpisz termin w polu tekstowym i kliknij „OK”.

Aby ułatwić późniejsze użycie, możesz kliknąć „Makra” w zakładce „Programista” i wybrać odpowiednie makro, a następnie kliknąć „Uruchom”. To spowoduje wyświetlenie okna dialogowego.

Oblicz czas pozostały do ​​terminu

Czasami, oprócz dni, które pozostały, możesz również potrzebować wiedzieć, ile czasu pozostało do określonego czasu. Wtedy będziesz potrzebować makro z ryczeniem.

1. Powtórz pierwsze 8 kroków powyżej. Tylko Ty musisz zamienić kody na następujące:

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
 
  '  Get the time now and the deadline time.
  dtTimeNow = TimeValue(Now)
  dtDeadlineTime = InputBox("Enter the deadline time","Deadline Time", "For example:18:00:00") 
  '  Calculate the time difference.
  lTimeLeft = DateDiff("s", dtTimeNow, dtDeadlineTime)
  lHour = lTimeLeft \ 3600
  lTimeLeft = lTimeLeft - lHour * 3600
  lMinute = lTimeLeft \ 60
  lSecond = lTimeLeft - lMinute * 60
 
  Selection.Text = "There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from now to " & dtDeadlineTime & vbCrLf 
End Sub

2. Pamiętaj, aby nacisnąć przycisk „Uruchom”.
3. Tym razem pojawi się okno dialogowe „Termin ostateczny”. Wprowadź termin, a następnie kliknij „OK”.

Zachowaj pliki bez szwanku

Aby zachować integralność plików i chronić je przed uszkodzeniem, najlepszym i najłatwiejszym sposobem jest częste tworzenie kopii zapasowych. Rozumiemy jednak, że trudno jest trzymać się rutyny, dlatego każdego dnia jest tak wiele uszkodzonych plików. Aby naprawić te problematyczne pliki, będziesz potrzebować pliku uszkodzone narzędzie do naprawy programu Word.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym Narzędzie do naprawy błędów xlsx i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com