Kako izvući sreću u Excel radnom listu putem VBA

U Excel radnom listu također možete izvući sreću. U ovom tekstu ćemo vam pokazati kako završiti ovaj zadatak u Excelu.

Sretno izvlačenje vrlo je uobičajeno u našem svakodnevnom životu. Na primjer, trebate dati bonuse zaposlenicima na kraju godine. Htjeli biste nasumično odabrati neke sretne zaposlenike. Stoga možete koristiti Excel datoteku za izvlačenje.

Izvucite sretno izvlačenje

U ovom ćemo dijelu detaljno predstaviti metode.

1. Otvorite Excel datoteku sa svim podacima o zaposlenicima. U ovom primjeru, na radnom listu je 18 zaposlenika. A postojeći bonusi obračunavaju se prema njihovoj količini prodaje.
2. Zatim pritisnite tipke prečaca “Alt +F11” na tipkovnici 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” osigurat će da nasumični broj bude u 2-19. Također možete modificirati formulu prema svojim potrebama.

Zapravo, osim gornje formule za generiranje broja, također možete koristiti funkciju radnog lista "RandBetween". I trebate promijeniti kodove u modulu.

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

5. Nakon toga kliknite karticu "Razvojni programer" na vrpci.
6. Zatim kliknite gumb "Umetni" na alatnoj traci.
7. Na padajućem popisu odaberite opciju "Gumb".
8. Nakon toga kliknite na radni list. Vidjet ćete prozor "Dodijeli makronaredbu".
9. U ovom prozoru kliknite makronaredbu koju ste unijeli u novi modul.
10. Zatim kliknite gumb "OK".
11. Zatim možete vidjeti gumb na radnom listu. Desni klik na gumb.
12. U skočnom prozoru odaberite opciju "Uredi tekst".
13. Sada dodijelite naziv gumbu. Nazvat ćemo ga "Sretna osoba".
14. Završili ste sa svim postavkama. Možete započeti aktivnost. Kliknite gumb.
15. Zatim ćete vidjeti skočni prozor s imenom vašeg zaposlenika.

Iz gornjih koraka možete vidjeti da je korištenje Excela za izvlačenje sretnog igrača 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 se susreću s pogreškama 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, trebate poduzeti dodatne radnje. Možete koristiti alat treće strane za popraviti oštećeni Excel xlsx i ispraviti Excelove pogreške. Ovo je ujedno i najučinkovitija metoda za rješavanje Excelovih pogrešaka.

Uvod za autora:

Anna Ma stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti oštećene dokumente i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com