Excel တွင် Pivot Table ကို ပြန်လည်စတင်ရန် VBA (ဥပမာ 5 ခု)

  • ဒါကိုမျှဝေပါ။
Hugh West

အကောင်အထည်ဖော်ခြင်း VBA macro သည် Excel တွင် မည်သည့်လုပ်ဆောင်ချက်ကိုမဆို လုပ်ဆောင်ရန် အထိရောက်ဆုံး၊ အမြန်ဆန်ဆုံးနှင့် အလုံခြုံဆုံးနည်းလမ်းဖြစ်သည်။ ဤဆောင်းပါးတွင်၊ ကျွန်ုပ်တို့သည် VBA ကို အသုံးပြု၍ Excel တွင် ဆုံချက်ဇယားကို ပြန်လည်ဆန်းသစ်နည်းကို သင်ပြပါမည်။

Workbook ကိုဒေါင်းလုဒ်လုပ်ပါ

သင် အခမဲ့ဒေါင်းလုဒ်လုပ်နိုင်ပါသည်။ ဤနေရာမှ Excel workbook ကို လေ့ကျင့်ပါ။

VBA.xlsm ဖြင့် Pivot Table ကို ပြန်လည်စတင်ရန်

5 Excel တွင် VBA ဖြင့် Pivot Table ကို ပြန်လည်စတင်ရန် နမူနာများ

အောက်ပါသည် ဆောင်းပါးတစ်ခုလုံးတွင် ကျွန်ုပ်တို့အသုံးပြုမည့် ကျွန်ုပ်တို့၏ pivot table ၏နမူနာဖြစ်ပြီး Excel တွင် VBA<ဖြင့် Refreshing pivot tables ၏ မတူညီသောနမူနာ 5 ခုကို သင့်အားပြသပါမည်။ 2> ကုဒ်။

၁။ Excel တွင် Pivot Table တစ်ခုအား ပြန်လည်စတင်ရန် VBA

အကယ်၍ သင်သည် မဏ္ဍိုင်ဇယားတစ်ခုသာ ပြန်လည်စတင်လိုပါက သင်၏ Excel worksheet ရှိ၊ ထို့နောက်

  • နှိပ်ပါ <1 သင့်ကီးဘုတ်ပေါ်ရှိ>Alt + F11 သို့မဟုတ် တက်ဘ် ဆော့ဖ်ဝဲရေးသားသူ -> Visual Basic Editor ကိုဖွင့်ရန် Visual Basic

  • ပေါ့ပ်အပ်ကုဒ်ဝင်းဒိုးတွင် မီနူးဘားမှ၊ Insert -> ကိုနှိပ်ပါ။ မော်ဂျူး

  • အောက်ပါကုဒ်ကို ကူးယူပြီး ၎င်းကို ကုဒ်ဝင်းဒိုးထဲသို့ ကူးထည့်ပါ။
9190

သင့်ကုဒ် ယခု လုပ်ဆောင်ရန် အဆင်သင့်ဖြစ်ပါပြီ။

ဤတွင်၊ PivotTable1 သည် ကျွန်ုပ်တို့၏ Pivot Table အမည်ဖြစ်သည်။ သင့် Pivot Table ပါရှိသည့် အမည်ကို သင်ရေးပါ။

  • သင်၏ကီးဘုတ်ပေါ်တွင် F5 ကိုနှိပ်ပါ သို့မဟုတ် မီနူးဘားမှ Run - ကိုရွေးချယ်ပါ > Sub/UserForm ကိုဖွင့်ပါ။ သင်သည် သေးငယ်သော Play အိုင်ကွန် ပေါ်တွင် နှိပ်ရုံပင်macro ကို run ရန် sub-menu bar.

၎င်းသည် သင်၏ရှိပြီးသား Excel worksheet တွင် ဆုံချက်ဇယား ကို ပြန်လည်စတင်ပါမည်။

