Word Sənədinizdə son tarixə qədər qalan günləri və ya vaxtı daxil etməyin 2 sürətli yolu

Bugünkü məqalədə biz sizə Word sənədinizdə son tarixə qalan günləri və ya vaxtı daxil etməyin 2 sürətli yolunu təqdim edəcəyik.

Hərdən bir mühüm layihə üzərində işləyərkən, iş tempinizi tənzimləmək üçün son tarixə qədər qalan dəqiq günləri və ya vaxtı nəzərə almalı olduğunuzu görərsiniz. Sonra son tarixə qədər qalan günləri və ya vaxtı Word sənədinizə daxil etmək əla fikirdir ki, onlar sizə qalan son vaxtı xatırlatsınlar.

Aşağıdakı mətndə biz sizə dəyəri hesablamaq və əldə etmək üçün makrolardan istifadə etməyin 2 üsulunu təqdim etmək istərdik.

Son tarixdən əvvəl qalan günləri hesablayın

1. İlk növbədə, imleci rəqəmi daxil etmək istədiyiniz yerə yerləşdirin.
2. Sonra, "Developer" sekmesine klikləyin.
3. Sonra VBA redaktorunu açmaq üçün "Kod" qrupunda "Visual Basic" üzərinə klikləyin. Həmçinin, Word-də “Tərtibatçı” nişanı olmadıqda, bunun əvəzinə “Alt+ F11” düyməsini sıxa bilərsiniz.
4. İndi "Normal" və sonra "Daxil et" düyməsini basın.
5. Sonra, "Modul" seçin.
6. Sağ tərəfdəki redaktə sahəsini açmaq üçün yeni modulun üzərinə iki dəfə klikləyin.
7. Sonra aşağıdakı kodları ora yapışdırın:

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. Sonra, "Çalış" düyməsini basın.
9. Aşağıdakı kimi bir dialoq qutusu ilə qarşılanacaqsınız:

Mətn qutusuna son tarixi daxil edin və "OK" düyməsini basın.

Gələcəkdə asan istifadə etmək üçün siz “Developer” sekmesi altındakı “Makrolar” üzərinə klikləyib düzgün makronu seçib, “Çalış” düyməsini klikləyə bilərsiniz. O, dialoq qutusunu işə salacaq.

Son tarixdən əvvəl qalan vaxtı hesablayın

Bəzən, qalan günlərdən başqa, müəyyən bir vaxta qədər nə qədər vaxtınızın qaldığını da bilməlisiniz. Sonra, aşağıdakı makro sizə lazım olacaq.

1. Yuxarıdakı ilk 8 addımı təkrarlayın. Yalnız kodları aşağıdakılarla əvəz etməlisiniz:

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. "Çalış" düyməsini basmağı unutmayın.
3. Bu dəfə sizdə “Son tarix” informasiya qutusu olacaq. Son tarixi daxil edin və "OK" düyməsini basın.

Faylları zərərsiz saxlayın

Faylların bütövlüyünü qorumaq və onları korrupsiyadan uzaq saxlamaq üçün ən yaxşı və asan yol tez-tez ehtiyat nüsxələrini çıxarmaqdır. Bununla belə, biz başa düşürük ki, rutinə sadiq qalmaq çətindir, buna görə də hər gün çox sayda pozulmuş fayl var. Bu problemli faylları təmir etmək üçün sizə lazım olacaq zədələnmiş Word təmir aləti.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xlsx səhv təmir aləti və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com