VBA မှတစ်ဆင့် ဖန်တီးထားသော Word တွင် အသုံးဝင်သော သတိပေးချက် 3 မျိုး

စကားလုံးဖြေရှင်းချက်များ စက်တင်ဘာလ 28, 2025
ယခုမျှဝေပါ-

ဤဆောင်းပါးတွင်၊ သင် VBA မှတစ်ဆင့် သင်ဖန်တီးနိုင်သော Word တွင် မတူညီသောသတိပေးချက် 3 မျိုးနှင့် မိတ်ဆက်ပေးလိုပါသည်။

ကျွန်ုပ်တို့ထဲမှ အချို့သည် နေ့စဉ်နေ့တိုင်း Word တွင် ဖိုင်အများအပြားနှင့် ဆက်ဆံနေရသောကြောင့် ကျွန်ုပ်တို့ ဘာလုပ်ရမှန်းမသိ ခေါင်းမူးလာကာ အချို့သော အလုပ်များကို တခါတရံ အပြီးမသတ်နိုင်တော့ပေ။ ထိုအခြေအနေမျိုးတွင် သတိပေးချက်သည် အထောက်အကူဖြစ်လိမ့်မည်။ ထို့ကြောင့်၊ ဘာလုပ်ရမည်ကို ခြေရာခံရန် သင်အသုံးပြုနိုင်သည့် အသုံးဝင်သော သတိပေးချက် 3 မျိုးကို သင့်အား တင်ပြထားပါသည်။

ပထမအမျိုးအစား- နေ့စဉ်သတိပေးချက်

ဥပမာအားဖြင့်၊ ယနေ့ကုန်ဆုံးချိန်တွင် မနက်ဖြန်အတွက် အစီအစဉ်ဆွဲလိုပါက နေ့စဉ်သတိပေးချက်တစ်ခု လိုအပ်မည်ဖြစ်သည်။ Word VBA editor တွင် “AutoExec” အမည်ရှိ macro တစ်ခုထည့်နိုင်သည်။ ထို့နောက် Word application ကိုဖွင့်တိုင်း macro သည် အလိုအလျောက်စတင်လည်ပတ်ပြီး ထိုနေ့တွင် ပြီးမြောက်ရမည့် အလုပ်အားလုံးကို ညွှန်ပြသည့် message box တစ်ခု ပေါ်လာလိမ့်မည်။

  1. ပထမဦးစွာ Word ကိုဖွင့်ပြီး VBA editor ကိုဖွင့်ရန် "Alt+ F11" ကိုနှိပ်ပါ။
  2. ထို့နောက် "Normal" ကိုနှိပ်ပါ။
  3. ထို့နောက် "Insert" ကိုနှိပ်ပါ။
  4. ပြီးလျှင် "Normal" ပရောဂျက်အောက်တွင် အသစ်တစ်ခုထည့်သွင်းရန် မီနူးရှိ "Module" ကိုရွေးချယ်ပါ။"Normal"->Insert" ကိုနှိပ်ပါ-> "Module" ကိုရွေးချယ်ပါ။
  5. ယခု တည်းဖြတ်ဧရိယာကို ဝင်ရောက်ပြီး အောက်ပါကုဒ်များကို ထိုနေရာတွင် ကူးထည့်ရန် module ပေါ်တွင် နှစ်ချက်နှိပ်ပါ။
Sub AutoExec()
  Dim dtDate As Date
 
  dtDate = #2/20/2017#
  If Date = dtDate Then
    MsgBox "Tasks to be done today:" & vbCr & "1: Send fileXX to John Smith " & vbCr & "2: Finish file YY"
  End If
End Sub
  1. ထို့နောက် အပြောင်းအလဲကို သိမ်းဆည်းရန် "Save Normal" ကိုနှိပ်ပါ။Paste Codes-> "Save Normal" ကိုနှိပ်ပါ။

ရလဒ်အနေဖြင့်၊ သင် Word ကိုဖွင့်တိုင်း၊ သင်ပြီးမြောက်ရန် လိုအပ်သည့် အလုပ်များအားလုံးကို စာရင်းပြုစုထားသော မက်ဆေ့ချ်ဘောက်စ်တစ်ခု ပေါ်လာလိမ့်မည်။ “OK” ကိုနှိပ်ခြင်းဖြင့် သင်သည် သီးခြားစာရွက်စာတမ်းတစ်ခုပေါ်တွင် ဖွင့်ပြီး ဆက်လက်တည်းဖြတ်နိုင်သည်။နေ့စဉ်သတိပေးချက်

မှတ်စုများ:

  1. ကုဒ်လိုင်းမှာ "dt ရက်စွဲ = #2/20/2017#"ရက်စွဲသည် သင်လုပ်ဆောင်မှုအားလုံးကို လုပ်ဆောင်ရမည့်နေ့ဖြစ်သည်။ လိုက်လျောညီထွေ ပြောင်းလဲဖို့ မမေ့ပါနဲ့။
  2. ကုဒ်လိုင်းမှာ "MsgBox "ယနေ့လုပ်ဆောင်ရမည့်အရာများ-" & vbCr & "1- John Smith သို့ fileXX ပေးပို့ပါ" & vbCr & "2- ဖိုင်ပြီးဆုံးရန် YY"”၊ ကိုးကားမှတ်စုများကြားရှိ အကြောင်းအရာအားလုံးသည် သင်လိုက်နာရန် လိုအပ်သည့် လုပ်ငန်းစာရင်းဖြစ်သည်။ ၎င်းကို သင်၏ကိုယ်ပိုင် ခိုင်မာသောမစ်ရှင်များဖြင့် အစားထိုးပါ။ စာရင်းအကြောင်းအရာတစ်ခုစီကို ကိုးကားမှတ်များအတွင်း ထည့်သွင်းသင့်ပြီး ၎င်းကို ယခင်တစ်ခုနှင့် ချိတ်ဆက်သင့်သည်။&vbCr&” (ကိုးကား အမှတ်အသား မပါ)။

ဒုတိယအမျိုးအစား- ထပ်တလဲလဲလုပ်ဆောင်စရာများအတွက် သတိပေးချက်များ

အပတ်စဉ်သတိပေးချက်

ဤသည်မှာ အပတ်စဉ်သတိပေးချက်ဖြစ်ပြီး အပတ်စဉ် တစ်နေ့တည်းတွင် သင်လုပ်ဆောင်ရမည့်အရာများကို အကြောင်းကြားပါသည်။

  1. ပထမဦးစွာ အထက်ဖော်ပြပါ အဆင့် ၄ ဆင့်ကို အရင်လုပ်ပါ။
  2. ဤတစ်ကြိမ်သာ၊ သင်သည် အောက်ပါ macro ကို ကူးထည့်သည်-
Sub AutoExec()
  Dim dtWeekDay As Date

  dtWeekDay = vbMonday
 
  If dtWeekDay = Weekday(Date) Then
    MsgBox "Back up today of each week."
  End If
End Sub
  1. အလားတူ၊ နောက်ဆုံးတွင် “Save Normal” ခလုတ်ကို နှိပ်ပါ။Paste Codes-> "Save Normal" ကိုနှိပ်ပါ။

ဒီလိုပဲ မက်ဆေ့ဘောက်စ်တစ်ခု ပေါ်လာပါလိမ့်မယ်။ Word တွင်ဆက်လက်ရေးသားရန် "OK" ကိုနှိပ်ပါ။အပတ်စဉ်သတိပေးချက်

မှတ်စုများ:

ကုဒ်လိုင်းမှာ "dtWeekDay = vbMonday"ပြောင်းလဲနိုင်ပါတယ်"vb တနင်္လာနေ့"ရန်"vbTuesday","vb ဗုဒ္ဓဟူးနေ့","vb ကြာသပတေးနေ့","vbFriday","vb စနေနေ့"သို့မဟုတ်"vb တနင်္ဂနွေ"နှင့်အညီ။

လစဉ်သတိပေးချက်

အလားတူပင်၊ လစဉ်သတိပေးချက်သည် သင့်အား လစဉ်လုပ်ဆောင်စရာအကြောင်း သတိပေးချက်ရှိသည်။

  1. “ပထမအမျိုးအစား- နေ့စဉ်သတိပေးချက်” တွင် ပထမအဆင့် ၄ ဆင့်ကို ဆက်လက်လုပ်ဆောင်ပါ။
  2. ထို့နောက် ကုဒ်များကို ထိုနေရာတွင် ကူးထည့်ပါ။
Sub AutoExec()
  Dim dtDay As Date

  dtDay = 20
 
  If dtDay = Day(Date) Then
    MsgBox "Back up today of each month."
  End If
End Sub
  1. နောက်ဆုံးအနေနဲ့ အနည်းဆုံးတော့ “Save Normal” ကိုနှိပ်ပါ။လစဉ်ကုဒ်များကို ကူးထည့်ပါ-> "Save Normal" ကိုနှိပ်ပါ။

အလားတူ၊ သင်သည် Word ကိုဖွင့်တိုင်း မက်ဆေ့ဘောက်စ်တစ်ခု ပေါ်လာလိမ့်မည်။လစဉ်သတိပေးချက်

မှတ်စု:

ကုဒ်လိုင်းမှာ "dtDay = 20"၊ နံပါတ်သည် လစဉ်လုပ်ငန်းတာဝန်ကို ဖြည့်ဆည်းရန် လိုအပ်သည့်ရက်စွဲဖြစ်သည်။ မက်ခရိုကို မလည်ပတ်မီ ၎င်းကို ပြောင်းလဲရန် မမေ့ပါနှင့်။

တတိယအမျိုးအစား- ရက်စွဲ သို့မဟုတ် အချိန်ကွာခြားမှုအတွက် သတိပေးချက်များ

အရာအားလုံးနီးပါးအတွက် နောက်ဆုံးရက်ရှိတာကြောင့် ကျန်ရှိတဲ့ရက်တွေ ဒါမှမဟုတ် အချိန်အတိအကျကို မှတ်သားထားဖို့ လိုအပ်ပါတယ်။ ဒါကြောင့် လာမယ့် မက်ခရို ၂ ခုက လက်ရှိရက်စွဲ ဒါမှမဟုတ် အချိန်နဲ့ နောက်ဆုံးရက်စွဲ ဒါမှမဟုတ် အချိန်ကြားက ကွာခြားချက်ကို အလိုအလျောက် တွက်ချက်ပေးနိုင်ပါတယ်။ Word ကိုဖွင့်တဲ့အခါ ရလဒ်ကို မက်ဆေ့ချ်ဘောက်စ်မှာ ပြသပြီး မြင်နိုင်ပါတယ်။

Macro ကို run ရန်နှင့် save လုပ်ရန် အဆင့်များသည် အထက်ဖော်ပြပါ အတိုင်းဖြစ်သည်။

ဤသည်မှာ နေ့စဥ်ကွာခြားမှုကို ရယူရန် မက်ခရိုဖြစ်သည်

Sub Autoexec()
  Dim dtDeadlineDay As Date
  Dim nDaysLeft As Long

  'Specify the deadline date and calculate the days left.
  dtDeadlineDay = #2/20/2017#
  nDaysLeft = DateDiff("d", Now, dtDeadlineDay)
 
  ' Show the days left before deadline.
  If nDaysLeft > 1 Then
    MsgBox "There are " & nDaysLeft & " days left before " & dtDeadlineDay & "."
  ElseIf nDaysLeft = 1 Then
    MsgBox "There is 1 day left before " & dtDeadlineDay & "."
  ElseIf nDaysLeft = 0 Then
    MsgBox "Today is the deadline!"
  End If
End Sub

ရလဒ်မှာ-နေ့ချင်းကွာခြားမှု

မှတ်စု:

ကုဒ်စာကြောင်းကို ပြင်ဆင်ရန် မမေ့ပါနှင့်"dtDeadlineDay = #2/20/2017#” ရက်စွဲကို လိုအပ်သလို ပြောင်းလဲလိုက်ပါ။

ထို့နောက် အချိန်ကွာခြားချက်ကို ရယူရန် နောက်တစ်ခုသည် မက်ခရိုဖြစ်သည်။

Sub Autoexec()
  Dim dtCurrentTime As Date
  Dim dtDeadlineTime As Date
  Dim nTimeLeft As Long, nHour As Long, nMinute As Long, nSecond As Long
 
 
  ' Specify the current time and the deadline time.
  dtCurrentTime = TimeValue(Now)
  dtDeadlineTime = TimeValue("16:40:00 PM")
 
  ' Calculate and show the time difference.
  nTimeLeft = DateDiff("s", dtCurrentTime, dtDeadlineTime)
  nHour = nTimeLeft \ 3600
  nTimeLeft = nTimeLeft - nHour * 3600
  nMinute = nTimeLeft \ 60
  nSecond = nTimeLeft - nMinute * 60
 
  MsgBox "There are " & nHour & " hours " & nMinute & " minutes " & nSecond & " seconds left before " & dtDeadlineTime & "."
End Sub

ပြီးတော့ ရလဒ်ကတော့အချိန်ကွာခြားချက်

မှတ်စု:

အချိန်ကို ""dtDeadlineTime = TimeValue(“16:40:00 PM”)" အဓိပ္ပါယ်ရှိရှိနဲ့။

ထိုက်တန်သော မိတ္တူ

ဖိုင်ပျက်စီးသွားပြီးနောက် မည်သည့်အရာက အရေးကြီးကြောင်းကို ကျွန်ုပ်တို့ ဘယ်သောအခါမှ မခန့်မှန်းနိုင်ပါ။ ထို့အပြင် ကျွန်ုပ်တို့သည် အနည်းဆုံး နေ့စဉ် သို့မဟုတ် အပတ်စဉ် သို့မဟုတ် လစဉ် အရန်အရန် အစီအစဉ်တစ်ခု ထုတ်ရန် အကြံပြုထားသည်။ Backup သည် ကျွန်ုပ်တို့၏ဒေတာပျက်စီးခြင်းမှ ကာကွယ်ရန် ကျွန်ုပ်တို့ပြုလုပ်သင့်သည့် တိကျသောပြင်ဆင်မှုဖြစ်သည်။ ဒီလိုမှမဟုတ်ရင်၊ ကျွန်တော်တို့ နှမြောနိုင်တဲ့ နောက်ဆုံး အားထုတ်မှုဟာ တစ်ခုရရှိဖို့ပါပဲ။ ပျက်စီးနေသော Word ဒေတာပြန်လည်ရယူရေးကိရိယာ.

စာရေးသူနိဒါန်း:

Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ ပျက်စီးနေသော Excel xls ပြုပြင်ရေးကိရိယာ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com

ယခုမျှဝေပါ-

မှတ်ချက်များကိုပိတ်ထားကြသည်။