Word hujjatingizga oxirgi muddatga qolgan kunlar yoki vaqtni kiritishning 2 ta tezkor usuli

Bugungi maqolada biz sizga Word hujjatiga muddat tugashidan oldin qolgan kunlar yoki vaqtni kiritishning ikkita tezkor usulini taqdim etamiz.

Vaqti-vaqti bilan, muhim loyiha ustida ishlayotganingizda, ish sur'atingizni moslashtirish uchun aniq kunlar yoki muddat tugashiga qadar qolgan vaqtni yodda tutishingiz kerakligini bilib olasiz. Keyin oxirgi vaqtni eslatib qo'yishi uchun Word hujjatingizga oxirgi muddatgacha qolgan kunlar yoki vaqtni kiritish juda yaxshi g'oya bo'ladi.

Quyidagi matnda biz sizga qiymatni hisoblash va olish uchun makroslardan foydalanishning 2 ta usulini taqdim qilmoqchimiz.

Belgilangan muddatga qolgan kunlarni hisoblang

1. Avvalo, kursorni raqamni kiritmoqchi bo'lgan joyga qo'ying.
2. Keyin, "Tuzuvchi" yorlig'ini bosing.
3. Keyin VBA muharririni ochish uchun "Kod" guruhidagi "Visual Basic" tugmasini bosing. Bundan tashqari, agar Word-da "Tuzuvchi" yorlig'i mavjud bo'lmasa, "Alt + F11" tugmachasini bosishingiz mumkin.
4. Endi "Oddiy" va keyin "Qo'shish" tugmasini bosing.
5. Keyin "Modul" ni tanlang.
6. O'ng tarafdagi tahrirlash maydonini ochish uchun yangi modulni ikki marta bosing.
7. Keyin u erga quyidagi kodlarni joylashtiring:

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. Keyin, "Ishga tushirish" tugmasini bosing.
9. Sizni quyidagi kabi dialog oynasi kutib oladi:

Matn maydoniga oxirgi sanani kiriting va "OK" tugmasini bosing.

Kelajakda qulay foydalanish uchun "Ishlab chiquvchi" yorlig'i ostidagi "Makrolar" ni bosing va to'g'ri so'lni tanlang va "Ishga tushirish" tugmasini bosing. U dialog oynasini ishga tushirishi kerak.

Belgilangan muddatga qolgan vaqtni hisoblang

Ba'zan, qolgan kunlardan tashqari, ma'lum bir vaqtdan oldin qancha vaqt qolganingizni ham bilishingiz kerak bo'lishi mumkin. Keyin, quyida keltirilgan makro sizga kerak bo'ladi.

1. Yuqoridagi dastlabki 8 qadamni takrorlang. Faqat kodlarni quyidagi bilan almashtirishingiz kerak:

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. "Ishga tushirish" tugmasini bosishni unutmang.
3. Bu safar sizda "Oxirgi muddat" dialog oynasi bo'ladi. Belgilangan muddatni kiriting va "OK" tugmasini bosing.

Fayllarni zararsiz saqlang

Fayllarning yaxlitligini saqlash va ularni korruptsiyadan uzoqroq saqlash uchun eng yaxshi va eng oson yo'l tez-tez zaxira nusxalarini yaratishdir. Biroq, biz odatdagi rejimga rioya qilish qiyinligini tushunamiz, shuning uchun har kuni juda ko'p buzilgan fayllar mavjud. Ushbu muammoli fayllarni tuzatish uchun sizga kerak bo'ladi buzilgan Word tuzatish vositasi.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xlsx xato tuzatish vositasi va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com