Word Belgenize Son Tarihten Önce Kalan Günleri veya Saati Eklemenin 2 Hızlı Yolu

Bugünün makalesinde, Word belgenizdeki son teslim tarihinden önce kalan günleri veya zamanı eklemenin 2 hızlı yolunu sunacağız.

Arada bir, önemli bir proje üzerinde çalışırken, çalışma hızınızı ayarlamak için son teslim tarihinden önce kalan günleri veya zamanı tam olarak aklınızda tutmanız gerektiğini göreceksiniz. O halde, son teslim tarihine kadar kalan günleri veya zamanı Word belgenize eklemek harika bir fikir olacaktır, böylece size kalan son zamanı hatırlatabilirler.

Aşağıdaki metinde, değeri hesaplamak ve almak için makroları nasıl kullanacağınıza dair 2 yöntemi size tanıtmak istiyoruz.

Bitiş Tarihine Kalan Günleri Hesaplayın

1. Öncelikle, imlecinizi sayıyı eklemek istediğiniz konuma getirin.
2. Ardından, "Geliştirici" sekmesine tıklayın.
3. Daha sonra VBA düzenleyicisini açmak için "Kod" grubundaki "Visual Basic"e tıklayın. Ayrıca, Word'ünüzde "Geliştirici" sekmesi yoksa bunun yerine "Alt + F11" tuşlarına basabilirsiniz.
4. Şimdi “Normal” e ve ardından “Ekle” ye tıklayın.
5. Ardından, "Modül" seçeneğini seçin.
6. Sağ taraftaki düzenleme alanını açmak için yeni modüle çift tıklayın.
7. Ardından aşağıdaki kodları oraya yapıştı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. Ardından, "Çalıştır" düğmesini tıklayın.
9. Aşağıdaki gibi bir iletişim kutusu ile karşılaşacaksınız:

Son tarihi metin kutusuna girin ve "Tamam" ı tıklayın.

İleride kolay kullanım için “Geliştirici” sekmesi altındaki “Makrolar”a tıklayıp doğru makroyu seçip “Çalıştır”a tıklayabilirsiniz. İletişim kutusunu tetikleyecektir.

Bitiş Tarihinden Önce Kalan Süreyi Hesaplayın

Bazen, kalan günlerinizin yanı sıra, belirli bir zamandan önce ne kadar süreniz kaldığını da bilmeniz gerekebilir. Ardından, ihtiyacınız olan şey aşağıdaki makrodur.

1. Yukarıdaki ilk 8 adımı tekrarlayın. Yalnızca kodları aşağıdakilerle değiştirmeniz gerekir:

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ıştır" düğmesine basmayı unutmayın.
3. Bu kez, “Son Tarih” iletişim kutusuna sahip olacaksınız. Son teslim tarihini girin ve ardından "Tamam" ı tıklayın.

Dosyaları Zarar Görmeden Koruyun

Dosya bütünlüğünü korumak ve bozulmadan saklamak için en iyi ve en kolay yol, sık sık yedekleme yapmaktır. Ancak, bir rutine bağlı kalmanın zor olduğunu anlıyoruz, bu yüzden her gün bu kadar çok bozuk dosya oluyor. Bu sorunlu dosyaları onarmak için bir bozuk Word onarım aracı.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xlsx hata onarım aracı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com