2 nopeaa tapaa lisätä määräpäivää jäljellä olevat päivät tai aika Word-asiakirjaasi

Tämänpäiväisessä artikkelissa esitämme sinulle kaksi nopeaa tapaa lisätä päivämäärää jäljellä olevat päivät tai aika Word-asiakirjaasi.

Joka kerta kun työskentelet tärkeän projektin parissa, huomaat, että sinun on pidettävä mielessä tarkat päivät tai aika, joka on jäljellä ennen määräaikaa, jotta voit säätää työtasi. Sitten on hyvä idea lisätä päivämäärää jäljellä olevat päivät tai aika Word-asiakirjaasi, jotta he voivat muistuttaa sinua viimeisimmästä jäljellä olevasta ajasta.

Seuraavassa tekstissä haluamme esitellä sinulle kaksi tapaa käyttää makroja arvon laskemiseksi ja saamiseksi.

Laske jäljellä olevat päivät ennen määräaikaa

1. Ensinnäkin, aseta kohdistin siihen kohtaan, johon haluat lisätä numeron.
2. Napsauta sitten Kehittäjä-välilehteä.
3. Napsauta sitten “Visual Basic” ”Koodi” -ryhmässä avataksesi VBA-editorin. Voit myös painaa "Alt + F11" sen sijaan, jos "Kehittäjä" -välilehti ei ole käytettävissä Wordissasi.
4. Napsauta nyt “Normal” ja sitten “Insert”.
5. Valitse seuraavaksi ”Moduuli”.
6. Kaksoisnapsauta uutta moduulia avataksesi muokkausalueen oikealla puolella.
7. Liitä sitten seuraavat koodit sinne:

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. Napsauta seuraavaksi Suorita-painiketta.
9. Sinua tervehditään valintaikkunalla, kuten alla:

Kirjoita määräpäivä tekstikenttään ja napsauta “OK”.

Helppoa käyttöä varten voit napsauttaa "Makrot" Kehittäjä-välilehdessä ja valita oikean makron ja napsauttaa sitten Suorita. Se käynnistää valintaikkunan.

Laske jäljellä oleva aika ennen määräaikaa

Joskus sen lisäksi, että saat jäljellä olevat päivät, sinun on ehkä myös tiedettävä, kuinka paljon aikaa on jäljellä ennen tiettyä aikaa. Sitten tarvitset jyrkän makron.

1. Toista edellä mainitut 8 ensimmäistä vaihetta. Vain sinun on korvattava koodit seuraavilla:

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. Muista lyödä Suorita-painiketta.
3. Tällä kertaa sinulla on "Määräaika" -valintaikkuna. Anna määräaika ja napsauta sitten “OK”.

Pidä tiedostot vahingoittumattomina

Paras ja helpoin tapa on tehdä varmuuskopiot usein tiedostojen eheyden säilyttämiseksi ja niiden suojaamiseksi vioittuneilta. Ymmärrämme kuitenkin, että on vaikea pysyä rutiinissa, minkä vuoksi rikki tiedostoja on niin paljon päivittäin. Korjataksesi nämä ongelmalliset tiedostot tarvitset vioittunut Word-korjaustyökalu.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien xlsx-virheiden korjaustyökalu ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com