Kako napraviti Lucky Draw u Excel radnom listu putem VBA

U Excel radnom listu možete napraviti i izvlačenje sreće. U ovom tekstu ćemo vam pokazati kako da završite ovaj zadatak u Excel-u.

Izvlačenje sreće je vrlo uobičajeno u našem svakodnevnom životu. Na primjer, trebate dati bonuse zaposlenima na kraju godine. Željeli biste nasumično odabrati neke sretnike. Stoga možete koristiti Excel datoteku za izvlačenje sreće.

Napravite Lucky Draw

U ovom dijelu ćemo detaljno upoznati metode.

1. Otvorite Excel fajl sa svim podacima zaposlenih. U ovom primjeru, na radnom listu je 18 zaposlenih. A postojeći bonusi se obračunavaju prema obimu njihove prodaje.
2. Zatim pritisnite tipke prečice “Alt +F11” na tastaturi da otvorite Visual Basic editor.
3. Nakon toga umetnite novi modul u editor.
4. U ovom koraku kopirajte sljedeće kodove u novi 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

U ovim kodovima, formula “Int(Rnd() * (19 – 2 + 1)) + 2” će osigurati da slučajni broj bude u 2-19. Također možete modificirati formulu prema vašim potrebama.

Zapravo, osim gornje formule za generiranje broja, možete koristiti i funkciju radnog lista “RandBetween”. I trebate promijeniti kodove u modulu.

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

5. Nakon toga kliknite na karticu "Programer" na traci.
6. Zatim kliknite na dugme „Insert“ na traci sa alatkama.
7. Na padajućoj listi odaberite opciju „Dugme“.
8. Nakon toga kliknite na radni list. Vidjet ćete prozor “Dodijeli makro”.
9. U ovom prozoru kliknite na makro koji ste unijeli u novi modul.
10. Zatim kliknite na dugme “OK”.
11. Zatim možete vidjeti dugme na radnom listu. Desni klik na dugme.
12. U iskačućem prozoru odaberite opciju “Uredi tekst”.
13. Sada dajte naziv za dugme. Nazvat ćemo ga "Srećna osoba".
14. Završili ste sva podešavanja. Možete započeti aktivnost. Kliknite na dugme.
15. I tada ćete vidjeti iskačući prozor s imenom vašeg zaposlenika.

Iz gornjih koraka možete vidjeti da je korištenje Excela za izvlačenje sreće vrlo zgodno. Sljedeći put također možete razmisliti o korištenju Excel datoteka za te zadatke.

Kako popraviti svoje Excel datoteke

Većina korisnika će izaći iz Excel aplikacije sve dok naiđu na greške u Excelu. I sljedeći put kada otvore Excel datoteku, problemi više neće postojati. Ali ako naiđete na ozbiljne probleme s Excelom, morate poduzeti dodatne radnje. Za to možete koristiti alat treće strane popraviti oštećeni Excel xlsx i ispravite greške u Excelu. Ovo je ujedno i najefikasnija metoda za rješavanje grešaka u Excelu.

Uvod za autora:

Anna Ma je ​​stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti oštećene dokumente i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com