Dalam artikel hari ini, kami akan menunjukkan kepada anda 2 cara cepat untuk memasukkan hari atau waktu yang tersisa sebelum tarikh akhir dalam dokumen Word anda.
Kadang-kadang, semasa anda mengerjakan projek penting, anda akan mendapati bahawa anda harus ingat hari atau waktu yang tepat sebelum tarikh akhir untuk menyesuaikan langkah kerja anda. Maka adalah idea yang bagus untuk memasukkan hari atau waktu yang tersisa sebelum tarikh akhir ke dalam dokumen Word anda, sehingga mereka dapat mengingatkan anda tentang waktu terakhir yang tersisa.
Dalam teks berikut, kami ingin memperkenalkan kepada anda 2 kaedah bagaimana menggunakan makro untuk mengira dan mendapatkan nilainya.
Hitung Hari Yang Tinggal Sebelum Tarikh Akhir
- Pertama sekali, letakkan kursor anda di tempat anda ingin memasukkan nombor tersebut.
- Kemudian, klik tab "Pembangun".
- Seterusnya klik "Visual Basic" dalam kumpulan "Code" untuk membuka editor VBA. Anda juga dapat menekan "Alt + F11" sebaliknya jika tab "Pembangun" tidak tersedia di Word Anda.
- Sekarang klik "Normal" dan kemudian "Masukkan".
- Seterusnya, pilih "Modul".
- Klik dua kali modul baru untuk membuka kawasan penyuntingan di sebelah kanan.
- Kemudian tampal kod berikut di sana:
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
- Seterusnya, klik butang "Jalankan".
- Anda akan disambut dengan kotak dialog, seperti di bawah:
Masukkan tarikh akhir ke dalam kotak teks dan klik "OK".
Untuk penggunaan yang mudah di masa depan, anda dapat mengklik "Makro" di bawah tab "Pembangun" dan memilih makro yang tepat kemudian klik "Jalankan". Ia akan mencetuskan kotak dialog.
Hitung Masa Yang Tinggal sebelum Tarikh Akhir
Kadang-kadang, selain mendapat hari yang tersisa, anda mungkin juga perlu mengetahui berapa banyak masa yang anda tinggalkan sebelum waktu tertentu. Kemudian, makro berikut adalah perkara yang anda perlukan.
- Ulangi 8 langkah pertama di atas. Anda hanya perlu mengganti kod dengan yang berikut:
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
- Ingatlah untuk menekan butang "Run".
- Kali ini, anda akan mempunyai kotak dialog "Waktu Tamat". Masukkan tarikh akhir kemudian klik "OK".
Pastikan Fail Tidak Terluka
Untuk menjaga integriti fail dan menyimpannya dari rasuah, kaedah terbaik dan termudah adalah dengan membuat sandaran. Namun, kami memahami bahawa sukar untuk mengikuti rutin, sebab itulah terdapat banyak fail yang rosak setiap hari. Untuk membaiki fail yang bermasalah ini, anda memerlukan alat pembaikan Word yang rosak.
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk alat pembaikan ralat xlsx dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com