Excel VBA- ပွားစရာမရှိသော ကျပန်းနံပါတ် Generator (ဥပမာ 4 ခု)

Hugh West

16-10-2023 Macros & Excel VBA
  • ဒါကိုမျှဝေပါ။
Hugh West

ဤဆောင်းပါးသည် Excel တွင် VBA ကို အသုံးပြု၍ ထပ်တူထပ်မျှမရှိသော ကျပန်းနံပါတ်ထုတ်လုပ်သူ ၏ နမူနာ 4 ခုကို သရုပ်ဖော်ထားသည်။ ဤနေရာတွင် ကျွန်ုပ်တို့၏ကုဒ်ကို configure လုပ်ရန် Excel ၏ built-in Rnd လုပ်ဆောင်ချက်ကို အသုံးပြုပါမည်။ ထူးခြားသောကျပန်းနံပါတ်များထုတ်လုပ်ရန်နည်းပညာများကိုလေ့လာရန်နမူနာများကိုလေ့လာကြည့်ကြပါစို့။

အလေ့အကျင့်စာအုပ်ကိုဒေါင်းလုဒ်လုပ်ပါ

ဤဆောင်းပါးကိုဖတ်ရှုနေစဉ်လေ့ကျင့်ခန်းလုပ်ရန်စာအုပ်ကိုဒေါင်းလုဒ်လုပ်ပါ။

ထပ်တူထပ်မျှမရှိသော ကျပန်းနံပါတ်ထုတ်လုပ်သူ.xlsm

4 Excel VBA တွင် ထပ်တူထပ်မျှမရှိသော ကျပန်းနံပါတ်ထုတ်ပေးသည့်နမူနာများ

Visual Basic Editor တွင် ကုဒ်ရေးပါ

ထပ်တူများမရှိဘဲ ကျပန်းနံပါတ်များကို ထုတ်ပေးရန် ၊ ကျွန်ုပ်တို့ ဖွင့် နှင့် VBA ကို ရေးရန် လိုအပ်ပါသည်။ အမြင်အခြေခံတည်းဖြတ်မှုတွင် ကုဒ်။ အဆင့်များ သို့ သို့ the visual basic editor ကိုဖွင့်ပြီး ထိုနေရာတွင် ကုဒ်အချို့ရေးပါ။

  • <1 သို့သွားပါ။>Developer တက်ဘ်မှ Excel Ribbon ။
  • the Visual Basic ရွေးချယ်မှုကို နှိပ်ပါ။

  • အပလီကေးရှင်းများအတွက် Visual Basic ဝင်းဒိုးတွင်၊ ထည့်သွင်းရန် dropdown ကို ရွေးချယ်ရန် the Module အသစ်ကိုနှိပ်ပါ။ ရွေးချယ်မှု။

ယခု သင်၏ ကုဒ် ကို အမြင်ကုဒ်တည်းဖြတ်သူ အတွင်းသို့ ထည့်ပြီး F5 ကို နှိပ်ပါ။ ၎င်းကို run ရန်

၁။ VBA Rnd Function ကိုအသုံးပြုခြင်းဖြင့် Random နံပါတ်ကို ထပ်တူထပ်မျှမရှိစေဘဲ

Rnd function ကို Excel VBA မှ <1 တွင်အသုံးပြုသည်>0 နှင့် ကြားရှိ ကျပန်းနံပါတ် ကို ဖန်တီးပါ။ နှင့် 1 သီးသန့်။

လုပ်ဆောင်စရာ - ကျပန်းနံပါတ် 10 ကို ထုတ်လုပ်ပါ 0 နှင့် 1 အကြား ဆဲလ် A1:A10 တွင်။

ကုဒ် : အောက်ပါ ကုဒ် ကို အမြင်အခြေခံတည်းဖြတ်သူ တွင် ထည့်သွင်းပြီး F5 ကို နှိပ်ပါ။ ၎င်းကို run ရန်။ 

3721

Output - အထက်ဖော်ပြပါ ဖန်သားပြင်ဓာတ်ပုံတွင် ထူးခြားသော ကျပန်းနံပါတ် 10 ကို ပြသည် 0 နှင့် 1 ၏ အကွာအဝေးတွင်။

ကုဒ်ရှင်းလင်းချက်-

ဤကုဒ်တွင်၊ ကျွန်ုပ်တို့သည် Rnd လုပ်ဆောင်ချက် <2 ကျပန်းနံပါတ်များ ကို ဆဲလ်အကွာအဝေး A1:A10 တွင် ထည့်သွင်းရန်။ a နံပါတ်အသစ် ကိုမထည့်မီ၊ Do While Loop ကို နံပါတ် ကို <တွင် ကို အသုံးပြုခဲ့သည်။ 1>ကြိုတင်သတ်မှတ်ထားသော ဆဲလ်အကွာအဝေး (A1:A10) ၎င်းသည် ရှိနှင့်သည်ဖြစ်စေ သို့မဟုတ် မဟုတ် ။ ဆဲလ်အကွာအဝေး ရှိ ကိန်းဂဏန်း ၏ တည်ရှိမှုကို စစ်ဆေးရန်၊ တစ်ကြိမ်စီတွင်၊ ကျွန်ုပ်တို့သည် COUNTIF လုပ်ဆောင်ချက် ဖြင့် ကုဒ်ကို ပြင်ဆင်သတ်မှတ်ခဲ့သည်၊ ဤလုပ်ဆောင်ချက် မထည့်သွင်းမီ a ကျပန်းနံပါတ်အသစ် ကို စာရင်း ၏ ရှိပြီးသား နံပါတ်များကို စစ်ဆေးပါ။

ပိုမိုဖတ်ရန် : ကျပန်းနံပါတ်ကိုထုတ်လုပ်ရန် Excel ဖော်မြူလာ (ဥပမာ 5 ခု)

၂။ ထပ်တူထပ်မျှမရှိသော အောက်ပိုင်းနှင့် အထက်ပိုင်းအတွက် သတ်မှတ်ထားသော အောက်ပိုင်းနှင့် အထက်ပိုင်းအတွက် ကျပန်းနံပါတ် Generator

ကျပန်းနံပါတ်များထုတ်လုပ်ရန် သတ်မှတ်ထားသောအပိုင်းအခြား အတွင်း၊ ကျွန်ုပ်တို့ လိုအပ်သည် ကျွန်ုပ်တို့၏ VBA ကုဒ်တွင် အောက်ဘောင် နှင့် အပေါ်ဘက် ကို သတ်မှတ်ပါ။ အချက်အလက်အတွက်၊ အောက်ဘောင် သည် အနိမ့်ဆုံးနံပါတ် နှင့် အပေါ်ဘက်ဘောင် သည် နံပါတ် ဂျင်နရေတာအတွက် အကွာအဝေး တွင် အမြင့်ဆုံးနံပါတ် ဖြစ်သည်။ ကျွန်ုပ်တို့သည် အောက်ပါ ဖော်မြူလာ ကျွန်ုပ်တို့၏ကုဒ်တွင် အသုံးပြုနိုင်ပါသည်။

(အပေါ်ဘက် – အောက်ဘောင် + 1) * Rnd + အောက်ဘောင်

2.1 ကျပန်း Number Generator- Decimal

Task : ကျပန်းနံပါတ် 10 ကို 10 နှင့် 20 ကြားတွင် > ဆဲလ် A1:A10။

ကုဒ် - အောက်ပါ ကုဒ် ကို အမြင်အခြေခံတည်းဖြတ်သူ တွင် ထည့်သွင်းပြီး F5 ကို နှိပ်ပါ။ ၎င်းကို run ရန်။ 

3071

Output - အထက်ဖော်ပြပါ ဖန်သားပြင်ဓာတ်ပုံတွင် ထူးခြားသော ကျပန်းနံပါတ် 10 ကို ပြသည် 1 နှင့် 10 ၏ အပိုင်းအခြားအတွင်း။

2.2 ကျပန်းနံပါတ် Generator- Integer

ဤပုံဥပမာတွင်၊ ကျွန်ုပ်တို့သည် <1 ကိုအသုံးပြုပါမည်> VBA Int လုပ်ဆောင်ချက် အပိုင်း အပိုင်း ကို ကျပန်း ဂဏန်းများ မှ ဖယ်ရှားရန်

Task : ကျပန်း ကိန်းပြည့် 20 ကို 1 နှင့် 20 ကြားရှိ ဆဲလ် A1:B10 တွင် ဖန်တီးပါ။

ကုဒ် - အောက်ပါ ကုဒ် ကို အမြင်အခြေခံတည်းဖြတ်သူ တွင် ထည့်သွင်းပြီး F5 ကို နှိပ်ပါ။ ၎င်းကို run ရန်။ 

8478

Output - အထက်ဖော်ပြပါ ဖန်သားပြင်ဓာတ်ပုံတွင် ထူးခြားသောကျပန်း ကိန်းပြည့် 20 နံပါတ် 1 နှင့် 20 ၏ အပိုင်းအခြားအတွင်း။

နောက်ထပ်ဖတ်ရန်- ထပ်မထပ်ဘဲ Excel တွင် ကျပန်းနံပါတ်ထုတ်ပေးခြင်း (နည်းလမ်း 9 ခု)

