Vba တွင် exit if statement ကိုအသုံးပြုနည်း (ဥပမာနှင့်အတူ)

VBA တွင် Exit If ထုတ်ပြန်ချက်တွင် ထည့်သွင်းထားခြင်း မရှိသော်လည်း GoTo ထုတ်ပြန်ချက်နှင့်အတူ If statement ကို အသုံးပြု၍ တစ်ခုကို အလွယ်တကူ တုပနိုင်သည်။

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

ဥပမာ- VBA တွင် Exit IF ထုတ်ပြန်ချက်ကို မည်သို့အသုံးပြုရမည်နည်း။

အသုံးပြုသူကို 10 ထက်နည်းသော ကိန်းပြည့်တစ်ခုထည့်ရန် တောင်းဆိုသော မက်ခရိုတစ်ခုကို ဖန်တီးပြီး အောက်ပါအတိုင်းလုပ်ဆောင်ရန် IF ကြေညာချက်ကို အသုံးပြုပါဆိုကြပါစို့။

• ထည့်သွင်းထားသောကိန်းပြည့်သည် 10 ထက်နည်းပါက၊ ၎င်းကို 2 ဖြင့်မြှောက်ပြီး ရလဒ်ကိုဆဲလ် A1 တွင်ပြသပါ။
• ဖြည့်သွင်းထားသော ကိန်းပြည့်သည် 10 ထက်မနည်းပါက၊ IF ထုတ်ပြန်ချက်မှ ထွက်ပြီး အမှားအယွင်း မက်ဆေ့ချ်ကို ထုတ်ပါ။

ဒါကိုလုပ်ဖို့ အောက်ပါ syntax ကို သုံးနိုင်ပါတယ်။

 SubMultiplySomeValue ()

Dim inputInteger As Integer
     
'get integer from user
inputInteger = InputBox(" Please enter an integer less than 10 ")

'check if integer is less than 10
If inputInteger < 10 Then
Range(" A1 ").Value = inputInteger * 2
Else
GoTo FlagMessage
End If

FlagMessage:
MsgBox “ This number is not less than 10 ”
    
End Sub

ဤမက်ခရိုကို ကျွန်ုပ်တို့လုပ်ဆောင်သောအခါ၊ ကျွန်ုပ်တို့သည် 10 ထက်နည်းသော ကိန်းပြည့်ကို ထည့်သွင်းရန် အချက်ပြပါလိမ့်မည်။

value 5 ကို ရိုက်ထည့်ပြီး OK ကိုနှိပ်ပါဆိုပါစို့။

ဤကိန်းပြည့်သည် 10 ထက်နည်းသောကြောင့်၊ လုပ်ငန်းစဉ်ခွဲများသည် ကျွန်ုပ်တို့ထည့်သွင်းထားသောတန်ဖိုးကို 2 ဖြင့်မြှောက်ပြီး ဆဲလ် A1 တွင် ရလဒ်ကိုပြသမည်ဖြစ်သည်။

သို့သော်၊ ကျွန်ုပ်တို့အစား တန်ဖိုး 15 ကို ထည့်ဆိုပါစို့။

Excel တွင် အောက်ပါ message box ကို ကျွန်ုပ်တို့ လက်ခံရရှိပါမည်။

ကျွန်ုပ်တို့ထည့်လိုက်သောတန်ဖိုးသည် 2 နှင့် မြှောက်မည်မဟုတ်သည့်အပြင် ဆဲလ် A1 တွင် မည်သည့်ရလဒ်ကိုမျှ ပြသမည်မဟုတ်ပါ။

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

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

VBA တွင် အမှားအယွင်းရှိ၍ Sub ကို မည်သို့ထုတ်မည်နည်း။
VBA တွင် IFERROR ကိုအသုံးပြုနည်း
VBA သုံးပြီး ဖိုင်တွေကို ဘယ်လိုဖျက်မလဲ။