Dalam artikel hari ini, kami akan menyajikan kepada Anda 2 cara cepat untuk memasukkan hari atau waktu yang tersisa sebelum tenggat waktu di dokumen Word Anda.
Sesekali, ketika Anda mengerjakan sebuah proyek penting, Anda akan menemukan bahwa Anda harus mengingat hari atau waktu yang tersisa sebelum tenggat waktu untuk menyesuaikan kecepatan kerja Anda. Maka akan menjadi ide yang bagus untuk memasukkan hari atau waktu tersisa sebelum tenggat waktu ke dalam dokumen Word Anda, sehingga mereka dapat mengingatkan Anda tentang waktu terakhir yang tersisa.
Di teks berikut, kami ingin memperkenalkan Anda 2 metode tentang cara menggunakan makro untuk menghitung dan mendapatkan nilainya.
Hitung Hari Tersisa sebelum Batas Waktu
- Pertama dan terpenting, letakkan kursor Anda di posisi tempat Anda ingin memasukkan angka.
- Kemudian, klik tab "Pengembang".
- Selanjutnya klik "Visual Basic" di grup "Kode" untuk membuka editor VBA. Selain itu, Anda dapat menekan "Alt + F11" sebagai gantinya jika tab "Pengembang" tidak tersedia di Word Anda.
- Sekarang klik "Normal" dan kemudian "Sisipkan".
- Selanjutnya, pilih "Modul".
- Klik dua kali modul baru untuk membuka area pengeditan di sisi kanan.
- Kemudian tempel kode 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
- Selanjutnya, klik tombol "Run".
- Anda akan disambut dengan kotak dialog, seperti di bawah ini:
Masukkan tanggal tenggat ke dalam kotak teks dan klik "OK".
Untuk kemudahan penggunaan di masa mendatang, Anda dapat mengklik "Makro" di bawah tab "Pengembang" dan memilih makro kanan lalu klik "Jalankan". Ini akan memicu kotak dialog.
Hitung Waktu Tersisa sebelum Batas Waktu
Terkadang, selain mendapatkan hari tersisa, Anda mungkin juga perlu mengetahui berapa banyak waktu yang tersisa sebelum waktu tertentu. Kemudian, makro di bawah inilah yang Anda butuhkan.
- Ulangi 8 langkah pertama di atas. Hanya Anda yang harus mengganti kode dengan yang berikut ini:
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 tombol "Run".
- Kali ini, Anda akan melihat kotak dialog "Batas Waktu". Masukkan tenggat waktu lalu klik “OK”.
Simpan File Tidak Terganggu
Untuk menjaga integritas file dan menyimpannya jauh dari kerusakan, cara terbaik dan termudah adalah dengan sering membuat cadangan. Namun, kami memahami sulit untuk tetap berpegang pada rutinitas, itulah sebabnya ada begitu banyak file rusak setiap hari. Untuk memperbaiki file yang bermasalah ini, Anda memerlukan file alat perbaikan Word yang rusak.
Pengantar Penulis:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xlsx alat perbaikan kesalahan ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com