Vba- စာကြောင်းတစ်ခုမှ ဇာတ်ကောင်များကို ဖယ်ရှားနည်း

string တစ်ခုမှ စာလုံးများကို ဖယ်ရှားရန် VBA တွင် Replace() method ကို သုံးနိုင်သည်။

အောက်ဖော်ပြပါနမူနာများသည် Excel ရှိ အောက်ပါစာကြောင်းများစာရင်းဖြင့် ဤနည်းလမ်းကို လက်တွေ့အသုံးပြုနည်းကို ပြသသည်-

ဥပမာ 1- စာကြောင်းတစ်ခုရှိ ဇာတ်ကောင်များ၏ ဖြစ်ပျက်မှုအားလုံးကို ဖယ်ရှားရန် (အသေးအဖွဲ) ကို ဖယ်ရှားရန် VBA ကို အသုံးပြုပါ။

စာကြောင်းတစ်ခုစီမှ “ ဤ” ကို ဖယ်ရှားလိုသည်ဟု ဆိုကြပါစို့။

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

 Sub RemoveChar()
Dim i As Integer

For i = 2 To 8
    Range(" B " & i) = Replace(Range(" A " & i), " this ", "")
Next i
End Sub

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

ကော်လံ B သည် ကော်လံ A ရှိ ကြိုးတစ်ချောင်းစီကို “ ဤ” ဖယ်ရှားခြင်းတစ်ခုစီဖြင့် ပြသသည်။

ဤ macro သည် case sensitive ဖြစ်သည်ကို သတိပြုပါ။

ဆိုလိုသည်မှာ “ဤ” ဖြစ်ပျက်မှုတိုင်းကို ဖယ်ရှားလိုက်သော်လည်း “ဤ” ဖြစ်ပျက်မှုတိုင်းသည် အထီးကျန်နေပါသည်။

ဥပမာ 2- string တစ်ခုရှိ ဇာတ်ကောင်များ၏ ဖြစ်ပျက်မှုအားလုံးကို ဖယ်ရှားရန် VBA ကိုသုံးပါ (စာလုံးအသေးမပါသော)

စာကြောင်းတိုင်းမှ “ ဤ” (မည်သည့်ကိစ္စမဆို) ကိုဖယ်ရှားလိုသည်ဟုဆိုကြပါစို့။

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

 SubRemoveChar ()
Dim i As Integer

For i = 2 To 8
    Range(" B " & i) = Replace(LCase(Range(" A " & i)), " this ", "")
Next i
End Sub

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

ကော်လံ B သည် ကော်လံ A ရှိ ကြိုးတစ်ချောင်းစီကို “ ဤ” ဖယ်ရှားခြင်းတစ်ခုစီဖြင့် ပြသသည်။

ဤအစားထိုးမှုသည် case sensitive မဟုတ်ကြောင်း သတိပြုပါ။

ဆိုလိုသည်မှာ “ ဤ” ၏ဖြစ်ပျက်မှုတိုင်း (စာလုံးကြီးဖြစ်စေမဖြစ်စေ) ကိုဖယ်ရှားသည်။

စာကြောင်းတစ်ခုစီရှိ “ ဤ” ကိုမရှာဖွေမီ ကော်လံ A ရှိ စာကြောင်းတစ်ခုစီကို စာလုံးသေးအဖြစ်သို့ ဦးစွာပြောင်းလဲရန် LCase နည်းလမ်းကို အသုံးပြုခြင်းဖြင့် ၎င်းကို အောင်မြင်နိုင်ခဲ့သည်။

ဥပမာ 3- string တစ်ခုရှိ ဇာတ်ကောင်၏ ပထမဆုံး N ဖြစ်ပေါ်မှုကို ဖယ်ရှားရန် VBA ကို အသုံးပြုပါ။

string တစ်ခုစီမှ “ ဤ” (မည်သည့်ကိစ္စမဆို) ၏ပထမဆုံးဖြစ်ပေါ်မှုကိုသာ ဖယ်ရှားလိုသည်ဆိုကြပါစို့။

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

 SubRemoveChar ()
Dim i As Integer

For i = 2 To 8
    Range(" B " & i) = Replace(LCase(Range(" A " & i)), " this ", "", Count:=1)
Next i
End Sub

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

ကော်လံ B သည် ကော်လံ A ရှိ ကြိုးတစ်ချောင်းစီကို “ ဤ” ၏ ပထမအကြိမ်အဖြစ် ဖယ်ရှားပြီးမှသာ ပြသသည်။

သတ်မှတ်ထားသောစာကြောင်းတစ်ခု၏ပထမဆုံးဖြစ်ပေါ်မှုကိုသာဖယ်ရှားရန် Count:=1 ကို အသုံးပြုခဲ့သည်ကို သတိပြုပါ၊ သို့သော် သင်သည် သတ်မှတ်ထားသောစာကြောင်း၏ပထမ n ဖြစ်ပျက်မှုအစား သင်ဖယ်ရှားလိုသည့်တန်ဖိုးတစ်ခုခုဖြင့် 1 ကိုအစားထိုးနိုင်သည်။

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

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

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

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