Vba တွင် case statement တစ်ခုကို ဘယ်လိုရေးရမလဲ (ဥပမာနှင့်အတူ)

case statement သည် အခြေအနေများကို လည်ပတ်ပြီး ပထမအခြေအနေနှင့် ကိုက်ညီသောအခါ တန်ဖိုးကို ပြန်ပေးသည့် ကြေငြာချက်အမျိုးအစားတစ်ခုဖြစ်သည်။

VBA တွင် case statement တစ်ခုရေးရန် အောက်ပါအခြေခံ syntax ကိုသုံးနိုင်သည်။

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

ဤဥပမာသည် အပိုင်းအခြား B2:B9 ရှိ ဆဲလ်တစ်ခုစီကို ကြည့်ရှုပြီး အပိုင်းအခြား C2:C9 အတွင်းရှိ အောက်ပါတန်ဖိုးများကို ပြန်ပေးသည်။

• ကော်လံ B ရှိ တန်ဖိုးသည် 30 ထက် ကြီးသည် သို့မဟုတ် ညီမျှပါက ” Excellent “
• မဟုတ်ပါက ကော်လံ B မှ တန်ဖိုးသည် 20 ထက် ကြီးနေပါက ” ကောင်း “ ။
• မဟုတ်ပါက ကော်လံ B ရှိ တန်ဖိုးသည် 15 ထက် ကြီးသည် သို့မဟုတ် ညီမျှပါက ” OK ” ။
• သို့မဟုတ်ပါက ယခင်အခြေအနေများနှင့် မကိုက်ညီပါက ” မကောင်း “ ။

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

ဥပမာ- VBA တွင် Case Statement ရေးခြင်း။

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

ရမှတ်အရေအတွက်ပေါ်မူတည်၍ ကစားသမားတစ်ဦးစီအား Excellent, Good, OK, သို့မဟုတ် Poor တန်ဖိုးသတ်မှတ်ရန် case statement ရေးလိုသည်ဆိုပါစို့။

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

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

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

ကော်လံ C သည် ကော်လံ B ရှိ သက်ဆိုင်ရာတန်ဖိုးအပေါ် အခြေခံ၍ Excellent၊ Good၊ OK သို့မဟုတ် Poor တန်ဖိုးကို ပြန်ပေးသည်။

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

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

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