Nell'articolo di oggi, ti presenteremo 2 modi rapidi per inserire i giorni o l'ora rimanenti prima di una scadenza nel tuo documento Word.
Di tanto in tanto, quando lavori a un progetto importante, scoprirai che devi tenere a mente i giorni esatti o il tempo rimanente prima della scadenza in modo da adattare il tuo ritmo di lavoro. Quindi sarà un'ottima idea inserire i giorni o l'ora rimanenti prima della scadenza nel documento di Word, in modo che possano ricordarti l'ultima volta rimasta.
Nel testo seguente, vorremmo presentarti 2 metodi su come utilizzare le macro per calcolare e ottenere il valore.
Calcola i giorni rimanenti prima della scadenza
- Innanzitutto, posiziona il cursore nel punto in cui desideri inserire il numero.
- Quindi, fai clic sulla scheda "Sviluppatore".
- Quindi fai clic su "Visual Basic" nel gruppo "Codice" per aprire l'editor VBA. Inoltre, puoi premere "Alt + F11" invece nel caso in cui la scheda "Sviluppatore" non sia disponibile in Word.
- Ora fai clic su "Normale" e quindi su "Inserisci".
- Quindi, scegli "Modulo".
- Fare doppio clic sul nuovo modulo per aprire l'area di modifica sul lato destro.
- Quindi incolla i seguenti codici lì:
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
- Successivamente, fai clic sul pulsante "Esegui".
- Sarai accolto con una finestra di dialogo, come quella qui sotto:
Immettere la data di scadenza nella casella di testo e fare clic su "OK".
Per un facile utilizzo in futuro, puoi fare clic su "Macro" nella scheda "Sviluppatore" e scegliere la macro corretta, quindi fare clic su "Esegui". Farà scattare la finestra di dialogo.
Calcola il tempo rimanente prima della scadenza
A volte, oltre a ottenere giorni rimanenti, potresti anche aver bisogno di sapere quanto tempo ti rimane prima di un orario specifico. Quindi, la macro muggito è ciò di cui avrai bisogno.
- Ripeti i primi 8 passaggi sopra. Solo tu devi sostituire i codici con i seguenti:
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
- Ricorda di premere il pulsante "Esegui".
- Questa volta, avrai la finestra di dialogo "Ora di scadenza". Immettere l'ora di scadenza, quindi fare clic su "OK".
Mantieni i file illesi
Per mantenere l'integrità dei file e archiviarli lontano dalla corruzione, il modo migliore e più semplice è eseguire spesso i backup. Tuttavia, comprendiamo che è difficile attenersi a una routine, motivo per cui ci sono così tanti file rotti ogni giorno. Per riparare questi file problematici, avrai bisogno di un file strumento di riparazione di Word danneggiato.
Introduzione dell'autore:
Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui strumento di riparazione degli errori xlsx and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com