Dalam artikel ini, kami akan menunjukkan trik menarik untuk memasukkan tarikh masa depan atau masa lalu di Dokumen Word anda melalui kod VBA.
Secara amnya, kami tidak menghadapi kesukaran untuk memasukkan tarikh terkini dalam dokumen Word kami. Namun, sekarang dan lagi, kita mungkin sedang mempersiapkan dokumen yang diperlukan minggu depan atau bulan atau bahkan kemudian. Maka inilah masalah yang tidak boleh anda lalui. Bagaimana anda boleh memasukkan tarikh yang akan datang dalam fail Word? Dan kadang-kadang bagaimana dengan masa lalu?
Oleh itu, kami berpendapat bahawa anda mesti memahami kaedah yang berguna ini untuk memenuhi tugas kerja anda dengan lebih baik.
Gunakan Kod VBA untuk Memasukkan Tarikh Masa Depan atau Tampal
- Sebagai permulaan, buka dokumen Word anda.
- Kemudian, klik tab "Pembangun".
- Seterusnya klik "Visual Basic" untuk membuka editor VBA. Sekiranya tab "Pengembang" tidak tersedia di Pita Kata Anda, Anda dapat menekan "Alt + F11" untuk membuka editor sebagai gantinya.
- Sekarang di editor, klik "Normal" di sebelah kiri.
- Kemudian klik "Masukkan" pada bar alat.
- Seterusnya, pilih "Module" dari menu senarai.
- Sekarang klik dua kali modul yang baru dimasukkan, dan kawasan penyuntingan akan tersedia di sebelah kanan.
- Hanya tampalkan kod berikut di sana:
Sub InsertFutureOrPastDate()
Dim strNumberOfDays As String
' Input the number of days you want to insert from today to the future or past date.
strNumberOfDays = InputBox("Please input the number of days you want to insert", "future or past date", "Input here.For exemple,input 1 to insert the date of tomorrow")
' Insert the future or past date according to the inputed number of days
If strNumberOfDays <> "" Then
Selection.TypeText Text:=Format(Date + strNumberOfDays, "dddd, MMMM dd, yyyy")
End If
End Sub
- Seterusnya, klik butang "Simpan" dan tutup editor VBA.
- Sekarang beralih kembali ke skrin dokumen Word dan letakkan kursor anda di tempat di mana tarikh masa depan atau masa lalu berlalu.
- Kemudian klik tab "Pembangun" sekali lagi.
- Dan klik "Makro" dalam kumpulan "Kod" untuk membuka tetingkap "Makro". Sekali lagi jika tab "Pengembang" tidak ditampilkan, anda hanya perlu menekan "Alt + F8".
- Sekarang di tetingkap "Makro", cari dan pilih makro "InsertFutureOrPastDate".
- Klik seterusnya "Run".
- Kemudian anda akan disambut oleh kotak mesej. Anda boleh memasukkan nombor di kotak teks di bahagian bawah kotak untuk mewakili hari yang tinggal hingga tarikh yang akan datang. Contohnya, jika anda ingin memasukkan tarikh esok, anda harus memasukkan “1” di sana. Begitu juga, jika anda memerlukan tarikh yang lalu, cukup tambahkan tanda tolak sebelum nilainya, seperti "-1" untuk semalam.
- Ingatlah untuk mengklik "OK".
Catatan: Dalam kod "Selection.TypeText Text: = Format (Date + strNumberOfDays," dddd, MMMM dd, yyyy ")", "dddd, MMMM dd, yyyy" mewakili format tarikh di mana "M" berarti "bulan" , "D" untuk "hari", "y" untuk "tahun" dan "dddd" untuk "minggu", jadi Anda bebas mengubahnya sesuka hati.
Dapatkan semula Fail Berharga Anda
Word terdedah kepada keruntuhan yang menyebabkan fail Word kita berada dalam bahaya. Sesekali, beberapa data yang tidak ternilai kami hilang. Tetapi apa yang hilang tidak hilang sepenuhnya. Anda boleh meratapi kehilangan fail kritikal anda atau memilih mahir alat pemulihan Kata yang rosak untuk mengambilnya.
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Pembaikan masalah fail xls Excel dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com