2 ātrie veidi, kā ievietot dienas vai laiku, kas palicis pirms termiņa, jūsu Word dokumentā

Šodienas rakstā mēs jums piedāvāsim 2 ātrus veidus, kā Word dokumentā ievietot dienas vai laiku, kas atlicis pirms noteiktā termiņa.

Reizi pa reizei, strādājot pie svarīga projekta, jūs atradīsit, ka jums jāpatur prātā precīzas dienas vai laiks, kas atlicis pirms termiņa, lai pielāgotu savu darba tempu. Tad būs lieliska ideja ievietot dienas vai laiku, kas palicis līdz termiņa beigām, jūsu Word dokumentā, lai viņi varētu jums atgādināt par atlikušo laiku.

Šajā tekstā mēs vēlamies jūs iepazīstināt ar 2 metodēm, kā izmantot makro, lai aprēķinātu un iegūtu vērtību.

Aprēķiniet atlikušās dienas pirms termiņa

1. Pirmkārt un galvenokārt, novietojiet kursoru vietā, kur vēlaties ievietot skaitli.
2. Pēc tam noklikšķiniet uz cilnes “Izstrādātājs”.
3. Pēc tam grupā “Kods” noklikšķiniet uz “Visual Basic”, lai atvērtu VBA redaktoru. Varat arī nospiest “Alt + F11”, ja cilne “Izstrādātājs” nav pieejama jūsu Word.
4. Tagad noklikšķiniet uz “Normal” un pēc tam uz “Insert”.
5. Pēc tam izvēlieties “Module”.
6. Veiciet dubultklikšķi uz jaunā moduļa, lai labajā pusē atvērtu rediģēšanas apgabalu.
7. Pēc tam ielīmējiet šādus kodus:

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. Pēc tam noklikšķiniet uz pogas Palaist.
9. Jūs sagaidīs dialoglodziņš, piemēram:

Ievadiet termiņa datumu tekstlodziņā un noklikšķiniet uz “OK”.

Lai to varētu ērti izmantot nākotnē, cilnē “Izstrādātājs” varat noklikšķināt uz “Makro” un izvēlēties pareizo makro, pēc tam noklikšķiniet uz “Izpildīt”. Tas iedarbina dialoglodziņu.

Aprēķiniet atlikušo laiku pirms termiņa

Dažreiz, izņemot to, ka paliek atlikušās dienas, jums var būt arī jāzina, cik daudz laika jums ir atlicis pirms konkrētā laika. Pēc tam jums būs nepieciešams silenais makro.

1. Atkārtojiet pirmās 8 darbības iepriekš. Tikai jums ir jāaizstāj kodi ar šādiem:

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. Neaizmirstiet nospiest pogu “Palaist”.
3. Šoreiz jums būs dialoglodziņš “Termiņa laiks”. Ievadiet termiņu, pēc tam noklikšķiniet uz “OK”.

Paturiet failus neskartus

Lai saglabātu failu integritāti un neļautu tiem tikt bojātiem, labākais un vienkāršākais veids ir dublēt bieži. Tomēr mēs saprotam, ka ir grūti pieturēties pie rutīnas, tāpēc katru dienu ir tik daudz bojātu failu. Lai labotu šos problemātiskos failus, jums būs nepieciešams bojāts Word labošanas rīks.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp xlsx kļūdu labošanas rīks un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar