Сөздік құжатта мерзім аяқталғанға дейін қалған күндерді немесе уақытты енгізудің 2 жылдам әдісі

Бүгінгі мақалада біз сізге Word құжатында мерзім аяқталғанға дейін қалған күндер мен уақытты енгізудің 2 жылдам әдісін ұсынамыз.

Кейде маңызды жобамен жұмыс жасағанда, жұмыс қарқыныңызды реттеу үшін мерзім аяқталғанға дейін нақты күндерді немесе уақытты есте ұстауыңыз керек екенін білесіз. Сонда сіздің Word құжатыңызға мерзім аяқталғанға дейін қалған күндерді немесе уақытты енгізу өте жақсы болады, сонда олар сізге соңғы уақытты еске салады.

Келесі мәтінде біз сізге макросты есептеу және мән алу үшін қалай қолданудың 2 әдісін ұсынғымыз келеді.

Мерзімге дейін қалған күндерді есептеңіз

1. Ең алдымен, меңзерді санды енгізгіңіз келетін жерге қойыңыз.
2. Содан кейін, «Әзірлеуші» қойындысын нұқыңыз.
3. Келесіде VBA редакторын ашу үшін «Код» тобындағы «Visual Basic» батырмасын басыңыз. Сондай-ақ, Word бағдарламасында «Әзірлеуші» қойындысы болмаса, «Alt + F11» пернелерін басуға болады.
4. Енді «Қалыпты», содан кейін «Кірістіру» батырмасын басыңыз.
5. Содан кейін «Модуль» таңдаңыз.
6. Оң жақтағы өңдеу аймағын ашу үшін жаңа модульді екі рет басыңыз.
7. Содан кейін келесі кодтарды қойыңыз:

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. Содан кейін «Іске қосу» батырмасын басыңыз.
9. Сізді төмендегідей диалогтық терезе қарсы алады:

Мәтін жолағына соңғы күнді енгізіп, «ОК» батырмасын басыңыз.

Болашақта оңай пайдалану үшін сіз «Әзірлеуші» қойындысының астындағы «Макростарды» нұқып, макросты таңдап, «Іске қосу» түймесін басыңыз. Ол диалогтық терезені іске қосады.

Мерзімге дейін қалған уақытты есептеңіз

Кейде, бірнеше күн қалудан бөлек, белгілі бір уақытқа дейін қанша уақыт қалғаныңызды білу қажет болуы мүмкін. Сосын, сізге макросты қажет етеді.

1. Жоғарыдағы алғашқы 8 қадамды қайталаңыз. Тек сізге кодтарды келесілермен ауыстыру керек:

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. «Іске қосу» батырмасын басуды ұмытпаңыз.
3. Бұл жолы сізде «Мерзімді уақыт» диалогтық терезесі болады. Соңғы уақытты енгізіп, «ОК» батырмасын басыңыз.

Файлдарды сақтаңыз

Файлдардың тұтастығын сақтау және оларды бүлінуден сақтау үшін ең жақсы және қарапайым әдіс - сақтық көшірмелерді жиі жасау. Алайда, біз күнделікті өмірді ұстану қиын екенін түсінеміз, сондықтан күн сайын көптеген бұзылған файлдар бар. Бұл проблемалы файлдарды жөндеу үшін сізге бүлінген Word жөндеу құралы.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xlsx қатесін жөндеу құралы және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com