Kako narediti srečno risanje v Excelovem delovnem listu prek VBA

V Excelovem delovnem listu lahko izvedete tudi srečelov. V tem pisnem delu vam bomo pokazali, kako dokončati to nalogo v Excelu.

Srečni žreb je zelo pogost v našem vsakdanjem življenju. Na primer, ob koncu leta morate zaposlenim dati bonuse. Naključno bi radi izbrali nekaj srečnih zaposlenih. Zato lahko uporabite Excelovo datoteko za srečelov.

Izžrebajte srečo

V tem delu bomo metode podrobneje predstavili.

1. Odprite datoteko Excel z vsemi podatki o zaposlenih. V tem primeru je na delovnem listu 18 zaposlenih. In obstoječi bonusi se izračunajo glede na njihov obseg prodaje.
2. Nato pritisnite tipki za bližnjico »Alt +F11« na tipkovnici, da odprete urejevalnik Visual Basic.
3. Po tem vstavite nov modul v urejevalnik.
4. V tem koraku v novi modul kopirajte naslednje kode:

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

V teh kodah bo formula "Int(Rnd() * (19 – 2 + 1)) + 2" zagotovila, da bo naključno število v 2-19. Formulo lahko tudi spremenite glede na vaše potrebe.

Pravzaprav, razen zgornje formule za ustvarjanje števila, lahko uporabite tudi funkcijo delovnega lista »RandBetween«. In morate spremeniti kode v modulu.

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

5. Po tem kliknite zavihek »Razvijalec« na traku.
6. In nato v orodni vrstici kliknite gumb »Vstavi«.
7. Na spustnem seznamu izberite možnost »Gumb«.
8. Po tem kliknite na delovni list. Videli boste okno »Dodeli makro«.
9. V tem oknu kliknite makro, ki ste ga vnesli v nov modul.
10. In nato kliknite gumb »V redu«.
11. Nato lahko vidite gumb na delovnem listu. Desni klik na gumb.
12. V pojavnem oknu izberite možnost »Uredi besedilo«.
13. Zdaj poimenujte gumb. Poimenovali ga bomo »Srečnež«.
14. Končali ste z vsemi nastavitvami. In lahko začnete z aktivnostjo. Kliknite gumb.
15. Nato boste videli pojavno okno z imenom vašega zaposlenega.

Iz zgornjih korakov lahko vidite, da je uporaba Excela za žrebanje zelo priročna. Naslednjič lahko razmislite tudi o uporabi Excelovih datotek za ta opravila.

Kako popraviti svoje Excelove datoteke

Večina uporabnikov bo zapustila aplikacijo Excel, dokler se v Excelu srečujejo z napakami. In naslednjič, ko bodo odprli datoteko Excel, težav ne bo več. Toda če naletite na resne težave z Excelom, morate sprejeti dodatne ukrepe. Za to lahko uporabite orodje tretje osebe popravi poškodovan Excel xlsx in odpraviti napake v Excelu. To je tudi najučinkovitejša metoda za odpravljanje napak v Excelu.

Uvod avtorja:

Anna Ma je ​​strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravi poškodovane podatke dokumenta in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com