Excel ရှိ Active Cell မှ Range ကိုရွေးချယ်ရန် VBA ကိုအသုံးပြုနည်း (နည်းလမ်း 3 ခု)

Hugh West

20-08-2023 Macros & Excel VBA
  • ဒါကိုမျှဝေပါ။
Hugh West

ကျွန်ုပ်တို့သည် active cell မှ active cell မှ Excel VBA တွင် 3 နည်းလမ်းများကို ပြပါမည်။> ယင်းကို သရုပ်ပြရန်၊ ကျွန်ုပ်တို့သည် ကော်လံ ၃ ခု ပါရှိသော ဒေတာအစုံကို ရွေးလိုက်သည်- “ ပထမအမည် ”၊ “ နောက်ဆုံးအမည် ” နှင့် “ အီးမေးလ် ”။ ကျွန်ုပ်တို့သည် ဆဲလ် ကို ရွေးပြီး Excel VBA ကို အသုံးပြု၍ ထို ဆဲလ် မှ အပိုင်းအခြားကို ရွေးပါမည်။

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

Active Cell.xlsm မှ Range ကိုရွေးချယ်ပါ

VBA ကိုအသုံးပြုထားသော Active Cell မှ Range ကိုရွေးချယ်ရန် နည်းလမ်း 3 ခု

1. Active Cell မှ Last Non-Blank Cell သို့ Range ကိုရွေးချယ်ရန် VBA ကို အသုံးပြုခြင်း

ပထမနည်းလမ်းအတွက်၊ Range.End ပိုင်ဆိုင်မှုကို အသုံးပြုပါမည်။

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

အဆင့်များ-

  • ပထမဦးစွာ Developer မှ တက်ဘ် >>> Visual Basic ကိုရွေးပါ။

Visual Basic ဝင်းဒိုး ပေါ်လာပါမည်။

  • နောက်ဆုံးအနေဖြင့် Insert >>> Module ကိုရွေးချယ်ပါ။

၎င်းသည် Module ဝင်းဒိုးကို ပေါ်လာလိမ့်မည်။

1.1။ End(xlUp) ပိုင်ဆိုင်မှု

ဤကဏ္ဍတွင်၊ ကျွန်ုပ်တို့သည် နောက်ဆုံး အလွတ်မဟုတ်သောဆဲလ် အထိ အကွာအဝေး အထက် ကို ရွေးချယ်သွားပါမည်။ 2> ကျွန်ုပ်တို့၏ တက်ကြွသောဆဲလ် မှ။

အဆင့်များ-

  • ပထမဦးစွာ၊ Module ဝင်းဒိုးကို ဖွင့်ပါ။
  • ဒုတိယအနေဖြင့်၊ အောက်ပါကုဒ်ကို ရိုက်ထည့်ပါ။ 
2370

ကျွန်ုပ်တို့၏ဖုန်းခေါ်ဆိုမှု Sub Procedure ToUp ။ ထို့နောက် ကျွန်ုပ်တို့သည် ကျွန်ုပ်တို့၏ အပိုင်းအခြား ကို ရွေးနေပါသည်။ ပထမတန်ဖိုးမှာ ကျွန်ုပ်တို့၏ တက်ကြွသောဆဲလ် ဖြစ်သည်။ နောက်ဆုံးတန်ဖိုးမှာ ActiveCell.End(xlUp) ဖြစ်သည်။ နောက်ဆုံးတွင်၊ ကျွန်ုပ်တို့သည် အပိုင်းအခြား ဖြင့် အပိုင်းအခြား ကို ရွေးနေပါသည်။ နည်းလမ်းကို ရွေးပါ။

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

ယခု ကျွန်ုပ်တို့သွားပါမည်။ Macro ဝင်းဒိုးကို ဖွင့်ပါ။ ထိုသို့လုပ်ဆောင်ရန်-

  • ဆော့ဖ်ဝဲရေးသားသူ တက်ဘ်မှ >>> Macros ကိုရွေးပါ။

ထို့နောက်၊ Macro dialog box ပေါ်လာပါမည်။

  • ထို့နောက်၊ “ မက်ခရိုအမည်- ” မှ “ ToUp ” ကို ရွေးပါ။
  • နောက်ဆုံးတွင်၊ Run<2 ကိုနှိပ်ပါ။>.

၎င်းကိုကျွန်ုပ်တို့မြင်နိုင်သည်၊ ကျွန်ုပ်တို့ ရွေးချယ်ထားသည် ဆဲလ်အကွာအဝေး C4:C6 ကိုရွေးချယ်ထားပါသည်။

နောက်ထပ်ဖတ်ရန်- Excel VBA- Dynamic Range ကို အခြား Workbook သို့ ကူးယူပါ

1.2။ End(xlDown) Property ကို ပေါင်းစည်းခြင်း

ဤကဏ္ဍတွင်၊ ကျွန်ုပ်တို့သည် ကျွန်ုပ်တို့၏ တက်ကြွသောဆဲလ် မှ အကွာအဝေး အောက်ဘက် ကို ရွေးပါမည်။

အဆင့်များ-

  • ပထမဦးစွာ၊ Module window ကိုဖွင့်ပါ။
  • ဒုတိယအနေဖြင့်၊ အမျိုးအစား အောက်ပါကုဒ်။ 
9419

ကျွန်ုပ်တို့၏ Sub Procedure ToDown ကိုခေါ်ဆိုနေပါသည်။ ထို့နောက် ကျွန်ုပ်တို့သည် ကျွန်ုပ်တို့၏ အပိုင်းအခြား ကို ရွေးနေပါသည်။ ပထမတန်ဖိုးမှာ ကျွန်ုပ်တို့၏ တက်ကြွသောဆဲလ် ဖြစ်သည်။ နောက်ဆုံးတန်ဖိုးမှာ ActiveCell.End(xlDown) ဖြစ်သည်။ နောက်ဆုံးအနေနဲ့၊ ငါတို့က အကွာအဝေး ဖြင့် အပိုင်းအခြား ကို ရွေးပါ။ နည်းလမ်းကို ရွေးပါ။

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

  • ထို့နောက်၊ Macro ဒိုင်ယာလော့ဂ်ဘောက်စ် ကို ပြသပါ။
  • “ ToDown ” ကို ရွေးပါ။
  • နောက်ဆုံးတွင်၊ Run ကိုနှိပ်ပါ။

ထို့ကြောင့်၊ ကျွန်ုပ်တို့သည် Excel VBA ကို အသုံးပြု၍ ကျွန်ုပ်တို့၏ တက်ကြွသောဆဲလ် မှ ကို ရွေးထားပါသည်။

ပိုမိုဖတ်ရန်- ဆဲလ်ဗလာအထိ အပိုင်းအခြားကို လှည့်ပတ်ရန် Excel VBA (ဥပမာ 4 ခု)

အလားတူ ဆောင်းပါးများ

  • Excel VBA- အကွာအဝေးရှိ ကော်လံများ လှည့်ပတ်ခြင်း (ဥပမာ 5 ခု)
  • Excel ရှိ အတန်းတစ်ခုစီအတွက် VBA ကိုအသုံးပြုနည်း
  • Excel Macro- Dynamic Range ဖြင့် ကော်လံအများအပြားကိုစီပါ (နည်းလမ်း 4 ခု)
  • VBA သည် Excel ရှိ အတန်းများနှင့်ကော်လံများကို အပိုင်းအခြားတစ်ခုအတွင်း လှည့်ပတ်ရန် (ဥပမာ 5 ခု)
  • Excel VBA တွင် Range သို့ Array သို့ပြောင်းနည်း (နည်းလမ်း 3 ခု)

1.3။ End(xlToLeft) Property ကိုအသုံးပြုခြင်း

ဤကဏ္ဍတွင်၊ ကျွန်ုပ်တို့သည် ကျွန်ုပ်တို့၏ တက်ကြွဆဲလ် ၏ အကွာအဝေး ကို ရွေးချယ်သွားမည်ဖြစ်ပါသည်။ .

အဆင့်များ-

  • ပထမဦးစွာ၊ Module ဝင်းဒိုးကိုတင်ပြပါ။
  • ဒုတိယအနေဖြင့်၊ အမျိုးအစား အောက်ပါကုဒ်။ 
6215

ကျွန်ုပ်တို့သည် ကျွန်ုပ်တို့၏ Sub Procedure ToLeft ကိုခေါ်ဆိုနေပါသည်။ ထို့နောက် ကျွန်ုပ်တို့သည် ကျွန်ုပ်တို့၏ အပိုင်းအခြား ကို ရွေးနေပါသည်။ ပထမတန်ဖိုးမှာ ကျွန်ုပ်တို့၏ တက်ကြွသောဆဲလ် ဖြစ်သည်။ နောက်ဆုံးတန်ဖိုးကတော့ ActiveCell.End(xlToLeft) ။ နောက်ဆုံးတွင်၊ ကျွန်ုပ်တို့သည် အပိုင်းအခြား ဖြင့် အပိုင်းအခြား ကို ရွေးနေပါသည်။ နည်းလမ်းကို ရွေးပါ။

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

  • ထို့နောက်၊ Macro ဒိုင်ယာလော့ဂ်ဘောက်စ် ကို ပြသပါ။<13
  • “ ToLeft ” ကိုရွေးပါ။
  • နောက်ဆုံးတွင်၊ Run ကိုနှိပ်ပါ။

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

၁.၄။ End(xlToRight) Property ကို အကောင်အထည်ဖော်ခြင်း

ဤကဏ္ဍတွင်၊ ကျွန်ုပ်တို့သည် ကျွန်ုပ်တို့၏ active cell ၏ အကွာအဝေး ကို ရွေးချယ်သွားမည်ဖြစ်ပါသည်။ .

အဆင့်များ-

  • ပထမဦးစွာ၊ Module ဝင်းဒိုးကိုတင်ပြပါ။
  • ဒုတိယအနေဖြင့်၊ အမျိုးအစား အောက်ပါ ကုဒ်။ 
1150

ကျွန်ုပ်တို့၏ Sub Procedure ToRight ကို ခေါ်နေပါသည်။ ထို့နောက် ကျွန်ုပ်တို့သည် ကျွန်ုပ်တို့၏ အပိုင်းအခြား ကို ရွေးနေပါသည်။ ပထမတန်ဖိုးမှာ ကျွန်ုပ်တို့၏ တက်ကြွသောဆဲလ် ဖြစ်သည်။ နောက်ဆုံးတန်ဖိုးမှာ ActiveCell.End(xlToRight) ဖြစ်သည်။ နောက်ဆုံးတွင်၊ ကျွန်ုပ်တို့သည် အပိုင်းအခြား ဖြင့် အပိုင်းအခြား ကို ရွေးနေပါသည်။ နည်းလမ်းကို ရွေးပါ။

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

  • ထို့နောက် Macro ဒိုင်ယာလော့ဂ်ဘောက်စ် ကို ပြသပါ။
  • “ ToRight ” ကိုရွေးပါ။
  • နောက်ဆုံးတွင်၊ Run ကိုနှိပ်ပါ။

ထို့ကြောင့်၊ ကျွန်ုပ်တို့ အပိုင်းအခြား ကို ရွေးချယ်ထားပါသည်။ Excel VBA ကိုအသုံးပြု၍ ကျွန်ုပ်တို့၏ active cell မှနေ၍

2. Active Cell မှ Range ကိုရွေးချယ်ရန် VBA Range ကိုအသုံးပြု၍ Offset Property ကိုအသုံးပြုခြင်း Excel တွင် VBA ကိုအသုံးပြုခြင်း

ဒုတိယနည်းလမ်းအတွက်၊ ကျွန်ုပ်တို့သည် ကျွန်ုပ်တို့၏ တက်ကြွဆဲလ်ကို အသုံးပြု၍ VBA Range.Offset ပိုင်ဆိုင်မှုကို အသုံးပြုသွားမည်ဖြစ်ပါသည်။ ။

အဆင့်များ-

  • ပထမဦးစွာ၊ အောက်ပါကုဒ်ကို Module ဝင်းဒိုးတွင် ရိုက်ထည့်ပါ။ 
3784

