Kā veikt Lucky Draw Excel darblapā, izmantojot VBA

Excel darblapā varat arī izdarīt laimīgu izlozi. Šajā rakstā mēs parādīsim, kā pabeigt šo uzdevumu programmā Excel.

Lucky izloze ir ļoti izplatīta mūsu ikdienas dzīvē. Piemēram, jums jāpiešķir prēmijas darbiniekiem gada beigās. Jūs vēlaties nejauši atlasīt dažus laimīgos darbiniekus. Tāpēc, lai veiktu laimīgu izlozi, varat izmantot Excel failu.

Veikt Lucky Draw

Šajā daļā mēs detalizēti iepazīstināsim ar metodēm.

1. Atveriet Excel failu ar visu darbinieku informāciju. Šajā piemērā darblapā ir 18 darbinieki. Un esošās prēmijas tiek aprēķinātas pēc to pārdošanas apjoma.
2. Pēc tam tastatūrā nospiediet īsinājumtaustiņus “Alt + F11”, lai atvērtu Visual Basic redaktoru.
3. Pēc tam redaktorā ievietojiet jaunu moduli.
4. Šajā solī kopējiet šādus kodus jaunajā modulī:

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

Šajos kodos formula “Int (Rnd () * (19 - 2 + 1)) + 2” nodrošinās, ka nejaušais skaitlis būs 2-19. Jūs varat arī modificēt formulu atbilstoši savām vajadzībām.

Faktiski, izņemot skaitļa ģenerēšanai iepriekš minēto formulu, varat izmantot arī darblapas funkciju “RandBetween”. Un jums ir jāmaina kodi modulī.

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

5. Pēc tam lentē noklikšķiniet uz cilnes “Izstrādātājs”.
6. Pēc tam rīkjoslā noklikšķiniet uz pogas “Ievietot”.
7. Nolaižamajā sarakstā izvēlieties opciju “Poga”.
8. Pēc tam noklikšķiniet uz darblapas. Tiks parādīts logs “Piešķirt makro”.
9. Šajā logā noklikšķiniet uz makro, kuru esat ievadījis jaunajā modulī.
10. Pēc tam noklikšķiniet uz pogas “OK”.
11. Tālāk darblapā var redzēt pogu. Ar peles labo pogu noklikšķiniet uz pogas.
12. Uznirstošajā logā izvēlieties opciju “Rediģēt tekstu”.
13. Tagad dodiet pogai nosaukumu. Mēs to nosauksim par “Lucky Person”.
14. Jūs esat pabeidzis visus iestatījumus. Un jūs varat sākt darbību. Noklikšķiniet uz pogas.
15. Tad jūs redzēsiet uznirstošo logu ar sava darbinieka vārdu.

No iepriekš minētajām darbībām jūs varat redzēt, ka Excel izmantošana laimīgas izlozes veikšanai ir ļoti ērta. Nākamajā reizē varat arī apsvērt iespēju izmantot Excel failus šiem uzdevumiem.

Kā labot Excel failus

Lielākā daļa lietotāju izies no Excel lietojumprogrammas, ja vien programmā Excel būs kļūdas. Nākamreiz, kad viņi atver Excel failu, problēmas vairs nepastāv. Bet, ja rodas nopietnas Excel problēmas, jums jāveic papildu darbības. Varat izmantot trešās puses rīku salabot bojāto Excel xlsx un labot Excel kļūdas. Šī ir arī visefektīvākā metode, kā rīkoties ar Excel kļūdām.

Autora ievads:

Anna Ma ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot korumpētus doc datus un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar