VBA kodları vasitəsilə Word sənədinizə gələcək və ya keçmiş tarixi necə daxil etmək olar

Bu yazıda VBA kodları vasitəsilə Word Sənədinizə gələcək və ya keçmiş tarix daxil etmək üçün maraqlı bir hiylə göstərəcəyik.

Ümumiyyətlə, Word sənədimizə cari tarixi daxil etməkdə çətinlik çəkmirik. Bununla belə, indi və sonra biz gələn həftə və ya ay və ya daha sonra lazım olan sənəd üçün hazırlaşa bilərdik. O zaman yan keçə bilməyəcəyiniz problem budur. Word faylına gələcək tarixi necə daxil etmək olar? Və bəzən hətta keçmişə necə?

Buna görə də, iş tapşırıqlarınızı daha yaxşı yerinə yetirmək üçün bu faydalı metodu dərk etməli olduğunuzu düşünürük.

Gələcək tarixi daxil etmək və ya yapışdırmaq üçün VBA kodlarından istifadə edin

1. Başlamaq üçün Word sənədinizi açın.
2. Sonra, "Developer" sekmesine klikləyin.
3. Sonra VBA redaktorunu açmaq üçün "Visual Basic" düyməsini basın. Word lentinizdə "Tərtibatçı" nişanı mövcud deyilsə, bunun əvəzinə redaktoru açmaq üçün "Alt+ F11" düyməsini sıxa bilərsiniz.
4. İndi redaktorda, sol tərəfdəki "Normal" düyməsini basın.
5. Sonra alətlər panelində "Daxil et" düyməsini basın.
6. Sonra, siyahı menyusundan "Modul" seçin.
7. İndi yeni daxil edilmiş modulu iki dəfə klikləyin və redaktə sahəsi sağ tərəfdə mövcud olacaq.
8. Sadəcə aşağıdakı kodları ora yapışdırın:

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

9. Sonra, "Saxla" düyməsini basın və VBA redaktorunu bağlayın.
10. İndi yenidən Word sənəd ekranına keçin və kursorunuzu gələcək və ya keçmiş tarixin getdiyi yerə qoyun.
11. Sonra yenidən "Developer" sekmesine klikləyin.
12. Və “Makrolar” pəncərəsini açmaq üçün “Kod” qrupunda “Makrolar” üzərinə klikləyin. Yenə “Developer” nişanı göstərilmirsə, sadəcə “Alt+ F8” düyməsini sıxmağınız kifayətdir.
13. İndi “Makrolar” pəncərəsində “InsertFutureOrPastDate” makrosunu tapıb seçin.
14. Sonra "Çalış" düyməsini basın.
15. Sonra sizi mesaj qutusu qarşılayacaq. Siz gələcək tarixə qalan günləri göstərmək üçün qutunun altındakı mətn qutusuna nömrə daxil edə bilərsiniz. Məsələn, sabahın tarixini daxil etmək istəyirsinizsə, ora “1” daxil etməlisiniz. Eyni şəkildə, keçmiş tarixə ehtiyacınız varsa, dəyərdən əvvəl sadəcə olaraq mənfi işarə əlavə edin, məsələn, dünən üçün “-1”.
16. “OK” düyməsini sıxmağı unutmayın.

Qeyd: “Selection.TypeText Text:=Format(Date + strNumberOfDays, “ggdd, MMMM gg, yyyy”)” kodlarında “dddd, MMMM gg, yyyy” tarix formatını təmsil edir, burada “M” “ay” deməkdir , “gün” üçün “d”, “il” üçün “y” və “həftə” üçün “dddd”, ona görə də onu istədiyiniz kimi dəyişə bilərsiniz.

Dəyərli Fayllarınızı bərpa edin

Word, Word fayllarımızı təhlükə altına atan çökməyə həssasdır. İndi və sonra qiymətsiz məlumatlarımızın bəziləri sadəcə yox olur. Amma getdiyin şey tamamilə yox deyil. Siz kritik fayllarınızın itməsi üçün oturub ağlaya bilərsiniz və ya bir mütəxəssis seçə bilərsiniz zədələnmiş Word bərpa aləti onları geri almaq.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc Excel xls fayl probleminin təmiri və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com