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

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

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

11 Excel တွင် ဇယားတန်းများကို လှည့်ပတ်ရန် VBA ဖြင့် နည်းလမ်းများ

ဤကဏ္ဍကို ပြီးနောက်၊ သင်သည် မတူညီသော နည်းလမ်း 11 ခုဖြင့် ဇယားတစ်ခု၏ အတန်းများကို လှည့်ပတ်နည်း ကို လေ့လာနိုင်မည်ဖြစ်ပါသည်။ ဆဲလ်အလွတ်တစ်ခုအထိ အတန်းလိုက်ပတ်ခြင်း၊ တိကျသောတန်ဖိုးတစ်ခုကို ရှာမတွေ့မချင်း အတန်းများကို လှည့်ပတ်ခြင်း၊ အတန်းများကို လှည့်ပတ်ပြီး သီးခြားဆဲလ်တစ်ခုကို အရောင်ခြယ်ခြင်း စသည်တို့ကို Excel တွင် VBA macro ဖြင့် ပြုလုပ်ပါ။

အထက်တွင် နည်းလမ်းများကို ဖော်ပြရန် ဤဆောင်းပါးတွင် လိုက်နာရမည့် နမူနာဒေတာအတွဲဖြစ်သည်။

၁။ ဆဲလ်အကိုးအကားနံပါတ်ဖြင့် ဇယား၏အတန်းတိုင်းရှိ ဆဲလ်တစ်ခုစီကို လှည့်ပတ်ရန် VBA ကို မြှုပ်သွင်းပါ

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

အဆင့်များ-

• အစပိုင်းတွင် သင့်ကီးဘုတ်ပေါ်တွင် Alt + F11 ကိုနှိပ်ပါ သို့မဟုတ် သွားပါ။ပြောင်းလဲနိုင်သော။

7199

ဤကုဒ်အပိုင်းအစသည် 1 မှ 15 အထိ အတန်းများကို လှည့်ပတ်ရန်အတွက် ဤနေရာတွင်ဖြစ်သည်။ သတ်သတ်မှတ်မှတ်စကားလုံး “ Edge ” ကိုတွေ့ပါက ၎င်းသည် စကားလုံးကိုင်ဆောင်ထားသောဆဲလ်ကို အရောင်များပေးသည်။ စကားလုံးကိုရှာဖွေရာတွင် အတန်း 1 မှ 15 အထိ ဒေတာအားလုံးကို စကင်န်ဖတ်ခြင်းမပြီးမချင်း ၎င်းသည် ဆက်လက်လုပ်ဆောင်နေပါသည်။

နောက်ထပ်ဖတ်ရန်- VLOOKUP Table Array ကို အခြေခံ၍ အသုံးပြုနည်း Excel ရှိ ဆဲလ်တန်ဖိုး

အလားတူ ဖတ်ရှုမှုများ

• TABLE Function သည် Excel တွင် ရှိပါသလား။
• Excel တွင် ဇယားမှစာရင်းသို့ ပြောင်းနည်း (အမြန်နည်းလမ်း 3 ခု)
• အကွာအဝေးကို Excel တွင် ဇယားသို့ပြောင်းနည်း (လွယ်ကူသောနည်းလမ်း 5 ခု)
• Excel Table တစ်ခုတွင် ဖော်မြူလာကို ထိရောက်စွာ အသုံးပြုပါ (ဥပမာ 4 ခုဖြင့်)
• Excel Table Name- သင်သိထားရမည့်အရာများ

၇။ Excel တွင် အတန်းတစ်တန်းစီနှင့် ထူးဆန်းသောအတန်းတိုင်းကို အရောင်ခြယ်ရန် VBA ကိုအသုံးပြုပါ

ယခင်ကဏ္ဍမှ၊ သတ်မှတ်ထားသောတန်ဖိုးကိုသယ်ဆောင်သည့်ဆဲလ်တစ်ခုအား အရောင်ခြယ်နည်းကို လေ့လာသိရှိထားပါသည်။ ဤကဏ္ဍတွင်၊ Excel တွင် VBA Macro ဖြင့် ဇယားတစ်ခုစီ၏အတန်းတစ်ခုစီကို လှည့်ပတ်ပြီး ထူးဆန်းသောအတန်းတိုင်းကို အရောင်ခြယ်နည်း ကို Excel တွင် VBA Macro ဖြင့် လေ့လာပါမည်။

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

အဆင့်များ-

• အရင်ကပြထားသည့်အတိုင်း၊ ဆော့ဖ်ဝဲရေးသားသူ မှ Visual Basic Editor ကိုဖွင့်ပါ။ tab နှင့် Insert a Module ကို ကုဒ်ဝင်းဒိုးတွင် ထည့်သွင်းပါ။
• ထို့နောက်၊ ကော်ပီ အောက်ဖော်ပြပါ ကုဒ်ကို paste ထဲသို့ ကူးထည့်ပါ။ ကုဒ်ဝင်းဒိုး။

2419

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

• ယခု၊ မက်ခရို ကိုဖွင့်ပြီး အထွက်ကိုကြည့်ရန် အောက်ပါပုံကိုကြည့်ပါ။

ဂဏန်းမဂဏန်းအတန်းများအားလုံးကို အရောင်ခြယ်ထားသည် အလုပ်စာရွက်၏ဇယားတွင်ရှိသော အတန်းအားလုံးကို လှည့်ပတ်ပြီးနောက်။

VBA ကုဒ်ရှင်းလင်းချက်

1494

ပြောင်းလဲနိုင်သောကို သတ်မှတ်ပါ။

1157

ကျွန်ုပ်တို့နှင့်အတူလုပ်ဆောင်မည့်အကွာအဝေးကိုသတ်မှတ်ပါ။

1250

ဤကုဒ်၏အစိတ်အပိုင်းသည် လက်ရှိအတန်း၏နောက်အတန်းမှစတင်ကာ အတန်းအားလုံးမှတဆင့် ထပ်လောင်းခြင်းကိုရည်ညွှန်းသည်၊ B4<၂၅>။ အတန်းနံပါတ်များကို 2 ဖြင့် ပိုင်းခြားခြင်း၏ mod သည် ကိန်းပြည့်အမျိုးအစားတွင် သိမ်းဆည်းထားသော ပြန်လာသော အတန်းနံပါတ်နှင့် ညီမျှပါက၊ ဤကုဒ်သည် ကုဒ်တွင် ပေးထားသော အရောင်အညွှန်းဖြင့် တွက်ချက်မှုဖြင့် ထုတ်ယူထားသော အတန်းအားလုံးကို အရောင်ခြယ်သည်။ ၎င်းသည် အပိုင်းအခြား၏အဆုံးသို့ရောက်သည်အထိ အတန်းအားလုံးတစ်လျှောက် ဆက်လက်ရွေ့လျားနေပါသည်။

၈။ Excel တွင် အတန်းတစ်တန်းစီနှင့် အတန်းတိုင်းကို အရောင်ခြယ်ရန် VBA ကို အကောင်အထည်ဖော်ပါ

ယခင်ကဏ္ဍတွင်၊ ဇယားတစ်ခု၏ ထူးဆန်းသောအတန်းတိုင်းကို အရောင်ခြယ်နည်းကို လေ့လာသိရှိထားပါသည်။ ဤကဏ္ဍတွင်၊ Excel တွင် VBA macro ဖြင့် ဇယားတစ်ခုစီ၏ အတန်းတစ်ခုစီကို လှည့်ပတ်ကာ အတန်းတိုင်းကို အရောင်ခြယ်နည်း ကို လေ့လာပါမည်။

လုပ်ငန်းစဉ်ကို လုပ်ဆောင်ရန် အဆင့်များကို အောက်တွင် ဆွေးနွေးထားပါသည်။

အဆင့်များ-

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

9541

သင့်ကုဒ်ကို အဆင်သင့်ဖြစ်ပါပြီ။ပြေးပါ။

• နောက်တစ်ခု၊ မက်ခရိုကိုဖွင့်ပါ ရလဒ်ကိုကြည့်ရန် အောက်ပါပုံကိုကြည့်ပါ။

အလုပ်စာရွက်၏ဇယားရှိ အတန်းအားလုံးကို လှည့်ပတ်ပြီးနောက် ဂဏန်းတစ်လုံးစီပါသော အတန်းများအားလုံးသည် အရောင်များ ဖြစ်သည်။

VBA ကုဒ်ရှင်းလင်းချက်

1921

မပြောင်းလဲနိုင်သောကို သတ်မှတ်ပါ။

6749

ကျွန်ုပ်တို့နှင့်အတူ လုပ်ဆောင်မည့် အပိုင်းအခြားကို သတ်မှတ်ပါ။

8087

ဤကုဒ်အပိုင်းအစသည် နောက်ပိုင်းတွင် ထပ်တလဲလဲလုပ်ဆောင်သည် လက်ရှိအတန်းမှ အတန်းသုံးတန်း၊ B4 ။ ၎င်းသည် ၎င်းကို ဦးစွာအရောင်ခြယ်ပြီးနောက် အတန်းရေတွက်မှုကို 2 ဖြင့် တိုးကာ ဒေတာအတွဲ၏နောက်ဆုံးအတန်းသို့ရောက်သည်အထိ ၎င်းကို ဆက်လက်အရောင်ခြယ်နေပါသည်။

9။ Excel တွင် Blank Cell မရောက်မချင်း Macro ကို အတန်းများတစ်လျှောက် ထပ်တလဲလဲသုံးပါ

