ამ სტატიაში ჩვენ გაჩვენებთ საინტერესო ხრიკს, რათა ჩადოთ მომავალი ან წარსული თარიღი თქვენს Word დოკუმენტში VBA კოდების საშუალებით.
ზოგადად, ჩვენ არ გვიჭირს მიმდინარე თარიღის ჩასმა ჩვენს Word დოკუმენტში. თუმცა, ახლა და შემდეგ, ჩვენ შეგვიძლია მოვემზადოთ იმ დოკუმენტისთვის, რომელიც საჭიროა მომდევნო კვირას ან თვეში ან უფრო გვიან. მაშინ აქ არის პრობლემა, რომლის გვერდის ავლა არ შეგიძლიათ. როგორ შეგიძლიათ ჩასვათ მომავალი თარიღი Word ფაილში? და ხანდახან რაც შეეხება წარსულს?
ამიტომ, ვფიქრობთ, თქვენ უნდა გაითავისოთ ეს სასარგებლო მეთოდი თქვენი სამუშაო ამოცანების უკეთ შესასრულებლად.
გამოიყენეთ VBA კოდები მომავალი ან ჩასვით თარიღი
- დასაწყისისთვის, გახსენით თქვენი Word დოკუმენტი.
- შემდეგ დააჭირეთ "დეველოპერი" ჩანართს.
- შემდეგ დააჭირეთ "Visual Basic"-ს VBA რედაქტორის გასახსნელად. თუ ჩანართი „დეველოპერი“ მიუწვდომელია თქვენს Word Ribbon-ში, შეგიძლიათ დააჭიროთ „Alt+ F11“ რედაქტორის გასახსნელად.
- ახლა რედაქტორში დააჭირეთ ღილაკს "ნორმალური" მარცხენა მხარეს.
- შემდეგ დააწკაპუნეთ "ჩასმა" ინსტრუმენტთა პანელზე.
- შემდეგი, აირჩიეთ "მოდული" სიის მენიუდან.
- ახლა ორჯერ დააწკაპუნეთ ახლად ჩასმულ მოდულზე და რედაქტირების ზონა ხელმისაწვდომი იქნება მარჯვენა მხარეს.
- უბრალოდ ჩასვით იქ შემდეგი კოდები:
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
- შემდეგი, დააჭირეთ ღილაკს "შენახვა" და დახურეთ VBA რედაქტორი.
- ახლა გადადით Word დოკუმენტის ეკრანზე და მოათავსეთ კურსორი იმ ადგილას, სადაც მიდის მომავალი ან წარსული თარიღი.
- შემდეგ კვლავ დააწკაპუნეთ ჩანართზე "დეველოპერი".
- და დააწკაპუნეთ „მაკროს“ ჯგუფში „კოდი“ „მაკროების“ ფანჯრის გასახსნელად. ისევ თუ "დეველოპერი" ჩანართი არ არის ნაჩვენები, თქვენ უბრალოდ უნდა დააჭიროთ "Alt+ F8".
- ახლა "Macros" ფანჯარაში იპოვეთ და აირჩიეთ "InsertFutureOrPastDate" მაკრო.
- შემდეგ დააჭირეთ "Run".
- შემდეგ თქვენ შეგხვდებათ შეტყობინების ყუთი. თქვენ შეგიძლიათ შეიყვანოთ რიცხვი ტექსტურ ველში ველის ბოლოში, რათა წარმოადგინოს მომავალი თარიღამდე დარჩენილი დღეები. მაგალითად, თუ გსურთ ხვალინდელი თარიღის ჩასმა, იქ უნდა შეიყვანოთ „1“. ანალოგიურად, თუ თქვენ გჭირდებათ წარსული თარიღი, უბრალოდ დაამატეთ მინუს ნიშანი მნიშვნელობის წინ, მაგალითად, გუშინდელის „-1“.
- გახსოვდეთ, რომ დააწკაპუნეთ "OK".
შენიშვნა: კოდებში "Selection.TypeText Text:=Format(Date + strNumberOfDays, "dddd, MMMM dd, yyyy")", "dddd, MMMM dd, yyyy" წარმოადგენს თარიღის ფორმატს, სადაც "M" ნიშნავს "თვეს" , „d“ „დღისთვის“, „y“ „წელი“ და „dddd“ „კვირისთვის“, ასე რომ თქვენ თავისუფლად შეგიძლიათ შეცვალოთ ის, როგორც გსურთ.
დაიბრუნეთ თქვენი ღირებული ფაილები
Word ექვემდებარება კოლაფსებს, რაც საფრთხეს უქმნის ჩვენს Word ფაილებს. ახლა და შემდეგ, ზოგიერთი ჩვენი ფასდაუდებელი მონაცემი უბრალოდ გაქრა. მაგრამ ის, რაც წავიდა, მთლად არ გაქრა. შეგიძლიათ იჯდეთ და გლოვობდეთ თქვენი კრიტიკული ფაილების დაკარგვის გამო, ან შეგიძლიათ აირჩიოთ გამოცდილი დაზიანებული Word აღდგენის ინსტრუმენტი მათი დაბრუნება.
ავტორი შესავალი:
ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის Excel xls ფაილის პრობლემის შეკეთება მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად