2 gyors módszer a határidő előtt hátralévő napok vagy idők beszúrására a Word-dokumentumban

Mai cikkünkben 2 gyors módot mutatunk be a határidőig hátralévő napok vagy idők beszúrására a Word-dokumentumban.

Időről időre, amikor egy fontos projekten dolgozik, azt tapasztalja, hogy a munkatempó beállításához szem előtt kell tartania a határidőig hátralévő napokat vagy időt. Akkor jó ötlet a határidő előtt hátralévő napokat vagy időt beszúrni a Word-dokumentumba, hogy emlékeztessenek a legkésőbbi hátralévő időpontra.

A következő szövegben 2 módszert szeretnénk bemutatni, hogyan lehet makrókat használni az érték kiszámítására és lekérésére.

Számolja ki a határidőig hátralévő napokat

1. Először is, helyezd a kurzort oda, ahová a számot be szeretnéd szúrni.
2. Ezután kattintson a „Fejlesztő” fülre.
3. Ezután kattintson a „Visual Basic” elemre a „Kód” csoportban a VBA-szerkesztő megnyitásához. Ezenkívül megnyomhatja az „Alt+ F11” billentyűt is, ha a „Fejlesztő” fül nem érhető el a Wordben.
4. Most kattintson a „Normál”, majd a „Beszúrás” gombra.
5. Ezután válassza a „Modul” lehetőséget.
6. Kattintson duplán az új modulra a jobb oldalon található szerkesztési terület megnyitásához.
7. Ezután illessze be a következő kódokat:

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. Ezután kattintson a „Futtatás” gombra.
9. A következőhöz hasonló párbeszédpanel fogadja Önt:

Írja be a határidő dátumát a szövegmezőbe, és kattintson az „OK” gombra.

A jövőbeni könnyebb használat érdekében kattintson a „Makrók” elemre a „Fejlesztő” lapon, válassza ki a megfelelő makrót, majd kattintson a „Futtatás” gombra. Ez elindítja a párbeszédpanelt.

Számolja ki a határidőig hátralévő időt

Néha azon túl, hogy napok vannak hátra, azt is tudnia kell, hogy mennyi ideje van hátra egy adott időpontig. Ezután a bömbölő makróra lesz szüksége.

1. Ismételje meg a fenti első 8 lépést. Csak a kódokat kell lecserélnie a következőkre:

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. Ne felejtse el megnyomni a „Futtatás” gombot.
3. Ezúttal a „Határidő” párbeszédpanel jelenik meg. Adja meg a határidőt, majd kattintson az „OK” gombra.

Tartsa a fájlokat sértetlenül

A fájlok sértetlenségének megőrzéséhez és a sérülésektől távol tartásához a legjobb és legegyszerűbb módja a gyakran biztonsági mentések készítése. Azonban megértjük, hogy nehéz betartani a rutint, ezért van olyan sok törött fájl minden nap. A problémás fájlok javításához szüksége lesz a sérült Word javítóeszköz.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xlsx hibajavító eszköz és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com