ပိုမိုဖတ်ရန်- Pivot Table အား ပြန်လည်စတင်ခြင်းမပြုပါ (5 ပြဿနာများနှင့် ဖြေရှင်းချက်များ)

၂။ Active Worksheet ရှိ Pivot Tables အားလုံးကို ပြန်လည်စတင်ရန် Macro

အသုံးပြုနေသော အလုပ်စာရွက်ရှိ pivot ဇယားများအားလုံးကို ပြန်လည်စတင်ရန် ၊ အောက်ပါအဆင့်များကို လိုက်နာပါ။

  • တူညီပါသည်။ ယခင်နည်းအတိုင်း၊ Visual Basic Editor ကို Developer tab မှဖွင့်ပြီး ကုဒ်ဝင်းဒိုးတွင် Insert a Module
  • ကုဒ်ဝင်းဒိုးတွင်၊ အောက်ပါကုဒ်ကို မိတ္တူကူးပြီး ၎င်းကို ကူးထည့်ပါ။
5566

သင့်ကုဒ်ကို ယခုအသုံးပြုရန် အဆင်သင့်ဖြစ်ပါပြီ။

  • Run Macro နှင့် သင်၏တက်ကြွသော အလုပ်စာရွက်ရှိ မဏ္ဍိုင်ဇယားများအားလုံးကို ပြန်လည်စတင်ပါမည်။

နောက်ထပ်ဖတ်ရန်- Pivot Tables အားလုံးကို ပြန်လည်စတင်ရန် လုပ်နည်း Excel

၃။ Workbook များစွာရှိ Pivot Tables အားလုံးကို ပြန်လည်စတင်ရန် VBA ကုဒ်

သင် အလုပ်စာအုပ်အများအပြားရှိ pivot ဇယားများအားလုံးကို ပြန်လည်စတင်လိုပါက VBA ကုဒ်ဖြင့် တစ်ချိန်တည်းတွင် ပြန်လည်စတင်လိုပါက၊ အဆင့်များမှာ-

  • Visual Basic Editor ကိုဖွင့်ပြီး Developer tab မှ Insert a Module ကုဒ်ဝင်းဒိုး။
  • ကုဒ်ဝင်းဒိုးတွင်၊ အောက်ပါကုဒ်ကို မိတ္တူကူးပြီး ၎င်းကို ကူးထည့်ပါ။
3486

သင့်ကုဒ်သည် ယခုလုပ်ဆောင်ရန် အဆင်သင့်ဖြစ်ပါပြီ။

  • ကုဒ်ကို run နှင့် သင်၏ဖွင့်ထားသော Excel workbooks အားလုံးရှိ ဆုံချက်ဇယားအားလုံးကို ပြန်လည်စတင်ပါမည်။

သို့ ကို သတိရပါ။ အားလုံးကိုသိမ်းထားပါ။ဤကုဒ်ကိုအသုံးပြုနေစဉ် workbooks ကိုဖွင့်

အလားတူစာဖတ်ခြင်း

  • Excel တွင် Pivot Table ကို တည်းဖြတ်နည်း (5 နည်းလမ်းများ )
  • Pivot Table Range ကို အပ်ဒိတ်လုပ်ပါ (သင့်လျော်သောနည်းလမ်း 5 ခု)
  • ရင်းမြစ်ဒေတာပြောင်းလဲသောအခါ Pivot Table ကို အလိုအလျောက် အပ်ဒိတ်လုပ်နည်း

၄။ Excel တွင် VBA ဖြင့် Pivot Table Cache ကို ပြန်လည်စတင်ခြင်း

သင့်အလုပ်စာအုပ်တွင် တူညီသောဒေတာကိုအသုံးပြုသည့် pivot ဇယားအများအပြားရှိနေပါက၊ သင်သည် ပြန်လည်စတင်ခြင်းထက် pivot table cache ကိုသာ ပြန်လည်စတင်နိုင်သည် အမှန်တကယ် pivot table သည် အချိန်တိုင်းဖြစ်သည်။ ကက်ရှ်ကို ပြန်လည်စတင်ခြင်းသည် ကက်ရှ်ရှိ တူညီသောဒေတာချိတ်ဆက်မှုကို အသုံးပြုကာ ဆုံချက်ဇယားအားလုံး၏ ကက်ရှ်မှတ်ဉာဏ်ကို အလိုအလျောက် ရှင်းစေသည်။

ထိုသို့လုပ်ဆောင်ရန် အဆင့်များမှာ၊

  • Visual Basic Editor ကိုဖွင့်ပါ။ Developer tab မှ နှင့် Insert a Module ကို ကုဒ်ဝင်းဒိုးတွင်
  • ကုဒ်ဝင်းဒိုးတွင်၊ အောက်ပါ ကုဒ်ကို ကူးယူပြီး၊ ၎င်းကို ကူးထည့်ပါ။
4672

သင့်ကုဒ်ကို ယခုအသုံးပြုရန် အဆင်သင့်ဖြစ်ပါပြီ။

  • ကုဒ် နှင့် အားလုံးကို လုပ်ဆောင်ပါ။ ဆုံချက်ဇယား ကက်ရှ်မှတ်ဉာဏ်များကို ရှင်းလင်းသွားပါမည်။

နောက်ထပ် ဖတ်ရှုရန်- Excel တွင် VBA မပါဘဲ Pivot Table ကို အလိုအလျောက်ပြန်လည်စတင်နည်း (3 စမတ်နည်းလမ်းများ)

၅။ VBA Macro ဖြင့်ဒေတာကိုပြောင်းလဲနေစဉ်အတွင်း Pivot Table ကိုအလိုအလျောက်ပြန်လည်စတင်ခြင်း

သင့်တွင်ဒေတာပမာဏများစွာရှိသော pivot ဇယားတစ်ခုရှိလျှင် သင်အလိုရှိသောအရာအားလုံးသည် ဇယားတစ်ခုလုံးကိုမထိမထိထားရချိန်တွင် ဒေတာအနည်းငယ်ကို အပ်ဒိတ်လုပ်ရန်ဖြစ်သည်။ . Excel တွင် သင်သည် ၎င်းကို အလိုအလျောက် ပြန်လည်စတင်နိုင်သည်။ဆုံချက်ဇယား VBA ဖြင့် ဒေတာကို အပ်ဒိတ်လုပ်နေစဉ်။

  • ဆော့ဖ်ဝဲအင်ဂျင်နီယာမှ Visual Basic Editor ကိုဖွင့်ပါ။
  • တည်းဖြတ်သူ၏ ဘယ်ဘက်အခြမ်းတွင်၊ အလုပ်စာရွက်၏အမည်များအားလုံးပါသည့် Project Explorer အကန့်တစ်ခု ရှိလိမ့်မည်။
  • Project Explorer တွင်၊ နှစ်ချက်- ဆုံချက်ဇယားပါရှိသော စာရွက်အမည်ကို နှိပ်ပါ။

  • ဖြစ်ရပ်မက်ခရိုဖန်တီးမည့် ကုဒ်ဝင်းဒိုး ပေါ်လာပါမည်။ ကုဒ် module ၏ဘယ်ဘက်ရှိ Object drop-down box မှ Worksheet ကိုရွေးချယ်ပါ။ ၎င်းသည် မော်ဂျူးသို့ Worksheet_SelectionChange ဖြစ်ရပ်ကို ပေါင်းထည့်မည်ဖြစ်ပြီး၊ ကျွန်ုပ်တို့သည် အမှန်တကယ် မလိုအပ်သောကြောင့် ဤကုဒ်အပိုင်းအစကို နောက်မှ ဖျက်လိုက်ပါမည်။
  • ထို့နောက် လုပ်ထုံးလုပ်နည်းကို နှိပ်ပါ။ drop-down list ပြီး Change ကို ရွေးပါ။ ၎င်းသည် Worksheet_Change ဟုခေါ်သော ကုဒ် module ၏ထိပ်တွင် ဖြစ်ရပ်အသစ်တစ်ခုကို ပေါင်းထည့်သည်။ ကျွန်ုပ်တို့၏ကုဒ်ကို ဤနေရာတွင် delete ဖြင့် Worksheet_SelectionChange

  • ကုဒ်ကို ဤနေရာတွင် ရေးလိုက်ပါမည်။ အောက်ပါကုဒ်ကို Worksheet_Change
