2 moduri rapide de a introduce zilele sau timpul rămas înainte de un termen limită în documentul Word

În articolul de astăzi, vă vom prezenta 2 moduri rapide de a insera zilele sau timpul rămas înainte de un termen limită în documentul dvs. Word.

Din când în când, când lucrezi la un proiect important, vei descoperi că trebuie să ții cont de zilele exacte sau de ora rămasă înainte de termen pentru a-ți ajusta ritmul de lucru. Atunci va fi o idee grozavă să introduceți zilele sau timpul rămas înainte de termenul limită în documentul dvs. Word, astfel încât să vă reamintească ultimul timp rămas.

În textul următor, am dori să vă prezentăm 2 metode de utilizare a macrocomenzilor pentru a calcula și obține valoarea.

Calculați zilele rămase înainte de termenul limită

1. În primul rând și înainteost, plasați cursorul în poziția în care doriți să introduceți numărul.
2. Apoi, faceți clic pe fila „Dezvoltator”.
3. Apoi faceți clic pe „Visual Basic” în grupul „Cod” pentru a deschide editorul VBA. De asemenea, puteți apăsa „Alt+ F11” în cazul în care fila „Dezvoltator” nu este disponibilă în Word.
4. Acum faceți clic pe „Normal” și apoi pe „Inserare”.
5. Apoi, alegeți „Modul”.
6. Faceți dublu clic pe noul modul pentru a deschide zona de editare din partea dreaptă.
7. Apoi lipiți acolo următoarele coduri:

Sub CountDownfromTodayToDeadlineDate() Dim dtDeadlineDate As Data Dim lDaysLeft As Long ' Introduceți data limită pentru a calcula diferența de dată. dtDeadlineDate = InputBox("Introduceți data limită", "Deadline Date", "De exemplu:2017/2/14") lDaysLeft = DateDiff("d", Now, dtDeadlineDate) ' Afișează diferența de dată de astăzi până la data limită în document word. Selection.Text = „Există „ & lDaysLeft & „ zile rămase de astăzi până la „ & dtDeadlineDate & vbCrLf End Sub

8. Apoi, faceți clic pe butonul „Run”.
9. Veți fi întâmpinat cu o casetă de dialog, cum ar fi mai jos:

Introduceți data limită în caseta de text și faceți clic pe „OK”.

Pentru o utilizare ușoară în viitor, puteți face clic pe „Macrocomenzi” din fila „Dezvoltator” și puteți alege macrocomanda potrivită, apoi faceți clic pe „Run”. Acesta va declanșa caseta de dialog.

Calculați timpul rămas înainte de termenul limită

Uneori, în afară de zilele rămase, poate fi necesar să știi și cât timp ai rămas înainte de o anumită oră. Apoi, macrocomanda de mai jos este ceea ce veți avea nevoie.

1. Repetați primii 8 pași de mai sus. Numai tu trebuie să înlocuiești codurile cu următoarele:

Sub CountDownfromNowToDeadlineTime() Dim dtTimeNow As Date Dim dtDeadlineTime As Data Dim lTimeLeft As Long Dim lHour As Long Dim lMinute As Long Dim lSecond As Long ' Obțineți ora acum și ora limită. dtTimeNow = TimeValue(Acum) dtDeadlineTime = InputBox("Introduceți ora limită","Ora limită", "De exemplu:18:00:00") ' Calculați diferența de timp. lTimeLeft = DateDiff("s", dtTimeNow, dtDeadlineTime) lHour = lTimeLeft \ 3600 lTimeLeft = lTimeLeft - lHour * 3600 lMinute = lTimeLeft \ 60 lSecond = lTimeLeft - lMinute * 60 Selection.Text = "Ore" & " & lMinut & " minute " & lSecunde & " secunde rămase de acum până la " & dtDeadlineTime & vbCrLf End Sub

2. Nu uitați să apăsați butonul „Run”.
3. De data aceasta, veți avea caseta de dialog „Timp limită”. Introduceți ora limită, apoi faceți clic pe „OK”.

Păstrați fișierele nevătămate

Pentru a păstra integritatea fișierelor și a le stoca departe de corupție, cel mai bun și mai simplu mod este să faceți copii de siguranță. Cu toate acestea, înțelegem că este greu să rămânem la o rutină, motiv pentru care există atât de multe fișiere sparte în fiecare zi. Pentru a repara aceste fișiere problematice, veți avea nevoie de un instrument de reparare Word corupt.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv Instrument de reparare a erorilor xlsx și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com