Vba- အပိုင်းအခြားတစ်ခုမှ အတန်းနံပါတ်ကို မည်သို့ရယူရမည်နည်း။


VBA ကို အသုံးပြု၍ Excel ရှိ အပိုင်းအခြားတစ်ခုမှ အတန်းနံပါတ်တစ်ခုရရှိရန် အောက်ပါနည်းလမ်းများကို သင်အသုံးပြုနိုင်သည်-

နည်းလမ်း 1- သတ်မှတ်ထားသော အပိုင်းအခြားတစ်ခုမှ အတန်းနံပါတ်ကို ရယူပါ။

 SubGetRowNumber ()

rowNum = Range(" D7 ").Row
MsgBox rowNum

End Sub

ဤ Macro သည် 7 ဖြစ်မည့် cell D7 နှင့် ကိုက်ညီသော လိုင်းနံပါတ်ပါသည့် မက်ဆေ့ဘောက်စ်တစ်ခုကို ပြသပါမည်။

နည်းလမ်း 2- လက်ရှိရွေးချယ်ထားသော အပိုင်းအခြား၏ အတန်းနံပါတ်ကို ရယူပါ။

 SubGetRowNumber ()

rowNum = Selection.Row
MsgBox rowNum

End Sub

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

ဥပမာအားဖြင့်၊ သင်သည် ဤ macro ကို run သောအခါ cell B3 ကို ရွေးထားပါက၊ value 3 နှင့် message box ပေါ်လာပါမည်။

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

ဥပမာ 1- သတ်မှတ်ထားသော အပိုင်းအခြားမှ အတန်းနံပါတ်ကို ရယူပါ။

ဆဲလ်ကိုးကားမှု D7 အတွက် အတန်းနံပါတ်ကို ကျွန်ုပ်တို့ ရယူလိုသည်ဆိုပါစို့။

ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။

 SubGetRowNumber ()

rowNum = Range(" D7 ").Row
MsgBox rowNum

End Sub

ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

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

ဥပမာ 2- လက်ရှိရွေးချယ်ထားသော အပိုင်းအခြား၏ အတန်းနံပါတ်ကို ရယူပါ။

လက်ရှိအသုံးပြုနေသည့်ဆဲလ်၏ အတန်းနံပါတ်ကို ရယူလိုသည်ဆိုပါစို့။

ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။

 SubGetRowNumber ()

rowNum = Selection.Row
MsgBox rowNum

End Sub

ဆဲလ် B3 ကို လောလောဆယ် ရွေးချယ်ထားသည်ဟု ယူဆပါ။

ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

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

ထပ်လောင်းအရင်းအမြစ်များ

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

VBA- အပိုင်းအခြားရှိ အတန်းအရေအတွက်ကို ရေတွက်နည်း
VBA- မြင်နိုင်သောလိုင်းများကို အခြားစာရွက်သို့ ကူးယူနည်း
VBA- လိုင်းများကို မီးမောင်းထိုးပြနည်း

မှတ်ချက်တစ်ခုထည့်ပါ။

သင့် email လိပ်စာကို ဖော်ပြမည် မဟုတ်ပါ။ လိုအပ်သော ကွက်လပ်များကို * ဖြင့်မှတ်သားထားသည်