Ձեր Word փաստաթղթում մնացած ժամկետներն ու ժամանակը մտցնելու 2 արագ եղանակներ

Բառային լուծումներ Սեպտեմբեր 28, 2025

Այսօրվա հոդվածում մենք ձեզ կներկայացնենք ձեր Word փաստաթղթում մինչև վերջնաժամկետ մնացած օրերը կամ ժամանակը տեղադրելու 2 արագ եղանակ:

Երբեմն մեկ-մեկ, երբ աշխատում եք մի կարևոր ծրագրի վրա, կտեսնեք, որ պետք է հիշեք վերջնաժամկետից առաջ մնացած ճշգրիտ օրերը կամ ժամանակը, որպեսզի կարգավորեք ձեր աշխատանքային տեմպը: Ապա հիանալի գաղափար կլինի, որ մինչև վերջնաժամկետը մնացած օրերը կամ ժամանակը մուտքագրեք ձեր Word փաստաթուղթը, որպեսզի նրանք կարողանան ձեզ հիշեցնել մնացած վերջին ժամանակը:

Հաջորդ տեքստում մենք կցանկանայինք ձեզ ներկայացնել 2 մեթոդ, թե ինչպես օգտագործել մակրոները ՝ արժեքը հաշվարկելու և ստանալու համար:

Հաշվարկեք վերջնաժամկետից առաջ մնացած օրերը

Նախ և առաջ, տեղադրեք կուրսորը այն տեղում, որտեղ ցանկանում եք տեղադրել համարը։
Դրանից հետո կտտացրեք «Կառուցապատող» ներդիրին:
Հաջորդը կտտացրեք «Visual Basic» «Կոդ» խմբում ՝ VBA խմբագիրը բացելու համար: Բացի այդ, փոխարենը կարող եք սեղմել «Alt + F11», եթե ձեր Word- ում «Developer» ներդիրը մատչելի չէ:
Այժմ կտտացրեք «Նորմալ» և ապա «Տեղադրել»:
Հաջորդը ընտրեք «Մոդուլը»:
Կրկնակի կտտացրեք նոր մոդուլին ՝ աջ կողմում խմբագրման տարածքը բացելու համար:
Դրանից հետո այնտեղ տեղադրեք հետևյալ ծածկագրերը.

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

Հաջորդը կտտացրեք «Գործարկել» կոճակին:
Ձեզ կդիմավորեն երկխոսության տուփով, ինչպես օրինակ ՝ ստորև:

Տեքստային դաշտում մուտքագրեք վերջնաժամկետը և կտտացրեք «Լավ»:

Ապագայում հեշտ օգտագործման համար կարող եք սեղմել «Մակրոներ» «Կառուցապատող» ներդիրի տակ և ընտրել ճիշտ մակրոը, ապա կտտացնել «Վազել»: Այն պետք է գործարկի երկխոսության տուփը:

Հաշվարկեք վերջնաժամկետից առաջ մնացած ժամանակը

Երբեմն, բացի մնացող օրերից, գուցե նաև անհրաժեշտ լինի իմանալ, թե որքան ժամանակ եք մնացել մինչև որոշակի ժամանակ: Այնուհետև, ներքևում հայտնվող մակրոտն այն է, ինչ ձեզ հարկավոր է:

Կրկնեք վերևի առաջին 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» կոճակին:
Այս անգամ դուք կունենաք «Վերջնաժամկետը» երկխոսության տուփը: Մուտքագրեք վերջնաժամկետը, ապա կտտացրեք «Լավ»:

Ֆայլերը անվնաս պահեք

Ֆայլերի ամբողջականությունը պահելու և դրանք կոռուպցիայից հեռու պահելու համար ամենալավ և ամենահեշտ ձևը հաճախ կրկնօրինակելն է: Այնուամենայնիվ, մենք հասկանում ենք, որ դժվար է պահպանել ռեժիմը, այդ իսկ պատճառով ամեն օր այդքան շատ կոտրված ֆայլեր կան: Այս խնդրահարույց ֆայլերը վերականգնելու համար ձեզ հարկավոր է կոռումպացված Word- ի վերականգնման գործիք.

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում xlsx սխալների վերականգնման գործիք և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com