Vba တွင် factorial function တစ်ခုဖန်တီးနည်း (ဥပမာနှင့်အတူ)


Factorial ဆိုသည်မှာ ပေးထားသော အပေါင်းကိန်းပြည့်ထက် နည်းသော သို့မဟုတ် အပြုသဘောဆောင်သော ကိန်းပြည့်အားလုံး၏ ရလဒ်ဖြစ်သည်။

ဥပမာအားဖြင့်၊ 5 factorial (5 ဟုရေးထားသော!) ကို အောက်ပါအတိုင်း တွက်ချက်သည်။

  • ၅! = 5 * 4 * 3 * 2 * 1 = 120

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

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

ဤလုပ်ဆောင်ချက်ကို သင်ဖန်တီးပြီးသည်နှင့်၊ သင်သည် ဆဲလ် A2 တွင် ကိန်းပြည့်ကိန်းဂဏန်းကို ရှာဖွေရန် Excel ရှိ ဆဲလ်တစ်ခုထဲသို့ =FindFactorial(A2) ကဲ့သို့ တစ်ခုခုကို ရိုက်ထည့်နိုင်သည်။

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

ဥပမာ- VBA တွင် Factorial Function တစ်ခုကို ဖန်တီးပါ။

Excel တွင် ကျွန်ုပ်တို့တွင် အောက်ပါနံပါတ်များစာရင်းရှိပြီး ဂဏန်းတစ်ခုစီ၏ factorial ကိုတွက်ချက်လိုသည်ဆိုပါစို့။

ဒါကိုလုပ်ဖို့ VBA မှာ အောက်ပါလုပ်ဆောင်ချက်ကို ကျွန်ုပ်တို့ သတ်မှတ်နိုင်ပါတယ်။

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

ဤလုပ်ဆောင်ချက်ကို ဖန်တီးပြီးသည်နှင့်၊ ဆဲလ် A2 ရှိ တန်ဖိုး၏ factorial ကိုတွက်ချက်ရန် အောက်ပါဖော်မြူလာကို ဆဲလ် B2 တွင် ရိုက်ထည့်နိုင်သည် ။

 =FindFactorial( A2 )

ထို့နောက် ကျွန်ုပ်တို့သည် ဤဖော်မြူလာကို ကော်လံ B ရှိ ကျန်ဆဲလ်တစ်ခုစီသို့ နှိပ်ပြီး ဆွဲယူနိုင်သည်-

VBA တွင် factorial လုပ်ဆောင်မှု

ယခု ကော်လံ B သည် ကော်လံ A တွင် ကိန်းပြည့်တစ်ခုစီ၏ ကိန်းပြည့်ကို ပြသသည်ကို သတိပြုပါ။

ဥပမာအားဖြင့်:

  • ၁။ =
  • ၂ = 2 * 1 = 2
  • ၃။ = 3 * 2 * 1 = 6
  • 4 = 4 * 3 * 2 * 1 = 24

နောက် … ပြီးတော့။

မှတ်ချက် – VBA မသုံးဘဲ Excel တွင် factorial တစ်ခုကို တွက်ချက်ရန် FACT လုပ်ဆောင်ချက်ကို သင်အသုံးပြုနိုင်ပါသည်။

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

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

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

မှတ်ချက်တစ်ခုထည့်ပါ။

သင့် email လိပ်စာကို ဖော်ပြမည် မဟုတ်ပါ။ လိုအပ်သော ကွက်လပ်များကို * ဖြင့်မှတ်သားထားသည်