သင့်ကုဒ်ကဲ့သို့ အလုပ်လုပ်လိုပါက ဇယား၏အတန်းအားလုံးကို လှည့်ပတ်ပြီး ဆဲလ်အလွတ်တစ်ခုသို့ရောက်သောအခါ ရပ်သွားလိမ့်မည် ဒါဆို ဒီအပိုင်းက သင့်အတွက်ပါ။ Excel VBA တွင် FOR Loop နှင့် Do-Until Loop ဖြင့် အဆိုပါလုပ်ငန်းကို သင်လုပ်ဆောင်နိုင်သည်။

9.1။ FOR Loop ဖြင့်

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

အဆင့်များ-

• အစပိုင်းတွင်၊ Developer တက်ဘ်မှ Visual Basic Editor ကိုဖွင့်ပြီး Insert ကုဒ်ဝင်းဒိုးရှိ Module တစ်ခု။
• ထို့နောက်၊ အောက်ပါကုဒ်ကို ကော်ပီကူးပြီး ကုဒ်ဝင်းဒိုးထဲသို့ ကူးထည့်ပါ ။

6659

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

• ထို့နောက်၊ Run macro နှင့်ရလဒ်ကိုအောက်ပါ gif တွင်ပြသထားသည်။

မက်ခရိုကို run ပြီးနောက်၊ ၎င်းသည် ဇယားရှိအတန်းအားလုံးကို လှည့်ပတ်နေပါသည်။ ၎င်းသည် အလွတ်ဆဲလ်၊ Cell B8 သို့ရောက်သည်နှင့် တပြိုင်နက်၊ ၎င်းသည် ထပ်တလဲလဲလုပ်ခြင်းကို ရပ်လိုက်သည် ။

VBA ကုဒ်ရှင်းလင်းချက်

3455

ပြောင်းလဲမှုအား သတ်မှတ်ပါ။

6438

စခရင်အား အပ်ဒိတ်လုပ်ခြင်း အစီအစဉ်ကို ပိတ်ပါ။

3486

ဆဲလ် B4 မှ နောက်ဆုံးအထိ အတန်းအားလုံးကို သိမ်းဆည်းပါ။

2426

Cell B4 ကို ရွေးပါ။

4562

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

8838

စခရင်ကို အပ်ဒိတ်လုပ်ခြင်း အစီအစဉ်ကို ဖွင့်ပါ။

9.2။ Do-Until Loop

ဖြင့် VBA တွင် Do-Until loop ပါသည့် ဆဲလ်အလွတ်တစ်ခုအထိ အတန်းများကို လှည့်ပတ်ရန် အဆင့်များ အောက်တွင်ဖော်ပြထားသည်။

အဆင့်များ-

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

7307

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

• နောက်ပိုင်းတွင်၊ မက်ခရိုကို run ။ ရလဒ်ကို အောက်ပါ gif တွင် ပြထားသည်။

မက်ခရိုကို run ပြီးနောက်၊ ၎င်းသည် အတန်းအားလုံးကို ဇယားနှင့် တစ်ကြိမ်တွင် လှည့်ပတ်နေပါသည်။ ၎င်းသည် ဆဲလ်အလွတ်၊ Cell B8 သို့ရောက်ရှိသွားသည်၊ ၎င်းသည် ထပ်တလဲလဲလုပ်ခြင်းကို ရပ်လိုက်သည် ။

VBA ကုဒ်ရှင်းလင်းချက်

6943

ကျွန်ုပ်တို့လုပ်ဆောင်မည့် ဆဲလ်ကို ရွေးပါ။

2525

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

7470

ဆဲလ်အလွတ်တစ်ခု ဖြစ်သည့်အခါ၊ အတန်းတစ်ခုတွင် တွေ့ရှိပြီးနောက် ၎င်းကို ရွေးချယ်ပြီး ထပ်လောင်းခြင်းကို ရပ်ပါ။

၁၀။ VBA Macro သည် Excel ရှိ အလွတ်ဆဲလ်များစွာအထိ အတန်းများတစ်လျှောက် ထပ်လုပ်ရန်

ယခင်ကဏ္ဍတွင်၊ ဆဲလ်အလွတ်တစ်ခုကို တွေ့ရှိသောအခါ ကွင်းဆက်ကို မည်သို့ရပ်တန့်ရမည်နည်း။ ဒါပေမယ့် တစ်ခုတည်းအစား ဆဲလ်အလွတ်များစွာကို ရှာမတွေ့မချင်း ထပ်ခါထပ်ခါ မရပ်တန့်ချင်ဘူးဆိုရင်တော့

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

အဆင့်များ-

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

9255

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

