2 სწრაფი გზა თქვენს Word დოკუმენტში ვადამდე დარჩენილი დღეების ან დროის ჩასართავად

სიტყვის გადაწყვეტილებები სექტემბერი 28, 2025

დღევანდელ სტატიაში წარმოგიდგენთ 2 სწრაფ გზას, რათა ჩაწეროთ თქვენს Word დოკუმენტში ვადამდე დარჩენილი დღეები ან დრო.

დროდადრო, როდესაც თქვენ მუშაობთ მნიშვნელოვან პროექტზე, აღმოაჩენთ, რომ უნდა გაითვალისწინოთ ვადამდე დარჩენილი ზუსტი დღეები ან დრო, რათა შეცვალოთ თქვენი სამუშაო ტემპი. მაშინ კარგი იდეა იქნება თქვენს Word დოკუმენტში ვადამდე დარჩენილი დღეების ან დროის ჩასმა, რათა მათ შეგახსენოთ დარჩენილი დრო.

შემდეგ ტექსტში გვინდა წარმოგიდგინოთ 2 მეთოდი, თუ როგორ გამოვიყენოთ მაკროები მნიშვნელობის გამოსათვლელად და მისაღებად.

გამოთვალეთ ვადამდე დარჩენილი დღეები

პირველ რიგში, მოათავსეთ კურსორი იმ ადგილას, სადაც გსურთ რიცხვის ჩასმა.
შემდეგ დააჭირეთ "დეველოპერი" ჩანართს.
შემდეგ დააჭირეთ "Visual Basic" ჯგუფში "კოდი", რომ გახსნათ VBA რედაქტორი. გარდა ამისა, შეგიძლიათ დააჭიროთ „Alt+ F11“-ს ნაცვლად, თუ „დეველოპერი“ ჩანართი მიუწვდომელია თქვენს Word-ში.
ახლა დააჭირეთ "ნორმალური" და შემდეგ "ჩასმა".
შემდეგი, აირჩიეთ "მოდული".
ორჯერ დააწკაპუნეთ ახალ მოდულზე, რომ გახსნათ რედაქტირების არე მარჯვენა მხარეს.
შემდეგ ჩასვით იქ შემდეგი კოდები:

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

შემდეგი, დააჭირეთ ღილაკს "გაშვება".
თქვენ დაგხვდებათ დიალოგური ფანჯარა, როგორიცაა ქვემოთ:

შეიყვანეთ ბოლო თარიღი ტექსტურ ველში და დააჭირეთ "OK".

სამომავლოდ მარტივი გამოყენებისთვის, შეგიძლიათ დააწკაპუნოთ „მაკროს“ ჩანართზე „დეველოპერი“ და აირჩიოთ სწორი მაკრო, შემდეგ დააწკაპუნოთ „გაშვებაზე“. ის ააქტიურებს დიალოგურ ფანჯარას.

გამოთვალეთ ვადამდე დარჩენილი დრო

ზოგჯერ, გარდა დარჩენილი დღეებისა, შეიძლება დაგჭირდეთ იცოდეთ რამდენი დრო დაგრჩათ კონკრეტულ დრომდე. შემდეგ, ქვემოთ მოყვანილი მაკრო არის ის, რაც დაგჭირდებათ.

გაიმეორეთ ზემოთ მოცემული პირველი 8 ნაბიჯი. მხოლოდ თქვენ უნდა შეცვალოთ კოდები შემდეგით:

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

გახსოვდეთ, რომ დააჭირეთ ღილაკს "Run".
ამჯერად, თქვენ გექნებათ დიალოგური ფანჯარა "დედლაინის დრო". შეიყვანეთ ვადის დრო და დააჭირეთ "OK".

შეინახეთ ფაილები უვნებლად

ფაილის მთლიანობის შესანარჩუნებლად და მათი კორუფციისგან შორს შესანახად, საუკეთესო და მარტივი გზაა ხშირად სარეზერვო ასლების შექმნა. თუმცა, ჩვენ გვესმის, რომ რთულია რუტინის დაცვა, რის გამოც ყოველდღიურად უამრავი გატეხილი ფაილია. ამ პრობლემური ფაილების შესაკეთებლად დაგჭირდებათ ა დაზიანებული Word სარემონტო ინსტრუმენტი.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის xlsx შეცდომის გამოსწორების ინსტრუმენტი მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად