သင်၏နှုတ်ကပတ်တော်တွင် "နေ့၏ကိုးကားချက်" အင်္ဂါရပ်ကိုထည့်ခြင်းဖြင့်နေ့စဉ်ကိုးကားအသစ်ကိုလေ့လာရန်မည်သို့လေ့လာပါ။

ယနေ့ခေတ်တွင်ost၊ နေ့စဉ်ကိုးကားချက်အသစ်များကိုလေ့လာရန် သင့် Word တွင် "နေ့စဉ်ကိုးကားချက်" အင်္ဂါရပ်ကို ထည့်နည်းကို ရှင်းပြလိုပါသည်။

“နေ့၏ကိုးကားချက်” အင်္ဂါရပ်သည် သင်အသုံးပြုချိန်တိုင်း မတူညီသောကိုးကားချက်တစ်ခုကို ပြသသည်။tart စကားလုံး။ အလုပ်များစွာထဲတွင် သင့်ကိုယ်သင် မမြှုပ်နှံမီ ဉာဏ်ပညာကိုးကားချက်ကို စက္ကန့်ပိုင်းလောက် အချိန်ယူဖတ်ပါ။ ဒါက မင်းကို အများကြီး ကောင်းအောင်လုပ်လိမ့်မယ်။

ထို့ကြောင့်၊ သင်၏ Word တွင် ဤကဲ့သို့သောအင်္ဂါရပ်ကို ယခုထည့်သွင်းရန် ကျွန်ုပ်တို့၏ ဦးဆောင်မှုများကို လိုက်နာပါ။

Excel ဖိုင်တစ်ခုတွင် Quotes များကိုထည့်ပါ။

1. ပထမဦးစွာ Excel ကိုဖွင့်ပြီး စာရွက်အသစ်တစ်ခုကို "Quotes" အဖြစ် အမည်ပြောင်းပါ။
2. ဆဲလ် A1 တွင် “နံပါတ်”၊ ဆဲလ် B1 ရှိ “ကိုးကားချက်များ” နှင့် ဆဲလ် C1 ရှိ “အချိန်များ” တို့ကို ထည့်သွင်းပါ။
3. ထို့နောက် ကော်လံ A ကို အမှတ်စဉ်နံပါတ်များဖြင့် ဖြည့်ပါ။
4. ကော်လံ B တွင် ဆဲလ်တစ်ခုစီတွင် ကိုးကားချက်တစ်ခု ထည့်ပါ။
5. ကော်လံ C တွင် နံပါတ် “0” ကို ရိုက်ထည့်ပါ။
6. နောက်ဆုံးအနေနဲ့ Excel ဖိုင်ကို “နေ့စဉ်ကိုးကား” လို့ နာမည်ပေးလိုက်ပါ။ ပြီးလျှင် folder တစ်ခုတွင် သိမ်းဆည်းပါ။ ကျွန်ုပ်တို့၏ကိစ္စတွင်၊ ဖိုင်ကိုသိမ်းဆည်းပြီးနောက်၊ ၎င်း၏လိပ်စာအပြည့်အစုံမှာ အောက်ပါအတိုင်းဖြစ်လိမ့်မည်။

C:\Users\Public\Documents\Sample\Quote of the Day.xlsx

ထို့ကြောင့် သင့်အား သတိရသင့်သည်။

သင်နှိပ်နိုင်သည် ဒီမှာ နမူနာဖိုင်ကို ဒေါင်းလုဒ်လုပ်ရန်။

VBA Project တွင် Module တစ်ခုထည့်ပါ။

1. စတင်ရန်၊ “Alt+ F11” ကိုနှိပ်ခြင်းဖြင့် Word တွင် VBA တည်းဖြတ်သူကို စတင်ပါ။
2. ဘယ်ဘက်ရှိ "Project" panel တွင် "Normal" ကိုနှိပ်ပါ။
3. ထို့နောက် မီနူးဘားရှိ “Insert” tab ကိုနှိပ်ပါ။
4. ပြီးလျှင် drop-down menu တွင် "Module" ကိုရွေးချယ်ပါ။
5. မော်ဂျူးအသစ်ကိုဖွင့်ရန် နောက်နှစ်ချက်နှိပ်ပါ။
6. ယခု အောက်ပါကုဒ်များကို ထိုနေရာတွင် ကူးထည့်ပါ။

Sub AutoExec()
  Dim objExcel As Excel.Application
  Dim objWorkbook As Excel.Workbook
  Dim objWorksheet As Excel.Worksheet
  Dim nRowIndex As Integer
  Dim nMinValue As Integer
  Dim nMinRowIndex As Integer
 
  Set objExcel = CreateObject("Excel.Application")
  Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Public\Documents\Sample\Quote of the Day.xlsx")
  Set objWorksheet = objWorkbook.Sheets("Quotes")
 
  ' Initialization
  nMinValue = 0
  nMinRowIndex = -1
 
  For nRowIndex = 2 To objWorksheet.UsedRange.Rows.Count
    If (nMinRowIndex = -1) Then
      nMinValue = objWorksheet.Cells(nRowIndex, 3).Value
      nMinRowIndex = nRowIndex
    Else
      If (objWorksheet.Cells(nRowIndex, 3).Value < nMinValue) Then
        nMinValue = objWorksheet.Cells(nRowIndex, 3).Value
        nMinRowIndex = nRowIndex
      End If
    End If
  Next nRowIndex
 
  frmQuoteOfTheDay.txtQuoteOfTheDay.text = objWorksheet.Cells(nMinRowIndex, 2).Value
  frmQuoteOfTheDay.Show Modal
 
  objWorksheet.Cells(nMinRowIndex, 3).Value = objWorksheet.Cells(nMinRowIndex, 3).Value + 1
 
  objWorkbook.Close SaveChanges:=True
  ' Close Excel using Quit method on the Application object.
  objExcel.Application.Quit
  '  Release the object variable.
  Set objExcel = Nothing
End Sub

7. "Save" ခလုတ်ကိုနှိပ်ပါ။

မှတ်စု:

ဤကုဒ်လိုင်းတွင်-

Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Public\Documents\Sample\Quote of the Day.xlsx")

လမ်းကြောင်းလိပ်စာကို အမှန်တကယ်တစ်ခုဖြင့် အစားထိုးရန် မမေ့ပါနှင့်။

အသုံးပြုသူပုံစံကို ထည့်သွင်းပါ။

ထို့နောက် ကိုးကားချက်ကိုပြသရန် အသုံးပြုသူပုံစံတစ်ခုကို ဖန်တီးပါမည်။

1. သို့တိုင်၊ VBA တည်းဖြတ်မှုတွင်၊ "Insert" tab ကို ထပ်မံနှိပ်ပါ။
2. ဤတစ်ကြိမ်သာ၊ သင်သည် "UserForm" ကိုရွေးချယ်ပါ။
3. ပြီးရင် user form တစ်ခုရပါလိမ့်မယ်။ ၎င်းကို အရွယ်အစားပြောင်းရန် ဖောင်လက်ကိုင်များကို နှိပ်ပါ။
4. ထို့နောက် "Properties" ဝင်းဒိုးကိုဖွင့်ရန် "F4" ကိုနှိပ်ပါ။ မျက်နှာပြင်၏ဘယ်ဘက်အောက်ထောင့်တွင်ပေါ်လာလိမ့်မည်။
5. ဖောင်ကို “frmQuoteOfTheDay” ဟု အမည်ပေးပြီး ၎င်း၏စာတန်းကို “နေ့၏ ကိုးကားချက်” အဖြစ် သတ်မှတ်ပါ။ ထို့အပြင် ဖောင့်နှင့် နောက်ခံအရောင်ကို မှန်ကန်စွာ သတ်မှတ်ပါ။ ရွေးချယ်ပါ။ “ မှားသော” အတွက် "ShowModal" ။
6. ထို့နောက် ဘောက်စ်ကိုထုတ်ရန် မီနူးဘားရှိ “Toolbox” အမိန့်ကို နှိပ်ပါ။
7. စာသားအကွက်၊ အညွှန်းတစ်ခုနှင့် အမိန့်ပေးခလုတ်တစ်ခု ဖန်တီးရန် ထိန်းချုပ်မှုများကို အသုံးပြုပါ။ ၎င်းတို့ကို အောက်ပါအတိုင်း စီစဉ်ပါ။
8. ထို့နောက် ဤထိန်းချုပ်မှုများအတွက် ဂုဏ်သတ္တိများ သတ်မှတ်သင့်သည်။

• ပထမဦးစွာ label ကိုနှိပ်ပါ။ စာတန်းစာသားကို "နေ့၏ကိုးကားချက်" အဖြစ် သတ်မှတ်ပါ။ သင့်လျော်သော ဖောင့်အရွယ်အစားကို အသုံးပြုပြီး နောက်ခံကို ပွင့်လင်းမြင်သာမှုအဖြစ် သတ်မှတ်ပါ။
• ဒုတိယအနေနဲ့ text box ကိုနှိပ်ပါ။ ၎င်းကို “txtQuoteOfTheDay” ဟု အမည်ပေးသည်။
• တတိယ၊ command ခလုတ်ကိုနှိပ်ပါ။ ၎င်းကို “btnClose” ဟု အမည်ပေးကာ စာတန်းကို “ပိတ်” ဟု သတ်မှတ်ပါ။ ထို့နောက် coding area ကိုဖွင့်ရန် "ပိတ်" ခလုတ်ကိုနှစ်ချက်နှိပ်ပါ။ အောက်ပါကုဒ်များကို ထည့်ပါ

Private Sub btnClose_Click()
  Unload Me
End Sub

9. နောက်ဆုံးတွင်၊ ကုဒ်များကိုသိမ်းဆည်းပါ။

သင်အချိန်တိုင်းtart Word တွင် အောက်ပါကဲ့သို့သော အသုံးပြုသူပုံစံကို သင်တွေ့ရပါမည်။

Word ပြဿနာများကို ဖြေရှင်းပါ။

ပျက်စီးသွားသောစာရွက်စာတမ်းကိုဖြစ်ပေါ်စေနိုင်သည့် Word တွင်ဤသို့မဟုတ်ထိုပြဿနာကိုမလွှဲမရှောင်သာကြုံတွေ့ရခြင်းဖြစ်သည်။ နပိုလီယန်ost အရေးကြီးတာက အကျပ်အတည်းတစ်ခုစီတိုင်းကို မြန်မြန်ဆန်ဆန်နဲ့ ကိုင်တွယ်ဖို့ပါပဲ။ သို့သော် ၎င်းသည် ကျွမ်းကျင်သောကိရိယာတစ်ခု လိုအပ်မည်ဖြစ်သည်။ docx ကို ပြန်လည်ရယူပါ။.

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

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