• ယခု၊ Macro ကို run ပြီး output အတွက် အောက်ပါ gif ကိုကြည့်ပါ။

macro ကို run ပြီးနောက်၊ ၎င်းသည် မရပ်တန့်ပါ ပထမအလွတ်ဆဲလ်၊ Cell B8 ။ Cell B16 တွင် ဆက်တိုက်ဗလာဆဲလ်နှစ်ခုကို တွေ့ရှိသောအခါ ၎င်းရပ်တန့်သွားသည်။

VBA ကုဒ်ရှင်းလင်းချက်

6046

ဆဲလ်ကို ရွေးပါ ၎င်းမှ ကျွန်ုပ်တို့ လုပ်ဆောင်ပါမည်။

2708

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

8143

နှစ်ဆက်ဆက် ဗလာဆဲလ်များကို တွေ့ရှိသောအခါ၊ ထို့နောက်၎င်းကိုရွေးချယ်ပြီး ထပ်ခါထပ်ခါပြုလုပ်ခြင်းကို ရပ်လိုက်ပါ။

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

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

Excel တွင် VBA macro ဖြင့် ပြုလုပ်နည်းကို လေ့လာကြပါစို့။

အဆင့်များ-

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

5749

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

• နောက်ပိုင်းတွင်၊ Macro ကို Run ပြီး ရလဒ်အတွက် အောက်ပါ gif ကို ကြည့်ပါ။

အထက်ပါ gif မှ သင်တွေ့မြင်ရသည့်အတိုင်း ပေါ်လာသော MsgBox သည် သင့်အား နေရာတိုင်းတွင်ရှိသော ကော်လံအားလုံး၏ ပေါင်းစပ်တန်ဖိုးကို ပြသနေပါသည်။ သင့် Excel worksheet ၏ဇယားမှ row ။ သို့သော် ဆဲလ်အလွတ်သို့ရောက်သည်နှင့်ရပ်တန့်သွားသည် ။

VBA ကုဒ်ရှင်းလင်းချက်

4610

ကိန်းရှင်များကို သတ်မှတ်ပါ။

9953

ကျွန်ုပ်တို့ လုပ်ဆောင်မည့် စာရွက်အမည်ကို သတ်မှတ်ပါ (“ ConcatenatingAllColUntilBlank ” သည် အလုပ်စာအုပ်ရှိ စာရွက်အမည်)။

6801

ကျွန်ုပ်တို့နှင့်အတူ လုပ်ဆောင်မည့် အပိုင်းအခြားကို သတ်မှတ်ပါ။

1150

ဤကုဒ်အပိုင်းအစသည် array ဖြင့် loop ကိုစတင်သည်။ ၎င်းသည် array ၏အကြီးဆုံး subscript နှင့် အောက်ဘောင်ကို ပြန်မပို့မချင်း ၎င်းသည် ဆက်လက်လည်ပတ်နေပါသည်။ပထမအတိုင်းအတာ။ ထို့နောက် ၎င်းသည် ဒုတိယအတိုင်းအတာ၏ အောက်ဘောင်ကို ထုတ်ယူခြင်း၏ ထပ်လောင်းခြင်းသို့ ရောက်ရှိလာပါသည်။ ၎င်းနောက်၊ ၎င်းသည် iResult variable အတွင်းရှိ ထုတ်ယူထားသော တန်ဖိုးအားလုံးကို ၎င်းတို့ကို ပေါင်းစပ်ပြီး ရလဒ်ကို MsgBox ထဲသို့ ပစ်ထည့်ခြင်းဖြင့် ကျော်သွားပါသည်။ ဆဲလ်အလွတ်တစ်ခုကို ရှာမတွေ့မချင်း ၎င်းသည် ဆက်လက်လုပ်ဆောင်နေပါသည်။

နိဂုံးချုပ်

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

• နောက်တစ်ခု၊ ပေါ်လာသောကုဒ်ဝင်းဒိုးမှ၊ မီနူးဘား၊ Insert -> ကိုနှိပ်ပါ။ မော်ဂျူး ။

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

5594

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

• ယခု သင့်ပေါ်ရှိ F5 ကို နှိပ်ပါ။ ကီးဘုတ် သို့မဟုတ် မီနူးဘားမှ Run -> Sub/UserForm ကိုဖွင့်ပါ။ မက်ခရိုကိုလည်ပတ်ရန် မီနူးဘားရှိ သေးငယ်သော Play အိုင်ကွန် ကိုလည်း နှိပ်နိုင်သည်။

• သို့ အမြင်အာရုံဖြင့်သက်သေခံပြီး ဒေတာအတွဲနှင့် ရလဒ်ကို နှိုင်းယှဉ်ပါ၊ သင်သည် ကုဒ်ကို သိမ်းဆည်းနိုင်ပြီး စိတ်ပါဝင်စားသော အလုပ်စာရွက် သို့ ပြန်သွားနိုင်ပါသည်။
• ထိုနေရာမှ၊ သင်သည် <1 ကိုနှိပ်နိုင်ပါသည်။ Developer တက်ဘ်မှ Macros ၊ Macro အမည်ကို ရွေးပါ၊ ပြီးနောက် Run ကိုနှိပ်ပါ။

အောင်မြင်သောကုဒ်ကိုလုပ်ဆောင်ပြီးနောက်၊ ရလဒ်ကိုကြည့်ရှုရန် အထက်ပါ gif ကိုကြည့်ပါ။ သင့် Excel စာရွက်ရှိ ဇယားမှ အတန်းတစ်ခုစီမှ ဆဲလ်တစ်ခုစီ၏ ဆဲလ်ရည်ညွှန်းနံပါတ် ကို ပြသပေးမည့် ပေါ်လာသော MsgBox ရှိပါမည်။

VBA ကုဒ်ရှင်းလင်းချက်

7201

ကော်လံ B ကိုရှာဖွေခြင်းဖြင့် ဇယားရှိ နောက်ဆုံးအတန်းနံပါတ်ကို ရယူရန်။

7145

ကျွန်ုပ်တို့၏ဒေတာစတင်သည့်နေရာမှ အတန်းနံပါတ် 4 ကို သတ်မှတ်ပါ။

8227

ပထမတန်းမှ လှည့်ပတ်ရန်။

1499

ကျွန်ုပ်တို့၏ဒေတာစတင်သည့်နေရာမှ ကော်လံနံပါတ် 2 ကို သတ်မှတ်ပါ။

2203

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

ကော်လံကို ပထမတန်းမှ နောက်ဆုံးအတန်းအထိ ကော်လံကို ထပ်တိုးပါ။

8198

ဤကုဒ်အပိုင်းအစတစ်ခုစီကို စီစဥ်ပြီးနောက် တိုးမြှင့်လုပ်ဆောင်ရန် လုပ်ဆောင်ပါသည်။ ထပ်ကာထပ်ကာနှင့် ကုဒ်၏ရလဒ်ကိုပြသသည်။

နောက်ထပ်ဖတ်ရန်- Excel ဇယားတွင် အတန်းအသစ်ကို အလိုအလျောက်ထည့်နည်း

2 . အတန်းတိုင်းရှိ ဆဲလ်တစ်ခုစီကို တန်ဖိုးအားဖြင့် လှည့်ပတ်ရန် VBA ကို အသုံးပြုပါ

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

သင်သည် ListObject နှင့် <1 ဖြင့် ၎င်းကို ပြုလုပ်နိုင်သည် VBA ၏>DataBodyRange ပိုင်ဆိုင်မှု။ အရာဝတ္ထုနှင့် ပိုင်ဆိုင်မှုနှစ်ခုလုံးပါရှိ မက်ခရိုကုဒ်ကို သင့်အား ပြသပါမည်။

၂.၁။ ListObject

နှင့်အတူ VBA Excel တွင် ListObject ဖြင့် ဇယား၏အတန်းတိုင်းရှိ ဆဲလ်တန်ဖိုးအလိုက် ဆဲလ်တစ်ခုစီကို လှည့်ပတ်ရန် အဆင့်များကို အောက်တွင်ဖော်ပြထားသည်။

အဆင့်များ-

• ယခင်အတိုင်းပင်၊ ဆော့ဖ်ဝဲရေးသားသူ တက်ဘ်မှ Visual Basic Editor ကိုဖွင့်ပြီး ကုဒ်ဝင်းဒိုးတွင် Module ကိုထည့်ပါ။
• ထို့နောက်၊ ကုဒ်ဝင်းဒိုးတွင် ကော်ပီ အောက်ပါကုဒ်ကို ကူးထည့်ပါ ၎င်း။

7112

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

• ထို့နောက်၊ မက်ခရိုကို run အထက်ဖော်ပြပါ ကဏ္ဍတွင် သင်ပြထားသည့်အတိုင်း ရလဒ်ကို gif တွင်ပြသထားသည်။အောက်တွင်။

အတန်းတစ်ခုစီမှ ဆဲလ်တိုင်းမှသယ်ဆောင်သော တန်ဖိုး MsgBox ပေါ်လာလိမ့်မည် >သင်၏ Excel စာရွက်ရှိ ဇယားမှ။

VBA ကုဒ်ရှင်းလင်းချက်

1760

ကိန်းရှင်များကို သတ်မှတ်ပါ။

6222

