Vba တွင် ကြိုးတစ်ချောင်းကို ပြောင်းနည်း (ဥပမာဖြင့်)

စာသားစာကြောင်းကို ပြောင်းပြန်လှန်ရန် VBA ရှိ StrReverse လုပ်ဆောင်ချက်ကို သင် အသုံးပြုနိုင်သည်။

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

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

ဤဥပမာသည် အပိုင်းအခြား A2:A11 ရှိ စာကြောင်းတစ်ခုစီကို ပြောင်းပြန်ဖြစ်ပြီး အပိုင်းအခြား B2:B11 တွင် ရလဒ်များကို ပြသသည်။

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

ဥပမာ- VBA ကို အသုံးပြု၍ စာကြောင်းများကို ပြောင်းပြန်လုပ်နည်း

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

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

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

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

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

ကော်လံ B သည် နောက်ပြန်ကော်လံ A တွင် အသင်းအမည်တစ်ခုစီကို ပြသည်။

ဥပမာအားဖြင့်:

• Mavs သည် svaM ဖြစ်လာသည်။
• စပါးသည် SrupS ဖြစ်လာသည်။
• ဒုံးပျံများ သည် stekcoR ဖြစ်လာသည်။
• ဘုရင်များ သည် sgniK ဖြစ်လာသည်။

နောက် … ပြီးတော့။

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

ဥပမာအားဖြင့်၊ StrReverse လုပ်ဆောင်ချက်ကို နံပါတ် 1234 သို့ အသုံးချခြင်းဖြင့် 4321 သို့ ပြန်သွားမည်ဖြစ်သည်။

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

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

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