Paano Gumawa ng Lucky Draw sa isang Excel Worksheet sa pamamagitan ng VBA

Sa Excel worksheet, maaari ka ring gumawa ng lucky draw. Sa bahaging ito ng pagsusulat, ipapakita namin sa iyo kung paano tapusin ang gawaing ito sa Excel.

Ang Lucky draw ay karaniwan sa ating pang-araw-araw na buhay. Halimbawa, kailangan mong magbigay ng mga bonus sa mga empleyado sa pagtatapos ng isang taon. Gusto mong pumili ng ilang masuwerteng empleyado nang random. Samakatuwid, maaari mong gamitin ang Excel file upang makagawa ng isang lucky draw.

Gumawa ng Lucky Draw

Sa bahaging ito, ipapakilala namin ang mga pamamaraan nang detalyado.

1. Buksan ang Excel file kasama ang lahat ng impormasyon ng mga empleyado. Sa halimbawang ito, mayroong 18 empleyado sa worksheet. At ang mga umiiral na bonus ay kinakalkula ayon sa dami ng kanilang mga benta.
2. At pagkatapos ay pindutin ang mga shortcut key na "Alt +F11" sa keyboard upang buksan ang Visual Basic editor.
3. Pagkatapos nito, magpasok ng bagong module sa editor.
4. Sa hakbang na ito, kopyahin ang mga sumusunod na code sa bagong module:

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

Sa mga code na ito, ang formula na “Int(Rnd() * (19 – 2 + 1)) + 2” ay titiyakin na ang random na numero ay nasa 2-19. Maaari mo ring baguhin ang formula ayon sa iyong pangangailangan.

Sa totoo lang, maliban sa formula sa itaas para makabuo ng numero, maaari mo ring gamitin ang worksheet function na “RandBetween”. At kailangan mong baguhin ang mga code sa module.

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

5. Pagkatapos nito, i-click ang tab na "Developer" sa ribbon.
6. At pagkatapos ay i-click ang pindutang "Ipasok" sa toolbar.
7. Sa drop-down na listahan, piliin ang opsyon na "Button".
8. Pagkatapos nito, mag-click sa worksheet. Makikita mo ang window na "Magtalaga ng Macro".
9. Sa window na ito, i-click ang macro na mayroon kang input sa bagong module.
10. At pagkatapos ay i-click ang pindutang "OK".
11. Susunod na makikita mo ang pindutan sa worksheet. I-right click ang button.
12. Sa pop-up window, piliin ang opsyon na "I-edit ang Teksto".
13. Ngayon magbigay ng pangalan para sa pindutan. Tatawagin natin itong “Lucky Person”.
14. Natapos mo na ang lahat ng setting. At maaari mo nang simulan ang aktibidad. Pindutin ang buton.
15. At pagkatapos ay makakakita ka ng isang window na pop-up na may pangalan ng iyong empleyado.

Mula sa mga hakbang sa itaas, makikita mo na ang paggamit ng Excel upang makagawa ng isang lucky draw ay napaka-maginhawa. Sa susunod na pagkakataon ay maaari mo ring isaalang-alang ang paggamit ng mga Excel file para sa mga gawaing iyon.

Paano Ayusin ang Iyong Mga Excel File

Ang karamihan ng mga gumagamit ay lalabas sa Excel application hangga't nagkakaroon sila ng mga error sa Excel. At sa susunod na pagbukas nila ng Excel file, hindi na iiral ang mga problema. Ngunit kung makakatagpo ka ng mga malubhang problema sa Excel, kailangan mong gumawa ng mga karagdagang aksyon. Maaari kang gumamit ng tool ng third-party upang ayusin ang nasira Excel xlsx at ayusin ang mga error sa Excel. Ito rin ang pinakamabisang paraan upang harapin ang mga error sa Excel.

Panimula ng May-akda:

Si Anna Ma ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang sirang doc data at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa