Vba function မှ တန်ဖိုးတစ်ခုကို မည်သို့ပြန်ရမည်နည်း။ (ဥပမာများနှင့်အတူ)

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

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

 Function DivideValues(x,y)
    DivideValues = x / y
End Function

ဤလုပ်ဆောင်ချက်၏အမည်သည် DivideValues ဖြစ်သည်၊ ထို့ကြောင့် ဤလုပ်ဆောင်ချက်မှတန်ဖိုးတစ်ခုကိုပြန်ရရန် ကျွန်ုပ်တို့သည် x/y ၏ရလဒ်ကို DivideValues မှအမည်တူကွဲလွဲချက်တစ်ခုသို့ သတ်မှတ်ရန်လိုအပ်သည်။

အကယ်၍ သင့်လုပ်ဆောင်ချက်တွင် If Else logic ပါ၀င်ပါက၊ သင်သည် လုပ်ဆောင်ချက်အမည်အား အကြိမ်ပေါင်းများစွာ တန်ဖိုးသတ်မှတ်ပေးနိုင်ပါသည်။

ဥပမာအားဖြင့်၊ သင်သည် သုညဖြင့် ပိုင်းခြားရန် ကြိုးစားပါက၊ သို့မဟုတ် ပိုင်းခြားမှု၏ ရလဒ်ကို ရိုးရိုးပြန်ပေးမည်ဆိုပါက သင်သည် “ သုညဖြင့် မဝေခွဲနိုင်ပါ” ကို ပြန်ပေးသည့် အောက်ပါ function ကို ဖန်တီးနိုင်ပါသည်။

 Function DivideValues(x,y)
    If y = 0 Then
      DivideValues = " Cannot divide by zero "
    Else
      DivideValues = x / y
    End If
End Function

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

ဥပမာ- VBA လုပ်ဆောင်ချက်မှ တန်ဖိုးတစ်ခုကို မည်သို့ပြန်ရမည်နည်း။

cell A2 ၏တန်ဖိုးကို cell B2 ၏တန်ဖိုးဖြင့်ခွဲရန် VBA တွင် function တစ်ခုကိုဖန်တီးလိုသည်ဆိုပါစို့။

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

 Function DivideValues(x,y)
    DivideValues = x / y
End Function

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

လုပ်ဆောင်ချက်သည် 5 ၏တန်ဖိုးဖြစ်ပြီး 50 ၏ရလဒ်ဖြစ်သည့် 10 ဖြင့်ပြန်ပေးသည်။

ကျွန်ုပ်တို့ ခွဲဝေပေးနေသော တန်ဖိုးသည် သုညနှင့် မညီမျှခြင်း ရှိ၊

 Function DivideValues(x,y)
    If y = 0 Then
      DivideValues = " Cannot divide by zero "
    Else
      DivideValues = x / y
    End If
End Function

ကျွန်ုပ်တို့သည် ဆဲလ် B2 တွင် တန်ဖိုးကို ပြောင်းလဲပြီးနောက် ပိုင်းခြားမှုကို လုပ်ဆောင်ရန် ဤလုပ်ဆောင်ချက်ကို အသုံးပြုပါက၊ ကျွန်ုပ်တို့သည် အောက်ပါရလဒ်ကို ရရှိလိမ့်မည်-

သုညဖြင့် ပိုင်းခြားရန် ကြိုးစားသောကြောင့် “ သုညဖြင့် မခွဲနိုင်” ကို လုပ်ဆောင်ချက်ဖြင့် ပြန်ပေးပါသည်။

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

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

VBA တွင် ကုဒ်တစ်တုံးကို မှတ်ချက်ပေးနည်း
VBA ကို အသုံးပြု၍ ဖိုင်ရှိမရှိ စစ်ဆေးနည်း
VBA ကို အသုံးပြု၍ ဖိုင်တွဲများဖန်တီးနည်း