ဤအပိုင်း ကုဒ်၏ ပထမဦးစွာ ဇယားရှိ အတန်းများကို လှည့်ပတ်ခြင်း (“ TblStudents ” သည် ကျွန်ုပ်တို့၏ ဇယားအမည်) ဖြစ်သည်။ ထို့နောက် အတန်းတစ်ခုစီအတွက် ကော်လံများထည့်ပါ။ ထို့နောက် MsgBox တွင် ဆဲလ်တန်ဖိုးကို ဖြတ်ပါ။ ပြီးရင် နောက်ကော်လံကို သွားပါ။ အတန်းတစ်ခု၏ ကော်လံအားလုံးတွင် ထပ်လောင်းခြင်း ပြီးဆုံးပြီးနောက်၊ ၎င်းသည် နောက်အတန်းသို့သွားကာ နောက်ဆုံးအတန်းအထိ ထပ်လောင်းခြင်းလုပ်ငန်းစဉ်ကို ဆက်လက်လုပ်ဆောင်သည်။

2.2။ DataBodyRange Property

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

သင် အတန်းတိုင်းရှိ ဆဲလ်တစ်ခုစီကို လှည့်ပတ်နိုင်ပုံအဆင့်ဆင့် VBA Excel တွင် DataBodyRange ပါသော ဆဲလ်တန်ဖိုးအလိုက် ဇယားတစ်ခုကို အောက်တွင်ပေးထားသည်။

အဆင့်များ-

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

6468

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

• နောက်ပိုင်း၊ Macro ကို run ပြီး output ကိုကြည့်ရန် အောက်ပါ gif ကိုကြည့်ပါ။

ပေါ်လာသော MsgBox<ရှိပါမည်။ 2> သင့်အား အတန်းတစ်ခုစီမှ ဆဲလ်တိုင်းမှသယ်ဆောင်သော တန်ဖိုး သင်၏ Excel စာရွက်ရှိ ဇယားမှ

VBA ကုဒ်ရှင်းလင်းချက်

8175

variable ကို သတ်မှတ်ပါ။

3634

ဤကုဒ်အပိုင်းအစသည် ဇယားရှိ အတန်းများအတွင်းသို့ ဦးစွာလှည့်ပတ်နေပါသည် (“ TblStdnt ” သည် ကျွန်ုပ်တို့၏ ဇယားအမည်) နှင့် မပါဝင်သည့် တန်ဖိုးများစွာကို ပြန်ပေးပါသည်။ ဇယား၏ခေါင်းစီးအတန်း။ ထို့နောက် MsgBox တွင် အပိုင်းအခြား၏ တန်ဖိုးကို ဖြတ်ပါ။ ထို့နောက် ၎င်းသည် အပိုင်းအခြားကို ထုတ်ယူရန် နောက်အတန်းသို့သွားကာ နောက်ဆုံးအတန်းအထိ ထပ်လောင်းခြင်းလုပ်ငန်းစဉ်ကို ဆက်လက်လုပ်ဆောင်သည်။

၃။ Excel တွင် ကော်လံများ ပေါင်းစပ်ခြင်းဖြင့် VBA Macro ကို အတန်းများတစ်လျှောက် ထပ်တလဲလဲသုံးပါ

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

ဥပမာအားဖြင့်၊ ကျွန်ုပ်တို့၏ဒေတာအတွဲအတွက်၊ ဦးစွာ၊ ကျွန်ုပ်တို့သည် ၎င်းတို့ကို ပေါင်းစပ်ပြီး Cell C5 တွင် John in Cell B5 နှင့် 101 မှတဆင့် ထပ်လောင်းပြောဆိုပါမည်။ အတန်း 5 မှ ၎င်းတို့ကို ပေါင်းစပ်ခြင်းဖြင့် Cell B5 နှင့် Cell D5 ရှိ 89 ။

၎င်းတို့ကို သင်မည်ကဲ့သို့ လုပ်ဆောင်နိုင်သည်ကို ကျွန်ုပ်တို့ ပြသကြပါစို့။ Excel တွင် VBA Macro။

အဆင့်များ-

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

1393

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

• တတိယ၊ macro ကို run ။ ရလဒ်ကိုကြည့်ရန် အောက်ပါ gif ကိုကြည့်ပါ။

ပေါ်လာသော MsgBox သည် သင့်အား ပေါင်းစပ်ထားသောတန်ဖိုးကိုပြသပေးမည်ဖြစ်ပါသည်။ ပထမကော်လံမှ ဆဲလ်များ၏ ( ကော်လံ B5 မှ John in Cell B5 နှင့် ကော်လံ C5 မှ Cell C5 ရှိ 101) နှင့် ထို့နောက် ပေါင်းစပ်တန်ဖိုး ပထမနှင့် တတိယကော်လံမှ ဆဲလ်များ၏ (ကော်လံ B5 မှ John in Cell B5 နှင့် ကော်လံ D5 မှ Cell D5 ရှိ 89) အတန်းနံပါတ် 5 သင်၏ဒေတာအစုံမှ။ ထို့အပြင် ဤပေါင်းစပ်လုပ်ဆောင်မှုသည် ဇယား၏နောက်ဆုံးအတန်းသို့ရောက်သည်အထိ ဆက်လက်လုပ်ဆောင်သွားပါမည်။

