Vba ကို အသုံးပြု၍ strings များကို သင့်လျော်သော case သို့ မည်သို့ပြောင်းမည်နည်း။

string တစ်ခု စီ ရှိ စာလုံးတစ်လုံးစီ၏ ပထမစာလုံးသည် စာလုံးကြီးဖြစ်ပြီး စကားလုံးတစ်လုံးစီ၏ အခြားစာလုံးအားလုံးသည် စာလုံးအသေးဖြစ်နေပါက string သည် စာလုံးအသေးဖြစ်သည်။

VBA တွင် အောက်ပါ syntax ကို အသုံးပြု၍ ဆဲလ်များ၏ အကွာအဝေးကို strings များဖြင့် မှန်ကန်သော case အဖြစ်သို့ ပြောင်းနိုင်သည်-

 Sub ConvertToProperCase()
    
    Dim i As Integer

    For i = 2 To 10
        Range(" B " & i) = StrConv(Range(" A " & i), vbProperCase)
    Next i
    
End Sub

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

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

ဥပမာ- VBA ကို အသုံးပြု၍ Strings များကို မှန်ကန်သော Case သို့ ပြောင်းပါ။

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

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

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

 Sub ConvertToProperCase()
    
    Dim i As Integer

    For i = 2 To 10
        Range(" B " & i) = StrConv(Range(" A " & i), vbProperCase)
    Next i
    
End Sub

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

ကော်လံ B သည် သင့်လျော်သောကိစ္စတွင် ကော်လံ A ရှိ စာကြောင်းတစ်ခုစီကို ပြသသည်။

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

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

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

VBA တွင် စာကြောင်းများကို နှိုင်းယှဉ်နည်း
VBA ရှိ စာကြောင်းတစ်ခုမှ space များကိုမည်သို့ဖယ်ရှားနည်း
VBA တွင် string တစ်ခုရှိ စာလုံးများကို အစားထိုးနည်း