ဤဆောင်းပါးတွင်၊ Word macros မှတဆင့် သတ်မှတ်ထားသော ရက်စွဲများ သို့မဟုတ် အချိန် 2 ခုကြား ခြားနားချက်ကို ရရှိရန် မြန်ဆန်ပြီး ထိရောက်သော နည်းလမ်း ၂ ခုကို သင့်အား တင်ပြလိုပါသည်။
တိကျသောရက်စွဲများ သို့မဟုတ် အချိန် 2 ခုကြားတွင်ကျန်ခဲ့သောရက်များ သို့မဟုတ် အချိန်များကိုတွက်ချက်ရန်မှာအခက်အခဲမရှိပါ။ သင်ကိုယ်တိုင် သင်္ချာသင်နိုင်သည် သို့မဟုတ် ရက်စွဲ သို့မဟုတ် အချိန်ကြာချိန်ဂဏန်းတွက်စက်ကို ရယူနိုင်သည်။ ဤတွင် ကျွန်ုပ်တို့သည် သင့်အား Word တွင် ရက်စွဲ သို့မဟုတ် အချိန်ကွာခြားမှုကို ရနိုင်စေမည့် မက်ခရိုနည်းလမ်း 2 ခုကို သင့်အား ပြသလိုပါသည်။ အောက်ပါအသေးစိတ်အဆင့်များမှာ-
ရက်စွဲကွာခြားချက်ကို ရယူပါ။
- အရင်ဆုံး Word ကိုဖွင့်ပါ။
- ထို့နောက် ၎င်းကို စတင်အသုံးပြုနိုင်ပြီဆိုလျှင် “Developer” tab ကိုနှိပ်ပါ။
- ထို့နောက် VBA တည်းဖြတ်မှုကိုဖွင့်ရန် "Visual Basic" ကိုနှိပ်ပါ။ ကိုးကားနိုင်ပါတယ်။ နောက်ခံတေးဂီတကို သင့်စကားလုံးစာရွက်စာတမ်းတွင် ထည့်သွင်းနည်း Ribbon တွင် "Developer" ကိုထည့်ရန်။ ဒါမှမဟုတ် မလုပ်ချင်ရင် အဲဒီအစား “Alt+ F11” ကို နှိပ်နိုင်ပါတယ်။
- ယခု "Normal" ကိုနှိပ်ပြီး "Insert" ကိုနှိပ်ပါ။
- စာရင်းမီနူးတွင်၊ "Module" ကိုရွေးချယ်ပါ။
- ထို့နောက် တည်းဖြတ်ဧရိယာသို့ ဝင်ရောက်ရန် module အသစ်ကို နှစ်ချက်နှိပ်ပါ။
- အောက်ပါကုဒ်များကို ကူးထည့်ပါ
Sub CalculateDateDifference()
Dim dtStartDate As Date
Dim dtEndDate As Date
Dim lDaysLeft As Long
' Input the start date and end date, calculate the date difference.
dtStartDate = InputBox("Enter the start date","Start Date","For example:2017/1/1")
dtEndDate = InputBox("Enter the end date","End Date","For example:2017/2/1")
lDaysLeft = DateDiff("d", dtStartDate, dtEndDate)
' Output the calculate the date difference between the two dates.
MsgBox ("There are " & lDaysLeft & " days left from " & dtStartDate & " to " & dtEndDate & vbCrLf)
End Sub
- ကုဒ်များကို run ရန် "Run" ကိုနှိပ်ပါ။
- ယခု “စတင်ရက်စွဲ” dialog box ကို သင်တွေ့ရပါလိမ့်မည်။ text box ထဲတွင် စတင်ရက်စွဲကို ရိုက်ထည့်ပြီး “OK” ကိုနှိပ်ပါ။
- နောက်တစ်ခုကတော့ "ပြီးဆုံးရက်စွဲ" dialog box ပါ။ အလားတူ၊ အဆုံးရက်စွဲကို ထည့်သွင်းပြီး “OK” ကိုနှိပ်ပါ။
- ထို့နောက် ရက်စွဲ ၂ ခုကြား ကွာခြားချက်ကို ညွှန်ပြသော မက်ဆေ့ဘောက်စ်တစ်ခု ပေါ်လာလိမ့်မည်။
ရလဒ်ကို သင့်စာရွက်စာတမ်းတွင် ထည့်သွင်းရန် လိုအပ်ပါက၊ သင်သည် ကုဒ်လိုင်းကို ပြောင်းလဲခြင်းဖြင့် မက်ခရိုကို အနည်းငယ်တည်းဖြတ်နိုင်သည်။MsgBox (““dtStartDate” မှ “dtEndDate” အထိ ကျန်ရှိသော ရက်များ ” & lDaysLeft & ”)"ရန်"Selection.Text = "" & dtStartDate & "" မှ "" & dtEndDate & vbCrLf အထိ ရက်ကျန်ရှိသည်" & lDaysLeft & ""။
အချိန်ကွာခြားမှုကို ရယူပါ။
- ပထမဦးစွာ အထက်ပါ အဆင့် 6 ကို ပြန်လုပ်ပါ။
- ထို့နောက် ၎င်းအစား ဤကုဒ်များကို ကူးထည့်ပါ-
Sub CalculateTimeDifference()
Dim dtStartTime As Date
Dim dtEndTime As Date
Dim lTimeLeft As Long
Dim lHour As Long
Dim lMinute As Long
Dim lSecond As Long
' Get the start time and the end time.
dtStartTime = InputBox("Enter the start time","Start Time", "For example:18:00:00")
dtEndTime = InputBox("Enter the end time","End Time", "For example:18:00:00")
' Calculate the time difference.
lTimeLeft = DateDiff("s", dtStartTime, dtEndTime)
lHour = lTimeLeft \ 3600
lTimeLeft = lTimeLeft - lHour * 3600
lMinute = lTimeLeft \ 60
lSecond = lTimeLeft - lMinute * 60
MsgBox ("There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from " & dtStartTime & " to " & dtEndTime & vbCrLf)
End Sub
- "Run" ကိုနှိပ်ဖို့မမေ့ပါနဲ့။
- “စတင်ချိန်” အကွက်တွင်၊ “၁၈:၀၀:၀၀” ကဲ့သို့သော စတင်ချိန်ကို ရိုက်ထည့်ပါ။
- ထို့နောက် “ပြီးဆုံးချိန်” dialog box တွင် ပြီးဆုံးချိန်ကို ရိုက်ထည့်ပြီး “OK” ကိုနှိပ်ပါ။ ထွက်ပေါ်လာမည့်ရလဒ်ကို message box တွင်စစ်ဆေးနိုင်ပါသည်။
ဖိုင်ဆုံးရှုံးမှုအန္တရာယ်ကို လျော့ပါးစေခြင်း။
ယခုနှင့်ထိုအခါ၊ Word သည် ကျွန်ုပ်တို့၏ဖိုင်များကို ကြီးစွာသောအန္တရာယ်တွင်ထားခဲ့သည် ။ ထို့ကြောင့်၊ ဖိုင်များပျက်စီးနိုင်ခြေကို လျှော့ချရန်၊ ပုံမှန်အရန်ကူးယူရန် အကြံပြုအပ်ပါသည်။ ထို့အတူ ရယူပါ။ Word ဖိုင်ပြန်လည်ရယူခြင်းထုတ်ကုန် ပျက်စီးနေသောဖိုင်များကို ပြုပြင်ရန် သင့်ကိုယ်သင် တွေ့ရှိသောအခါတွင် လိုအပ်ပါသည်။
စာရေးသူနိဒါန်း:
Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ Excel xls ဒေတာပြုပြင်ရေးကိရိယာ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com