VBA ကုဒ်ရှင်းလင်းချက်

7438

မပြောင်းလဲနိုင်သောကို သတ်မှတ်ပါ။

7337

ထို့နောက် ကုဒ်သည် တက်ကြွသောစာရွက် (“ TblConcatenate ” တွင် ကျွန်ုပ်တို့၏ဇယားအမည်) မှ ဇယားကိုရွေးချယ်သည်။

4395

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

1746

အထက်ပါအခြေအနေသည် မပြည့်စုံပါက၊ ကုဒ်သည် MsgBox တွင် တန်ဖိုးကို ပစ်ချပြီး အခြေအနေအား အပြီးသတ်သည်။ ၎င်းနောက်၊ ၎င်းသည် အခြားအကွာအဝေးတွင် looping သို့ ဆက်လက်ရွေ့လျားပြီး အဆုံးအတန်းအထိ ဆက်လက်လုပ်ဆောင်သည်။ အဆုံးအတန်းသို့ရောက်သည်နှင့်၊ မက်ခရိုသည် ကုဒ်လုပ်ဆောင်မှုကို အဆုံးသတ်သည်။

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

ဤကဏ္ဍတွင်၊ အတန်းတစ်ခုစီတွင်ရှိသော ကော်လံအားလုံးကို နှင့် ဒေတာအတွဲတွင် ပေါင်းစပ်နည်းကို လေ့လာပါမည်။ Excel တွင် VBA macro။

အောက်တွင်ပြထားသည့်အတိုင်း လုပ်ဆောင်ရန် အဆင့်များ။

အဆင့်များ-

• ပထမဦးစွာ၊ ဖွင့် Visual Basic Editor ကို Developer tab မှ နှင့် Insert a Module ကို code window တွင်
• ထို့နောက် အောက်ပါကုဒ်ကို ကော်ပီကူးပြီး ကုဒ်ဝင်းဒိုးထဲသို့ ကူးထည့်လိုက်ပါ။

8533

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

• နောက်တစ်ခု၊ မက်ခရိုကုဒ်ကိုဖွင့်ပါ ။

အထက်ပါ gif မှ သင်တွေ့မြင်ရသည့်အတိုင်း ရှိသည်၊ ပေါ်လာသော MsgBox သည် သင့်အား အတန်းတိုင်းတွင်ရှိသော ကော်လံအားလုံး၏ ပေါင်းစပ်တန်ဖိုး ကို သင့် Excel အလုပ်စာရွက်၏ ဇယားမှ ပြနေသည်။

VBA ကုဒ်ရှင်းလင်းချက်

6677

ကိန်းရှင်များကို သတ်မှတ်ပါ။

6947

ကျွန်ုပ်တို့နှင့်အတူ လုပ်ဆောင်မည့် စာရွက်အမည်ကို သတ်မှတ်ပါ (“ ConcatenatingAllCol ” သည် စာရွက်အမည် အလုပ်စာအုပ်ထဲတွင်)။

3014

De ကျွန်ုပ်တို့လုပ်ဆောင်မည့် ဇယားအမည်အား ဒဏ်ငွေတပ်ပါ (“ TblConcatenateAll ” သည် ကျွန်ုပ်တို့၏ဒေတာအတွဲရှိ ဇယားအမည်) ဖြစ်သည်။

9137

ဇယား၏အတန်းတစ်ခုစီမှ ထပ်ကာထပ်ကာစတင်သည်။

8083

ဇယား၏အတန်းတစ်ခုစီ၏ကော်လံတစ်ခုစီမှတစ်ဆင့် ထပ်တလဲလဲစတင်သည်။

7851

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

နောက်ထပ်ဖတ်ရန်- Excel VBA ဖြင့် ဇယားတစ်ခု၏ကော်လံအများအပြားကို စီမည်နည်း (နည်းလမ်း ၂ ခု)

၅။ VBA Macro ဖြင့် Table ၏အတန်းများကိုလှည့်ခြင်းဖြင့်တန်ဖိုးတွေ့ရှိပါက ထပ်ခြင်းရပ်တန့်ပါ

သင် သင့်ဇယားရှိ အတန်းများကို လှည့်ပတ်ပြီး သတ်သတ်မှတ်မှတ်တန်ဖိုးတစ်ခုတွေ့ရှိသောအခါ လှည့်ပတ်မှုကိုရပ်တန့်လိုသည်ဆိုပါစို့<၂>။ ရိုးရှင်းသော မက်ခရိုကုဒ်တစ်ခုဖြင့် ၎င်းကို သင်ပြုလုပ်နိုင်ပါသည်။

