VBA မှတဆင့် Excel Worksheet တွင် Lucky Draw ပြုလုပ်နည်း

Excel worksheet တွင်လည်း ကံစမ်းမဲများ ပြုလုပ်နိုင်သည်။ ဤစာရေးခြင်းအပိုင်းတွင်၊ ဤလုပ်ငန်းကို Excel တွင် မည်သို့ အပြီးသတ်ရမည်ကို သင့်အား ပြသပါမည်။

Lucky Draw သည် ကျွန်ုပ်တို့၏နေ့စဉ်ဘဝတွင် အဖြစ်များပါသည်။ ဥပမာအားဖြင့်၊ သင်သည် တစ်နှစ်ကုန်တွင် ဝန်ထမ်းများအား ဘောနပ်စ်များ ပေးရမည်။ သင်ကံကောင်းသော ၀န်ထမ်းအချို့ကို ကျပန်းရွေးချယ်လိုပါသည်။ ထို့ကြောင့်၊ သင်သည် Excel ဖိုင်ကို အသုံးပြု၍ ကံစမ်းမဲများ ပြုလုပ်နိုင်သည်။

Lucky Draw ပြုလုပ်ပါ။

ဒီအပိုင်းမှာတော့ နည်းလမ်းတွေကို အသေးစိတ် မိတ်ဆက်ပေးပါမယ်။

1. ဝန်ထမ်းများ၏ အချက်အလက်အားလုံးဖြင့် Excel ဖိုင်ကိုဖွင့်ပါ။ ဤဥပမာတွင်၊ အလုပ်စာရွက်တွင် ဝန်ထမ်း ၁၈ ဦးရှိသည်။ လက်ရှိ ဘောနပ်စ်များကို ၎င်းတို့၏ အရောင်းပမာဏအရ တွက်ချက်ပါသည်။
2. ထို့နောက် Visual Basic တည်းဖြတ်မှုကိုဖွင့်ရန် ကီးဘုတ်ပေါ်ရှိ “Alt + F11” ဖြတ်လမ်းခလုတ်များကို နှိပ်ပါ။
3. ထို့နောက် တည်းဖြတ်သူတွင် module အသစ်တစ်ခုကို ထည့်သွင်းပါ။
4. ဤအဆင့်တွင်၊ မော်ဂျူးအသစ်သို့ အောက်ပါကုဒ်များကို ကူးယူပါ-

Sub MakeLuckyDraw()
  Dim nNumber As Integer, nRowIndex As Integer

  'Generate a random number
  nNumber = Int(Rnd() * (19 - 2 + 1)) + 2

  'Go through the list
  For nRowIndex = 2 To 19
    If nRowIndex = nNumber Then
      MsgBox "The lucky one is " & Cells(nRowIndex, 1).Value
    End If
  Next nRowIndex
End Sub

ဤကုဒ်များတွင် ဖော်မြူလာ “Int(Rnd() * (19 – 2 + 1)) + 2” သည် ကျပန်းနံပါတ်သည် 2-19 အတွင်း ဖြစ်မည်ကို သေချာစေသည်။ သင့်လိုအပ်ချက်အရ ဖော်မြူလာကိုလည်း ပြင်ဆင်နိုင်သည်။

အမှန်တကယ်တွင်၊ နံပါတ်တစ်ခုထုတ်လုပ်ရန် အထက်ဖော်ပြပါပုံသေနည်းမှလွဲ၍ သင်သည် အလုပ်စာရွက်လုပ်ဆောင်ချက် “RandBetween” ကို အသုံးပြုနိုင်သည်။ ပြီးတော့ module ထဲက codes တွေကိုလဲ ပြောင်းရမယ်။

'Generate a random number
nNumber = Application.WorksheetFunction.RandBetween(2, 19)

5. ထို့နောက် ဖဲကြိုးရှိ tab "Developer" ကိုနှိပ်ပါ။
6. ပြီးနောက် toolbar ရှိ "Insert" ခလုတ်ကိုနှိပ်ပါ။
7. drop-down list တွင်၊ ရွေးချယ်စရာ "ခလုတ်" ကိုရွေးချယ်ပါ။
8. ထို့နောက် worksheet ကိုနှိပ်ပါ။ "Assign Macro" window ကိုသင်တွေ့လိမ့်မည်။
9. ဤဝင်းဒိုးတွင်၊ မော်ဂျူးအသစ်တွင် သင်ထည့်သွင်းထားသော မက်ခရိုကို နှိပ်ပါ။
10. ပြီးလျှင် “OK” ခလုတ်ကိုနှိပ်ပါ။
11. ထို့နောက် အလုပ်စာရွက်ရှိ ခလုတ်ကို သင်တွေ့နိုင်သည်။ ခလုတ်ကို Right Click နှိပ်ပါ။
12. ပေါ်လာသောဝင်းဒိုးတွင်၊ "စာသားတည်းဖြတ်ရန်" ရွေးချယ်မှုကိုရွေးချယ်ပါ။
13. အခု ခလုတ်ကို နာမည်ပေးလိုက်ပါ။ အဲဒါကို Lucky Person လို့ နာမည်ပေးမယ်။
14. ဆက်တင်အားလုံးပြီးသွားပါပြီ။ သငျသညျ s နိုင်ပါတယ်။tart လှုပ်ရှားမှု။ ခလုတ်ကိုနှိပ်ပါ။
15. ပြီးတော့ သင့်ဝန်ထမ်းအမည်နဲ့ ဝင်းဒိုးပေါ်လာတာကို တွေ့ရပါလိမ့်မယ်။

အထက်ပါအဆင့်များမှ Lucky Draw ပြုလုပ်ရန် Excel ကိုအသုံးပြုခြင်းသည် အလွန်အဆင်ပြေကြောင်း သင်တွေ့နိုင်ပါသည်။ နောက်တစ်ကြိမ်တွင် ထိုအလုပ်များအတွက် Excel ဖိုင်များကို အသုံးပြုရန်လည်း စဉ်းစားနိုင်သည်။

သင်၏ Excel ဖိုင်များကို ပြုပြင်နည်း

အသုံးပြုသူအများစုသည် Excel တွင် error များရှိနေသရွေ့ Excel application မှထွက်ပါမည်။ နောက်တစ်ခါ Excel ဖိုင်တစ်ခုဖွင့်တဲ့အခါ ပြဿနာတွေက ရှိတော့မှာမဟုတ်ဘူး။ ဒါပေမယ့် ပြင်းထန်တဲ့ Excel ပြဿနာတွေနဲ့ ကြုံလာရရင်၊ နောက်ထပ် လုပ်ဆောင်မှုတွေ လုပ်ဆောင်ဖို့ လိုပါတယ်။ Third-party tool ကိုသုံးနိုင်သည်။ ပျက်စီးနေသော Excel xlsx ကိုပြုပြင်ပါ။ နှင့် Excel အမှားများကိုပြင်ပါ။ ဒါကလည်း most Excel အမှားများကိုဖြေရှင်းရန်ထိရောက်သောနည်းလမ်း။

စာရေးသူနိဒါန်း:

Anna Ma သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ ပျက်စီးနေသော doc data ကိုပြုပြင်ပါ။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com