VBA ile Oluşturulan Word'de 3 Tür Yararlı Hatırlatıcı

Bu yazımızda sizlere Word'de VBA ile oluşturabileceğiniz 3 farklı hatırlatıcı çeşidini tanıtmak istiyoruz.

Bazılarımız günlük olarak Word'de çok sayıda dosyayla uğraşmak zorunda kaldığından, ne yapacağımız konusunda başımız dönebilir ve bazen bazı işleri yarım bırakabiliriz. Bu durumda, bir hatırlatma faydalı olacaktır. Bu nedenle, size ne yapacağınızı takip etmek için kullanabileceğiniz 3 çeşit kullanışlı hatırlatıcı sunuyoruz.

Birinci Tür: Günlük Hatırlatma

Örneğin, bugünün sonunda yarın için plan yapmayı tercih ediyorsanız, günlük bir hatırlatıcıya ihtiyacınız olacak. Word VBA düzenleyicisinde, "AutoExec" adında bir makro ekleyebilirsiniz. Ardından, Word uygulamasını her açtığınızda, makro otomatik olarak çalışmaya başlayacak ve o gün tamamlanması gereken tüm görevleri gösteren bir mesaj kutusu açacaktır.

1. İlk olarak, Word'ü açın ve VBA editörünü açmak için “Alt + F11” tuşlarına basın.
2. Ardından "Normal"i tıklayın.
3. Sonra "Ekle"yi tıklayın.
4. Ve “Normal” proje altına yeni bir tane eklemek için menüden “Modül” seçeneğini seçin.
5. Şimdi düzenleme alanına girmek için modüle çift tıklayın ve aşağıdaki kodları buraya yapıştırın:

Sub AutoExec()
  Dim dtDate As Date
 
  dtDate = #2/20/2017#
  If Date = dtDate Then
    MsgBox "Tasks to be done today:" & vbCr & "1: Send fileXX to John Smith " & vbCr & "2: Finish file YY"
  End If
End Sub

6. Sonra değişikliği kaydetmek için “Normal Kaydet”e tıklayın.

Sonuç olarak, Word'ü her açtığınızda, tamamlamanız gereken tüm görevleri listeleyen bir mesaj kutusu olacaktır. “Tamam”a tıklayarak belirli bir belgeyi açabilir ve düzenlemeye devam edebilirsiniz.

Notlar:

1. Kod satırında “dtTarih = #2/20/2017#”, tarih, tüm eylemleri gerçekleştirmeniz gereken gündür. Buna göre değiştirmeyi unutmayın.
2. Kod satırında “MsgBox "Bugün yapılacak işler:" & vbCr & "1: fileXX'i John Smith'e gönder" & vbCr & "2: YY dosyasını bitir"”, tırnak işaretleri arasındaki tüm içerikler takip etmeniz gereken görev listesidir. Kendi somut görevlerinizle değiştirin. Her bir liste öğesini tırnak işaretleri içine almalı ve “ ile bir öncekiyle birleştirmelisiniz.& vbCr &” (tırnak işareti yok).

İkinci Tür: Yinelenen Görevler İçin Hatırlatıcılar

Haftalık Hatırlatma

İşte her hafta aynı gün yapmanız gereken şeyleri bildiren haftalık hatırlatma geliyor.

1. İlk olarak, yukarıdaki ilk 4 adımı tekrarlayın.
2. Ancak bu sefer aşağıdaki makroyu yapıştırıyorsunuz:

Sub AutoExec()
  Dim dtWeekDay As Date

  dtWeekDay = vbMonday
 
  If dtWeekDay = Weekday(Date) Then
    MsgBox "Back up today of each week."
  End If
End Sub

3. Benzer şekilde son olarak “Normal Kaydet” butonuna tıklayın.

Aynı şekilde, bir mesaj kutusu olacak. Word'de yazmaya devam etmek için "Tamam"a tıklayın.

Notlar:

Kod satırında “dtWeekDay = vbPazartesi", değiştirebilirsin "vbPazartesi"Kime"vbSalı""vbÇarşamba""vbPerşembe""vbCuma""vbCumartesi”Veya“vbPazar" buna göre.