ကျွန်ုပ်တို့၏ Sub Procedure UsingOffset ကို ဖန်တီးထားပါသည်။ ထို့နောက် ကျွန်ုပ်တို့သည် ကျွန်ုပ်တို့၏ အပိုင်းအခြား ကို ရွေးနေပါသည်။ ပထမတန်ဖိုးမှာ ကျွန်ုပ်တို့၏ တက်ကြွသောဆဲလ် ဖြစ်သည်။ နောက်ဆုံးတန်ဖိုးမှာ ActiveCell.Offset (1,2) ဖြစ်သည်။ အော့ဖ်ဆက်ပိုင်ဆိုင်မှု ဖြင့် ကျွန်ုပ်တို့သည် 1 တန်းအောက်သို့ နှင့် ကော်လံ 2 ခု ညာဘက် ကိုရွှေ့နေပါသည်။ နောက်ဆုံးတွင်၊ ကျွန်ုပ်တို့သည် အပိုင်းအခြား ဖြင့် အပိုင်းအခြား ကို ရွေးနေပါသည်။ နည်းလမ်းကို ရွေးပါ။

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

  • ထို့နောက်၊ Macro ဒိုင်ယာလော့ဂ်ဘောက်စ် ကို ပြသပါ။
  • “ UsingOffset ” ကို ရွေးပါ။
  • နောက်ဆုံးတွင်၊ Run ကိုနှိပ်ပါ။

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

နောက်ထပ်ဖတ်ရန်- Excel VBA- တန်ဖိုးများဖြင့် ဆဲလ်များအကွာအဝေးကို ရယူပါ (7 ဥပမာများ)

3. CurrentRegion Property ကိုအသုံးပြုခြင်းဖြင့် Excel တွင် VBA ကိုအသုံးပြု၍ Active Cell မှ Range ကိုရွေးချယ်ပါ

နောက်ဆုံးနည်းလမ်းအတွက်၊ ကျွန်ုပ်တို့သည် Range.CurrentRegion ပိုင်ဆိုင်မှုကို အသုံးပြုပါမည်။

အဆင့်များ-

  • ပထမဦးစွာ၊ Sub ကို Module ဝင်းဒိုးတွင် အောက်ပါကုဒ်ကိုရိုက်ထည့်ပါ။ 
8196

ကျွန်ုပ်တို့၏ Sub Procedure ကိုခေါ်ဆိုပါသည်။ cRegion ။ ထို့နောက် ကျွန်ုပ်တို့သည် ကျွန်ုပ်တို့၏ အပိုင်းအခြား ကို ရွေးနေပါသည်။ CurrentRegion ပိုင်ဆိုင်မှုဖြင့်၊ ကျွန်ုပ်တို့သည် အပိုင်းအခြား အလွတ်ဆဲလ် အထိ ရွေးချယ်နေပါသည်။ နောက်ဆုံးတွင်၊ ကျွန်ုပ်တို့သည် အပိုင်းအခြား ဖြင့် အပိုင်းအခြား ကို ရွေးနေပါသည်။ နည်းလမ်းကို ရွေးပါ။

  • ဒုတိယအနေဖြင့်၊ Save ၎င်းကို Excel sheet သို့ ပြန်သွားပါ။
  • ထို့နောက်၊ cell C10 ကို ရွေးပါ။ ၎င်းသည် ကျွန်ုပ်တို့၏ တက်ကြွသောဆဲလ် ဖြစ်သည်။

  • ထို့နောက်၊ Macro ဒိုင်ယာလော့ဂ်ဘောက်စ် ကို ပြသပါ။
  • “ cRegion ” ကို ရွေးပါ။
  • နောက်ဆုံးတွင်၊ Run ကိုနှိပ်ပါ။

ထို့ကြောင့်၊ ကျွန်ုပ်တို့ အပိုင်းအခြား အပိုင်းအခြား ကို ကွက်လပ် အထိ ရွေးချယ်ထားပါသည်။

လေ့ကျင့်မှုအပိုင်း

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

နိဂုံး

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

အရင်ပို့စ် ရက်စွဲကို YYYYMMDD စာပို့နည်း (အမြန်နည်းလမ်း 3 ခု)
နောက်ပို့စ် Excel တွင် VBA DIR Function ကိုအသုံးပြုနည်း (လက်တွေ့ဥပမာ 7 ခု)

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