အလားတူစာဖတ်ခြင်း

  • Excel တွင် ဒေတာခွဲခြမ်းစိတ်ဖြာမှုတူးလ်နှင့် လုပ်ဆောင်ချက်များပါရှိသော ကျပန်းနံပါတ်ထုတ်ပေးခြင်း
  • လုပ်နည်း Excel တွင် Random Data ကိုဖန်တီးပါ (၉လွယ်ကူသောနည်းလမ်းများ)
  • Excel တွင်ကျပန်း 5 ဂဏန်းနံပါတ်ထုတ်ပေးခြင်း (ဥပမာ 7 ခု)
  • Excel တွင်ကျပန်း 4 လုံးနံပါတ်ထုတ်ပေးခြင်း (ဥပမာ 8 ခု)
  • Excel တွင်စာရင်းမှကျပန်းနံပါတ်ကိုထုတ်ပေးပါ (4 နည်းလမ်းများ)

၃။ Excel VBA တွင် Unique Random Number Generator အတွက် Decimal Places ကိုသတ်မှတ်ပါ

ကျွန်ုပ်တို့ သတ်မှတ်ရန်အတွက် ကုဒ်ရှိ Round function ကို အသုံးပြုနိုင်ပါသည်။ နံပါတ် ၏ ဒဿမနေရာများ တွင် ကျပန်းထုတ်လုပ်ထားသော ထူးခြားသောနံပါတ်များ ။ function ၏ syntax သည်-

Round(expression, [numdecimalplaces])

ကျွန်ုပ်တို့ သတ်မှတ်ရန် လိုအပ်သည် ကျွန်ုပ်တို့၏ လိုအပ်ချက် အရ ဒုတိယအငြင်းအခုံ ။

လုပ်ငန်း - ဒဿမ 2 နေရာ ကြား <1 ကြားတွင် ကျပန်းနံပါတ် 20 ကို ဖန်တီးပါ။ ဆဲလ် A1:B10 ရှိ>1 နှင့် 20 ။

ကုဒ် - အောက်ပါ ကုဒ် ကို အမြင်အခြေခံတည်းဖြတ်သူ တွင် ထည့်သွင်းပြီး F5 ကို နှိပ်ပါ။ ၎င်းကို run ရန်။ 

5616

Output : အထက်ဖော်ပြပါ ဖန်သားပြင်ဓာတ်ပုံတွင် ထူးခြားသောကျပန်းကိန်းပြည့် 20 ဂဏန်းများကို ပြသသည် 1 နှင့် 20 ၏ အကွာအဝေးရှိ ဒဿမ 2 နေရာ ။

ပိုမိုဖတ်ရန်- ဒဿမများဖြင့် Excel တွင် ကျပန်းနံပါတ်ထုတ်ပေးပါ (နည်းလမ်း 3 ခု)

၄။ Excel VBA တွင် ထပ်တူထပ်မျှမရှိသော ကျပန်းနံပါတ် Generator အတွက် အသုံးပြုသူဖောင်ပုံစံကို ဖန်တီးပါ

ဤပုံဥပမာတွင်၊ UserForm တွင် တွင် အသုံးပြုနည်းကို ပြပါမည်။>Excel VBA ဖြင့် ကျပန်းနံပါတ်များကို ထုတ်လုပ်ရန် ထပ်နေခြင်းမရှိပါ ။

လုပ်ဆောင်စရာ- ထုတ်လုပ်ရန်ကျပန်းနံပါတ် 20 ဆဲလ်အကွာအဝေး A1:B10 အသုံးပြုသူဖောင် ထည့်သွင်းမှုတန်ဖိုးများ (i) အောက်ဘောင် (ii) ကို အသုံးပြု၍ အပေါ်ဘက် (iii) ဒဿမနေရာ အရေအတွက်။

အသုံးပြုသူဖောင်ကိုဖန်တီးပါ-

အသုံးပြုသူဖောင် ကျွန်ုပ်တို့၏ လိုချင်သောထည့်သွင်းမှုအကွက်များ ဖြင့် အောက်ပါအဆင့်များကို လိုက်နာပါ။

  • Developer Tab သို့သွားပါ Excel Ribbon ။
  • the Visual ကိုနှိပ်ပါ အခြေခံရွေးချယ်မှု။

  • Visual Basic For Applications ဝင်းဒိုးတွင်၊ ထည့်သွင်းရန် လျှော့နည်းကို နှိပ်ပါ <2 သို့ the UserForm ရွေးချယ်ခွင့်ကို ရွေးပါ။

  • UserForm တွင် ထည့်ပါ။ label တစ်ခု။
  • ဂုဏ်သတ္တိများတွင် အညွှန်း အဖြစ် LowerBound အဖြစ် စာတန်းထိုးပါ။

  • နှစ်ခု နောက်ထပ် အညွှန်း အမည် Upperbund နှင့် DecimalPlaces ကိုထည့်ပါ။

  • ယခု TextBox သုံးခု ကို UserForm တွင်ထည့်ပါ။

  • ဤအဆင့်တွင်၊ a CommandButton ကိုထည့်ကာ ထုတ်လုပ်ရန် ဟုအမည်ပေးလိုက်ပါ။

  • ယခု၊ နှစ်ချက် CommandButton ကို နှစ်ချက်နှိပ်ပြီး အောက်ပါ ကုဒ် ကို ကုဒ်တည်းဖြတ်သူ တွင် ထည့်ပါ။ 
7191

  • F5 ကိုနှိပ်ပါ run the ကုဒ် နှင့် UserForm တွင် ပေါ်လာသည် ။
  • အောက်ဘက်ဘောင် ၊ အပေါ်ဘက်ဘောင်၊ နှင့် နံပါတ် <ကိုထည့်ပါ။ 2> ဒဿမနေရာများ UserForm ရှိ Generate ကိုနှိပ်ပါ။ခလုတ် ။

Output - ဆဲလ် A1:B10 တွင်၊ ကျပန်း 20 ရှိသည် ဂဏန်းများ နှင့်အတူ ဒဿမ 2 နေရာ နှင့် အပိုင်းအခြား 1 မှ 30 အတွင်း။

ဆက်ရန်- Excel တွင် ထပ်တူများမပါဘဲ ကျပန်းနံပါတ်များကို ထုတ်ပေးနည်း (7 နည်း)

မှတ်သားစရာများ

  • ကျွန်ုပ်တို့သည်လည်း အသုံးပြုနိုင်သည်။ Fix function အစား Int function အစား ထူးခြားသော ကိန်းပြည့် ကို ထုတ်ပေးပါသည်။ လုပ်ဆောင်ချက် သည် အပိုင်းကိန်း နံပါတ် ၏ Int function ကဲ့သို့ပင် ဖယ်ရှားသည်။

နိဂုံးချုပ်

ယခု၊ ကျွန်ုပ်တို့သည် သင့်လျော်သောဥပမာများ၏အကူအညီဖြင့် Excel တွင် VBA ကို အသုံးပြု၍ ထူးခြားသောကျပန်းနံပါတ်များကို မည်သို့ထုတ်လုပ်ရမည်ကို ကျွန်ုပ်တို့သိပါသည်။ လုပ်ဆောင်ချက်ကို ပိုမိုယုံကြည်စိတ်ချစွာ အသုံးပြုနိုင်ရန် ကူညီပေးလိမ့်မည်ဟု မျှော်လင့်ပါသည်။ မေးခွန်းများ သို့မဟုတ် အကြံပြုချက်များအား အောက်ပါ comment box တွင် ထားရန် မမေ့ပါနှင့်။

အရင်ပို့စ် Excel တွင် ကော်လံ 2 ခု အေးခဲနည်း (နည်းလမ်း 5 ခု)
နောက်ပို့စ် Excel တွင် ဆဲလ်တစ်ခုမှ စာသားကို ထုတ်ယူနည်း (၅ နည်းလမ်း)

Hugh West သည် လုပ်ငန်းနယ်ပယ်တွင် အတွေ့အကြုံ 10 နှစ်ကျော်ရှိသော Excel သင်တန်းဆရာနှင့် ခွဲခြမ်းစိတ်ဖြာသူဖြစ်သည်။ စာရင်းကိုင်နှင့် ဘဏ္ဍာရေးဆိုင်ရာဘွဲ့နှင့် စီးပွားရေးစီမံခန့်ခွဲမှု မဟာဘွဲ့တို့ကို ရရှိထားသူဖြစ်သည်။ Hugh သည် သင်ကြားရေးကို ဝါသနာပါပြီး လိုက်နာရန်နှင့် နားလည်ရန်လွယ်ကူသော ထူးခြားသောသင်ကြားရေးနည်းလမ်းကို တီထွင်ခဲ့သည်။ Excel ၏ ကျွမ်းကျင်သော အသိပညာသည် ကမ္ဘာတစ်ဝှမ်းရှိ ထောင်ပေါင်းများစွာသော ကျောင်းသားများနှင့် ပရော်ဖက်ရှင်နယ်များကို ၎င်းတို့၏ ကျွမ်းကျင်မှုနှင့် ၎င်းတို့၏ အသက်မွေးဝမ်းကြောင်းတွင် ထူးချွန်အောင် ကူညီပေးခဲ့သည်။ သူ၏ဘလော့ဂ်မှတစ်ဆင့်၊ Hugh သည် လူတစ်ဦးချင်းစီနှင့် လုပ်ငန်းများ၏ အလားအလာများ ပြည့်မီစေရန်အတွက် အခမဲ့ Excel သင်ခန်းစာများနှင့် အွန်လိုင်းသင်တန်းများကို ပေးဆောင်ကာ သူ၏အသိပညာကို ကမ္ဘာနှင့်မျှဝေပါသည်။