5098

သင်၏ကုဒ်ကို ယခုဖွင့်ရန် အဆင်သင့်ဖြစ်ပါပြီ။

ဤတွင်၊ PivotTbl သည် အလုပ်စာရွက်ဖြစ်သည်။ ကျွန်ုပ်တို့၏ Excel workbook အမည်နှင့် PivotTable1 သည် ကျွန်ုပ်တို့၏ Pivot Table အမည်ဖြစ်သည်။ သင့်အလုပ်စာရွက်နှင့် Pivot Table ပါရှိသည့် အမည်ကို သင်ရေးပါ။

  • ယခု သင့်အလုပ်စာရွက်ရှိ မူရင်းဒေတာဇယားရှိ ဒေတာကို သင်ပြောင်းလဲသည့်အခါတိုင်း၊ pivot ဇယားပါလိမ့်မယ်။အလိုအလျောက် အပ်ဒိတ်လုပ်မည်ဖြစ်သည်။

နောက်ထပ်ဖတ်ရန်- Excel တွင် Pivot Table ကို အလိုအလျောက်ပြန်လည်စတင်နည်း

နိဂုံး

ဤဆောင်းပါးသည် သင့်အား Excel တွင် ဆုံချက်ဇယား ကို VBA ဖြင့် မည်သို့ ပြန်လည်စတင်ရမည်ကို ပြသထားသည်။ ဤဆောင်းပါးသည် သင့်အတွက် အလွန်အကျိုးရှိမည်ဟု မျှော်လင့်ပါသည်။ ခေါင်းစဉ်နှင့်ပတ်သက်သည့် မေးခွန်းများရှိပါက လွတ်လပ်စွာမေးမြန်းနိုင်ပါသည်။

Hugh West သည် လုပ်ငန်းနယ်ပယ်တွင် အတွေ့အကြုံ 10 နှစ်ကျော်ရှိသော Excel သင်တန်းဆရာနှင့် ခွဲခြမ်းစိတ်ဖြာသူဖြစ်သည်။ စာရင်းကိုင်နှင့် ဘဏ္ဍာရေးဆိုင်ရာဘွဲ့နှင့် စီးပွားရေးစီမံခန့်ခွဲမှု မဟာဘွဲ့တို့ကို ရရှိထားသူဖြစ်သည်။ Hugh သည် သင်ကြားရေးကို ဝါသနာပါပြီး လိုက်နာရန်နှင့် နားလည်ရန်လွယ်ကူသော ထူးခြားသောသင်ကြားရေးနည်းလမ်းကို တီထွင်ခဲ့သည်။ Excel ၏ ကျွမ်းကျင်သော အသိပညာသည် ကမ္ဘာတစ်ဝှမ်းရှိ ထောင်ပေါင်းများစွာသော ကျောင်းသားများနှင့် ပရော်ဖက်ရှင်နယ်များကို ၎င်းတို့၏ ကျွမ်းကျင်မှုနှင့် ၎င်းတို့၏ အသက်မွေးဝမ်းကြောင်းတွင် ထူးချွန်အောင် ကူညီပေးခဲ့သည်။ သူ၏ဘလော့ဂ်မှတစ်ဆင့်၊ Hugh သည် လူတစ်ဦးချင်းစီနှင့် လုပ်ငန်းများ၏ အလားအလာများ ပြည့်မီစေရန်အတွက် အခမဲ့ Excel သင်ခန်းစာများနှင့် အွန်လိုင်းသင်တန်းများကို ပေးဆောင်ကာ သူ၏အသိပညာကို ကမ္ဘာနှင့်မျှဝေပါသည်။