Kuidas teha VBA kaudu õnneloosi Exceli töölehel

Exceli töölehel saab teha ka õnneloosi. Selles kirjutamisosas näitame teile, kuidas seda ülesannet Excelis lõpule viia.

Lucky loosimine on meie igapäevaelus väga levinud. Näiteks peate aasta lõpus andma töötajatele lisatasusid. Soovite mõne õnneliku töötaja juhuslikult valida. Seetõttu saate õnneloosi tegemiseks kasutada Exceli faili.

Tehke õnneloosi

Selles osas tutvustame meetodeid üksikasjalikult.

1. Avage Exceli fail kogu töötajate teabega. Selles näites on töölehel 18 töötajat. Ja olemasolevaid boonuseid arvestatakse nende müügimahu järgi.
2. Seejärel vajutage Visual Basicu redaktori avamiseks klaviatuuril kiirklahve "Alt + F11".
3. Pärast seda sisestage redaktorisse uus moodul.
4. Selles etapis kopeerige uude moodulisse järgmised koodid:

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

Nendes koodides tagab valem "Int(Rnd() * (19 – 2 + 1)) + 2", et juhuslik arv oleks vahemikus 2-19. Samuti saate valemit vastavalt oma vajadusele muuta.

Tegelikult, välja arvatud ülaltoodud valemi arvu genereerimiseks, saate kasutada ka töölehe funktsiooni "RandBetween". Ja peate moodulis koode muutma.

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

5. Pärast seda klõpsake lindil vahekaarti "Arendaja".
6. Seejärel klõpsake tööriistaribal nuppu "Lisa".
7. Valige rippmenüüst valik "Nupp".
8. Pärast seda klõpsake töölehel. Näete akent "Makro määramine".
9. Klõpsake selles aknas makrol, mille olete uude moodulisse sisestanud.
10. Ja seejärel klõpsake nuppu "OK".
11. Järgmisena näete nuppu töölehel. Paremklõpsake nuppu.
12. Hüpikaknas valige suvand "Redigeeri teksti".
13. Nüüd andke nupule nimi. Anname sellele nimeks "Õnnelik inimene".
14. Olete kõik seadistused lõpetanud. Ja saate tegevusega alustada. Klõpsake nuppu.
15. Ja siis näete hüpikakent oma töötaja nimega.

Ülaltoodud sammudest näete, et Exceli kasutamine õnneloosimiseks on väga mugav. Järgmisel korral võite nende ülesannete jaoks kasutada ka Exceli faile.

Kuidas parandada oma Exceli faile

Enamik kasutajaid väljub Exceli rakendusest seni, kuni neil esineb Excelis vigu. Ja järgmine kord, kui nad Exceli faili avavad, pole probleeme enam. Kuid kui teil on tõsiseid Exceli probleeme, peate tegema lisatoiminguid. Selleks saate kasutada kolmanda osapoole tööriista parandage kahjustatud Excel xlsx ja parandage Exceli vigu. See on ka kõige tõhusam meetod Exceli vigadega tegelemiseks.

Autori sissejuhatus:

Anna Ma on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud dokumendiandmete parandamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom