Word dasturida VBA orqali yaratilgan 3 turdagi foydali eslatmalar

Ushbu maqolada biz sizni Word-da VBA orqali yaratishingiz mumkin bo'lgan 3 xil turdagi eslatmalar bilan tanishtirmoqchimiz.

Ba'zilarimiz har kuni Word-da juda ko'p fayllar bilan shug'ullanishimiz kerakligi sababli, nima qilish kerakligi haqida boshimiz aylanib, ba'zida ba'zi ishlarni bekor qilishimiz mumkin. Bunday holda, eslatma foydali bo'ladi. Shuning uchun biz sizga nima qilish kerakligini kuzatib borish uchun foydalanishingiz mumkin bo'lgan 3 turdagi qulay eslatmalarni taqdim etamiz.

Birinchi tur: Kundalik eslatma

Masalan, agar siz ertangi kun uchun reja tuzishni bugun oxirida qilishni afzal ko'rsangiz, sizga kundalik eslatma kerak bo'ladi. Word VBA muharririda siz "AutoExec" nomli makro qo'shishingiz mumkin. Keyin har safar Word dasturini ochganingizda, makro avtomatik ravishda ishga tushadi va barcha vazifalarni o'sha kuni bajarish kerakligini ko'rsatuvchi xabar oynasi paydo bo'ladi.

1. Birinchidan, Word dasturini oching va VBA muharririni ochish uchun “Alt+ F11” tugmasini bosing.
2. Keyin "Oddiy" tugmasini bosing.
3. Keyin "Qo'shish" tugmasini bosing.
4. Va "Oddiy" loyihasi ostida yangisini kiritish uchun menyuda "Module" ni tanlang.
5. Endi tahrirlash maydoniga kirish uchun modul ustiga ikki marta bosing va u erga quyidagi kodlarni joylashtiring:

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. Keyin o'zgarishlarni saqlash uchun "Oddiy saqlash" tugmasini bosing.

Natijada, Word dasturini har safar ochganingizda, bajarishingiz kerak bo'lgan barcha vazifalar ro'yxatini ko'rsatadigan xabarlar oynasi paydo bo'ladi. "OK" tugmasini bosish orqali siz ma'lum bir hujjatni ochishingiz va tahrirlashni davom ettirishingiz mumkin.

Eslatmalar:

1. Kod qatorida "dtDate = #2/20/2017#”, sana barcha amallarni bajarish kerak bo'lgan kundir. Shunga ko'ra o'zgartirishni unutmang.
2. Kod qatorida "MsgBox "Bugun bajarilishi kerak bo'lgan vazifalar:" & vbCr & "1: XX faylini Jon Smitga yuborish" & vbCr & "2: YY faylini tugatish"”, qo'shtirnoq orasidagi barcha tarkib - bu sizga rioya qilishingiz kerak bo'lgan vazifalar ro'yxati. Uni o'zingizning aniq topshiriqlaringiz bilan almashtiring. Siz har bir roʻyxat bandini qoʻshtirnoq ichiga qoʻyishingiz va uni “ bilan oldingisiga qoʻshishingiz kerak.& vbCr &” (tirnoq belgisi yo'q).

Ikkinchi tur: takrorlanadigan vazifalar uchun eslatmalar

Haftalik eslatma

Bu erda haftalik eslatma keladi, bu sizga har haftaning bir kunida qilishingiz kerak bo'lgan narsalarni bildiradi.

1. Birinchidan, yuqoridagi dastlabki 4 qadamni takrorlang.
2. Faqat bu safar siz quyidagi makroni joylashtirasiz:

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. Xuddi shunday, oxirgi marta "Oddiy saqlash" tugmasini bosing.

Xuddi shunday, xabarlar oynasi ham bo'ladi. Word-da yozishni davom ettirish uchun "OK" tugmasini bosing.

Eslatmalar:

Kod qatorida "dtWeekDay = vbDushanba"siz o'zgartirishingiz mumkin"vbDushanba"Ga"vbseshanba","vbChorshanba","vbPayshanba","vbJuma","vbShanba"Yoki"vbYakshanba” mos ravishda.

Oylik eslatma

Xuddi shu tarzda, sizga oylik vazifani eslatuvchi oylik eslatma mavjud.

1. Hali ham "Birinchi turdagi: kundalik eslatma" da dastlabki 4 qadamni tashlang.
2. Keyin kodlarni u erga joylashtiring:

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. Va nihoyat, "Oddiy saqlash" tugmasini bosing.

Xuddi shunday, Word dasturini har safar ochganingizda xabarlar oynasi ochiladi.

Eslatma:

Kod qatorida "dtDay = 20”, raqam - bu oylik topshiriqni bajarish kerak bo'lgan sana. Makrosni ishga tushirishdan oldin uni o'zgartirishni unutmang.

Uchinchi tur: Sana yoki vaqt farqi uchun eslatmalar

Deyarli hamma narsa uchun belgilangan muddat borligini hisobga olsak, qolgan aniq kunlar yoki vaqtni yodda tutish kerak. Shuning uchun, keyingi 2 ta makros joriy sana yoki vaqt bilan belgilangan muddat sanasi yoki vaqti o'rtasidagi farqni avtomatik ravishda hisoblashi mumkin. Va bu Word dasturini ochganingizda ko'rinadi va natija xabar oynasida ko'rsatiladi.

Makrosni ishga tushirish va saqlash bosqichlari yuqoridagi kabi.

Mana kun farqini olish uchun 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

Va natija:

Eslatma:

Kod qatorini o'zgartirishni unutmang "dtDeadlineDay = #2/20/2017#”. Faqat kerakli sanani o'zgartiring.

Keyin vaqt farqini olish uchun makro:

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

Va natija:

Eslatma:

Vaqtni "da almashtiringdtDeadlineTime = TimeValue (“16:40:00”)” mazmunli bilan.

Arziydigan Zaxira

Fayl buzilganidan keyin uning ahamiyati va nima qilishi mumkinligini hech qachon e'tibordan chetda qoldirmaymiz. Bundan tashqari, bizga hech bo'lmaganda har kuni yoki haftalik yoki oylik zaxira rejasini ishlab chiqish tavsiya etiladi. Zaxiralash - bu bizning ma'lumotlarimizga zarar yetkazmaslik uchun aniq tayyorgarlikdir. Aks holda, biz zaxira qilishimiz mumkin bo'lgan so'nggi kuch - bu a olish buzilgan Word ma'lumotlarini tiklash vositasi.

Muallif kirish:

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