Bu yazıda, Word Belgenize VBA kodları aracılığıyla gelecek veya geçmiş bir tarih eklemek için ilginç bir numara göstereceğiz.
Genel olarak, Word belgemize güncel bir tarih eklemekte zorluk çekmiyoruz. Yine de ara sıra önümüzdeki hafta veya ay veya hatta daha sonra ihtiyaç duyulan belge için hazırlanıyor olabiliriz. O zaman baypas edemeyeceğiniz sorun burada. Word dosyasına gelecekteki bir tarihi nasıl ekleyebilirsiniz? Ve bazen geçmiş bir tanesine ne dersiniz?
Bu nedenle, iş görevlerinizi daha iyi yerine getirmek için bu yararlı yöntemi kavramanız gerektiğini düşünüyoruz.
Gelecek veya Yapıştırma Tarihi Eklemek için VBA Kodlarını Kullanın
- Başlamak için Word belgenizi açın.
- Ardından, "Geliştirici" sekmesine tıklayın.
- Ardından, VBA düzenleyicisini açmak için “Visual Basic”e tıklayın. Word Şeridinizde "Geliştirici" sekmesi yoksa, bunun yerine düzenleyiciyi açmak için "Alt + F11" tuşlarına basabilirsiniz.
- Şimdi düzenleyicide sol taraftaki "Normal"i tıklayın.
- Ardından araç çubuğundaki "Ekle" düğmesini tıklayın.
- Ardından, liste menüsünden “Modül” seçeneğini seçin.
- Şimdi yeni eklenen modüle çift tıklayın ve düzenleme alanı sağ tarafta mevcut olacaktır.
- Aşağıdaki kodları oraya yapıştırmanız yeterlidir:
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
- Ardından, "Kaydet" düğmesine tıklayın ve VBA düzenleyicisini kapatın.
- Şimdi Word belgesi ekranına geri dönün ve imlecinizi gelecekteki veya geçmiş tarihin gittiği yere getirin.
- Ardından tekrar “Geliştirici” sekmesine tıklayın.
- Ve “Kod” grubundan “Makrolar”a tıklayarak “Makrolar” penceresini açın. Yine “Geliştirici” sekmesi görünmüyorsa “Alt+F8” tuşlarına basmanız yeterlidir.
- Şimdi “Makrolar” penceresinde “InsertFutureOrPastDate” makrosunu bulun ve seçin.
- Sonra "Çalıştır" ı tıklayın.
- Ardından bir mesaj kutusu tarafından karşılanacaksınız. Gelecek tarihe kalan günleri temsil etmek için kutunun altındaki metin kutusuna bir sayı girebilirsiniz. Örneğin yarının tarihini girmek istiyorsanız buraya “1” girmelisiniz. Aynı şekilde, geçmiş bir tarihe ihtiyacınız varsa, dün için “-1” gibi değerin önüne eksi işareti koymanız yeterlidir.
- “Tamam”a tıklamayı unutmayın.
Not: “Selection.TypeText Text:=Format(Date + strNumberOfDays, “dddd, MMMM dd, yyyy”)” kodlarında, “dddd, MMMM gg, yyyy” tarih formatını temsil eder, burada “M” “ay” anlamına gelir , "gün" için "d", "yıl" için "y" ve "hafta" için "dddd", böylece istediğiniz gibi değiştirmekte özgürsünüz.
Değerli Dosyalarınızı Geri Kazanın
Word, Word dosyalarımızı tehlikeye atan çökmelere karşı hassastır. Arada bir, paha biçilmez verilerimizden bazıları kayboluyor. Ama gidenler tamamen gitmiş değil. Kritik dosyalarınızın kaybından dolayı ağıt yakmak için oturabilir veya yetkin bir dosya seçebilirsiniz. hasarlı Word kurtarma aracı onları almak için.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. Excel xls dosya sorunu onarımı hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com