Pada artikel ini, kami ingin memperkenalkan 3 jenis pengingat berbeda di Word yang dapat Anda buat melalui VBA.
Karena beberapa dari kita harus berurusan dengan banyak file di Word setiap hari, kita cenderung pusing dengan apa yang harus dilakukan dan terkadang membiarkan beberapa pekerjaan tidak terselesaikan. Dalam hal ini, pengingat akan membantu. Oleh karena itu, kami menyajikan kepada Anda 3 jenis pengingat praktis yang dapat Anda manfaatkan untuk melacak apa yang harus dilakukan.
Jenis Pertama: Pengingat Harian
Sebagai contoh, jika Anda lebih suka membuat rencana untuk besok di akhir hari ini, pengingat harian adalah yang Anda butuhkan. Di editor VBA Word, Anda dapat menambahkan makro dengan nama "AutoExec". Kemudian setiap kali Anda membuka aplikasi Word, makro akan mulai berjalan secara otomatis dan memunculkan kotak pesan yang menunjukkan semua tugas yang harus diselesaikan pada hari itu.
- Pertama, buka Word dan tekan "Alt + F11" untuk membuka editor VBA.
- Kemudian klik "Normal".
- Selanjutnya klik "Sisipkan".
- Dan pilih "Modul" pada menu untuk memasukkan yang baru di bawah proyek "Normal".
- Sekarang klik dua kali pada modul untuk masuk ke area pengeditan dan tempel kode berikut di sana:
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
- Selanjutnya klik "Simpan Normal" untuk menyimpan perubahan.
Akibatnya, setiap kali Anda membuka Word, akan ada kotak pesan yang mencantumkan semua tugas yang perlu Anda selesaikan. Dengan mengklik "OK", Anda dapat membuka dan melanjutkan pengeditan pada dokumen tertentu.
Catatan:
- Di baris kode "dtDate = # 2/20/2017 #”, Tanggal adalah hari dimana Anda harus melakukan semua tindakan. Ingatlah untuk berubah sesuai.
- Di baris kode "MsgBox “Tugas yang harus diselesaikan hari ini:” & vbCr & “1: Kirim fileXX ke John Smith” & vbCr & “2: Selesaikan file YY””, Semua konten di antara tanda kutip adalah daftar tugas yang perlu Anda ikuti. Gantilah dengan misi konkret Anda sendiri. Anda harus meletakkan setiap item daftar di dalam tanda kutip dan menggabungkannya dengan yang sebelumnya dengan "& vbCr &”(Tidak ada tanda kutip).
Jenis Kedua: Pengingat untuk Tugas Berulang
Pengingat Mingguan
Inilah pengingat mingguan, memberitahukan hal-hal yang harus Anda lakukan pada hari yang sama setiap minggu.
- Pertama, ulangi 4 langkah pertama di atas.
- Hanya kali ini, Anda menempelkan makro di bawah ini:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- Demikian pula, klik tombol "Simpan Normal" terakhir.
Demikian juga, akan ada kotak pesan. Klik "OK" untuk melanjutkan menulis di Word.
Catatan:
Di baris kode "dtWeekDay = vbSenin", Anda dapat mengubah"vbSenin"To"vbSelasa","vbRabu","vbKamis","vbJumat","vbSabtu", atau "vbMinggu"Sesuai.
Pengingat Bulanan
Dengan cara yang sama, ada pengingat bulanan, yang mengingatkan Anda tentang tugas bulanan.
- Masih lakukan 4 langkah pertama dalam "Jenis Pertama: Pengingat Harian".
- Kemudian tempel kode di sana:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- Terakhir, klik "Save Normal".
Demikian pula, kotak pesan akan muncul setiap kali Anda membuka Word.
Catatan:
Di baris kode "dtHari = 20”, Nomor tersebut adalah tanggal Anda harus menyelesaikan tugas bulanan. Ingatlah untuk mengubahnya sebelum menjalankan makro.
Jenis Ketiga: Pengingat untuk Perbedaan Tanggal atau Waktu
Mengingat hampir semua hal memiliki tenggat waktu, penting untuk mengingat jumlah hari atau waktu yang tersisa. Oleh karena itu, 2 makro berikut dapat secara otomatis menghitung selisih antara tanggal atau waktu saat ini dan tanggal atau waktu tenggat waktu. Dan hasilnya akan terlihat saat Anda membuka Word, menampilkan hasilnya dalam kotak pesan.
Langkah-langkah untuk menjalankan dan menyimpan makro sama seperti di atas.
Berikut makro untuk mendapatkan perbedaan hari:
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
Dan hasilnya adalah:
Catatan:
Ingatlah untuk mengubah baris kode "dtDeadlineDay = # 2/20/2017 #". Ubah saja tanggal yang Anda butuhkan.
Kemudian selanjutnya adalah makro untuk mendapatkan perbedaan waktu:
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
Dan hasilnya adalah:
Catatan:
Ganti waktu di "dtDeadlineTime = TimeValue ("16:40:00 PM")"Dengan yang bermakna.
Cadangan yang Bermanfaat
Kami tidak akan pernah meremehkan pentingnya dan apa yang dapat dilakukannya setelah file rusak. Selain itu, kami disarankan untuk membuat rencana cadangan setidaknya setiap hari atau mingguan atau bulanan. Backup adalah persiapan tepat yang harus kita lakukan untuk mencegah data kita rusak. Jika tidak, upaya terakhir yang bisa kita lakukan adalah mendapatkan a alat pemulihan data Word yang rusak.
Pengantar Penulis:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk alat perbaikan Excel xls rusak ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com