Vba တွင် အတိုင်းအတာတစ်ခုအား မည်သို့ကူးပြောင်းနည်း (ဥပမာနှင့်အတူ)


VBA ကို အသုံးပြု၍ အပိုင်းအခြားတစ်ခုကို ကူးပြောင်းရန် အောက်ပါအခြေခံ syntax ကို သင်အသုံးပြုနိုင်သည်-

 SubTransposeRange ()

    'specify range to transpose
    MyRange = Range(" A1:B5 ")
    
    'find dimensions of range
    XUpper = UBound(MyRange, 1)
    XLower = LBound(MyRange, 1)
    YUpper = UBound(MyRange, 2)
    YLower = LBound(MyRange, 2)
    
    'transpose range
    Range(" D1 ").Resize(YUpper - YLower + 1, XUpper - XLower + 1).Value = _
      WorksheetFunction.Transpose(MyRange)
      
End Sub

ဤဥပမာသည် အပိုင်းအခြား A1:B5 အတွင်းရှိ ဆဲလ်များကို အသွင်ပြောင်းပြီး ဆဲလ် D1 တွင် စတင်သည့် အသွင်ပြောင်းသည့်အပိုင်းကို ပြသမည်ဖြစ်သည်။

အောက်ဖော်ပြပါ ဥပမာသည် ဤ syntax ကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို ပြသထားသည်။

ဥပမာ- VBA တွင် အပိုင်းအခြားတစ်ခုကို မည်သို့ကူးပြောင်းမည်နည်း။

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

ကျွန်ုပ်တို့သည် အပိုင်းအခြား A1:B5 ကို ကူးပြောင်းလိုပြီး ဆဲလ် D1 တွင် စတင်သည့် အသွင်ပြောင်းသည့်အပိုင်းကို ပြသလိုသည်ဆိုကြပါစို့။

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

 SubTransposeRange ()

    'specify range to transpose
    MyRange = Range(" A1:B5 ")
    
    'find dimensions of range
    XUpper = UBound(MyRange, 1)
    XLower = LBound(MyRange, 1)
    YUpper = UBound(MyRange, 2)
    YLower = LBound(MyRange, 2)
    
    'transpose range
    Range(" D1 ").Resize(YUpper - YLower + 1, XUpper - XLower + 1).Value = _
      WorksheetFunction.Transpose(MyRange)
      
End Sub

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

ဆဲလ် D1 တွင် စတင်ပြသသည့် အပိုင်းအခြားကို သတိပြုပါ။

တစ်နည်းအားဖြင့် အတန်းများနှင့် ကော်လံများသည် ပြောင်းပြန်ဖြစ်သည်။

မတူညီသောအကွာအဝေးကို ကူးပြောင်းရန်၊ မက်ခရိုတွင် A1:B5 ကို မတူညီသောအကွာအဝေးဖြင့် အစားထိုးပါ။

မှတ်ချက် – VBA Transpose နည်းလမ်းအတွက် စာရွက်စာတမ်းအပြည့်အစုံကို ဤနေရာတွင် ရှာနိုင်သည်။

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

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

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

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

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