၎င်းကို VBA Excel တွင် ပြုလုပ်နည်းကို လေ့လာကြပါစို့။

အဆင့်များ-

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

9423

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

• နောက်မှ၊ မာခရို ကို ဖွင့်ပါ။
• ၎င်းသည် စက်ဝိုင်းကို စတင်သောအခါ ၎င်းသည် ရပ်သွားလိမ့်မည် သတ်မှတ်ထားသောတန်ဖိုး (“ Edge ”) ကို အပိုင်းအခြားအတွင်း ရှာဖွေပြီး ရလဒ်ကို MsgBox တွင် ပစ်ချသည်။

အထက်ပုံမှမြင်ရသည့်အတိုင်း၊ ကျွန်ုပ်တို့တွေ့ရှိသည့်နေရာတွင် ဆဲလ်လိပ်စာ၊ $B$10 ကို သင့်အားပြသသည့် ပေါ့ပ်အပ် MsgBox တစ်ခုရှိသည်။ သတ်မှတ်ထားသောတန်ဖိုး၊ “ Edge ” ။

VBA ကုဒ်ရှင်းလင်းချက်

2625

သတ်မှတ်ရန် ပြောင်းလဲနိုင်သော။

2333

ဤကုဒ်အပိုင်းအစသည် 1 မှ 15 အထိ အတန်းများကို လှည့်ပတ်ရန် ဤနေရာတွင်ဖြစ်သည်။ သီးခြားစကားလုံးကို ရှာတွေ့ပါက၊“ Edge ” ထို့နောက် ၎င်းသည် စကားလုံးကိုင်ဆောင်ထားသော ဆဲလ်လိပ်စာဖြင့် ရလဒ်ကို ပေးသည်။ စကားလုံးကိုရှာဖွေရာတွင် အတန်း 1 မှ 15 အထိ ဒေတာအားလုံးကို စကင်န်ဖတ်ခြင်းမပြီးမချင်း ၎င်းသည် ဆက်လက်လုပ်ဆောင်နေပါသည်။

နောက်ထပ်ဖတ်ရန်- Excel Table မှ အတန်းနှင့်ကော်လံများကို ထည့်သွင်းနည်း သို့မဟုတ် ဖျက်နည်း

၆။ VBA သည် အတန်းတစ်ခုစီကို လှည့်ပတ်ပြီး Excel တွင် သတ်သတ်မှတ်မှတ်တန်ဖိုးတစ်ခုကို အရောင်ခြယ်ပါ

MsgBox တွင် သတ်မှတ်ထားသောတန်ဖိုး၏ဆဲလ်လိပ်စာကို မစွန့်ပစ်လိုပါက မည်သို့လုပ်ဆောင်မည်နည်း။ တန်ဖိုးကိုသယ်ဆောင်ပေးသည့် ဆဲလ်ကို သင်အရောင်ခြယ်လိုပေမည်။

၎င်းကို VBA မက်ခရိုဖြင့် ပြုလုပ်နည်းကို လေ့လာကြပါစို့။

အဆင့်များ-

• ယခင်နည်းအတိုင်း၊ ဆော့ဖ်ဝဲရေးသားသူ တက်ဘ်မှ Visual Basic Editor ကိုဖွင့်ပြီး ထည့်သွင်းပါ ကုဒ်ဝင်းဒိုးရှိ Module တစ်ခု။
• ထို့နောက်၊ ကော်ပီ အောက်ပါကုဒ်ကို ကုဒ်ဝင်းဒိုးထဲသို့ ကူးထည့်ပါ ၎င်းကို ကုဒ်ဝင်းဒိုးထဲသို့ ကူးထည့်ပါ။

9395

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

• ထို့နောက်၊ မက်ခရိုကိုဖွင့်ပါ ။
• သတ်မှတ်ထားသောတန်ဖိုး (“ Edge ”) နှင့် ColourIndex ဖြင့် ColourIndex ဖြင့် ဆဲလ်ကို အရောင်ခြယ်သောအခါတွင် ၎င်းသည် ကွင်းကိုစတင်ပြီး ရပ်သွားပါမည်။ ကုဒ်တွင် သင်ပေးထားသည်။

အပေါ်ပုံမှ သင်မြင်ရသည့်အတိုင်း၊ C ell B10 ၊ ကျွန်ုပ်တို့သတ်မှတ်ထားသောတန်ဖိုးကိုတွေ့ရှိရာ “ Edge ” သည် ကုဒ်လုပ်ဆောင်ပြီးနောက်

VBA ကုဒ်ရှင်းလင်းချက်

9264

ကို သတ်မှတ်ပါ