Aylık Hatırlatma

Aynı şekilde, size aylık görevi hatırlatan aylık hatırlatıcı vardır.

1. Yine de "Birinci Tür: Günlük Hatırlatma"daki ilk 4 adımı atın.
2. Ardından kodları oraya yapıştırın:

Sub AutoExec()
  Dim dtDay As Date

  dtDay = 20
 
  If dtDay = Day(Date) Then
    MsgBox "Back up today of each month."
  End If
End Sub

3. Son olarak, "Normal Kaydet"i tıklayın.

Benzer şekilde, Word'ü her açtığınızda bir mesaj kutusu açılır.

Not:

Kod satırında “dtGün = 20”, sayı, aylık görevi yerine getirmeniz gereken tarihtir. Makroyu çalıştırmadan önce değiştirmeyi unutmayın.

Üçüncü Tür: Tarih veya Saat Farkı Hatırlatıcıları

Neredeyse her şeyin bir son tarihi olduğunu düşünürsek, kalan gün veya saati tam olarak akılda tutmak gerekir. Bu nedenle, aşağıdaki 2 makro, geçerli tarih veya saat ile son tarih veya saat arasındaki farkı otomatik olarak hesaplayabilir. Ve bu, Word'ü açtığınızda bir mesaj kutusunda sonucu göstererek görünür hale gelir.

Makroyu çalıştırma ve kaydetme adımları yukarıdakiyle aynıdır.

İşte gün farkını elde etmek için makro:

Sub Autoexec()
  Dim dtDeadlineDay As Date
  Dim nDaysLeft As Long

  'Specify the deadline date and calculate the days left.
  dtDeadlineDay = #2/20/2017#
  nDaysLeft = DateDiff("d", Now, dtDeadlineDay)
 
  ' Show the days left before deadline.
  If nDaysLeft > 1 Then
    MsgBox "There are " & nDaysLeft & " days left before " & dtDeadlineDay & "."
  ElseIf nDaysLeft = 1 Then
    MsgBox "There is 1 day left before " & dtDeadlineDay & "."
  ElseIf nDaysLeft = 0 Then
    MsgBox "Today is the deadline!"
  End If
End Sub

Ve sonuç:

Not:

"Kod satırını değiştirmeyi unutmayın"dtDeadlineDay = #2/20/2017#”. Tarihi istediğiniz gibi değiştirin.

Ardından, zaman farkını elde etmek için makro gelir:

Sub Autoexec()
  Dim dtCurrentTime As Date
  Dim dtDeadlineTime As Date
  Dim nTimeLeft As Long, nHour As Long, nMinute As Long, nSecond As Long
 
 
  ' Specify the current time and the deadline time.
  dtCurrentTime = TimeValue(Now)
  dtDeadlineTime = TimeValue("16:40:00 PM")
 
  ' Calculate and show the time difference.
  nTimeLeft = DateDiff("s", dtCurrentTime, dtDeadlineTime)
  nHour = nTimeLeft \ 3600
  nTimeLeft = nTimeLeft - nHour * 3600
  nMinute = nTimeLeft \ 60
  nSecond = nTimeLeft - nMinute * 60
 
  MsgBox "There are " & nHour & " hours " & nMinute & " minutes " & nSecond & " seconds left before " & dtDeadlineTime & "."
End Sub

Ve sonuç:

Not:

“ içindeki zamanı değiştirdtDeadlineTime = TimeValue(“16:40:00 PM”)” anlamlı bir tane ile.

Değerli Bir Yedekleme

Dosya bozulduktan sonra önemini ve neler yapabileceğini asla küçümsemeyeceğiz. Ayrıca, en az günlük veya haftalık veya aylık olarak bir yedekleme planı çıkarmamız tavsiye edilir. Yedekleme, verilerimizin zarar görmesini önlemek için yapmamız gereken hazırlıktır. Aksi takdirde, yapabileceğimiz son çaba, bir bozuk Word veri kurtarma aracı.

Yazar Tanıtımı:

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