Hvordan lage en heldig trekning i et Excel-regneark via VBA

I Excel-regneark kan du også gjøre en lykketrekning. I dette skrivestykket skal vi vise deg hvordan du fullfører denne oppgaven i Excel.

En Lucky draw er veldig vanlig i vårt daglige liv. For eksempel må du gi bonuser til ansatte i slutten av et år. Du vil gjerne velge noen heldige ansatte tilfeldig. Derfor kan du bruke Excel-filen til å gjøre en heldig trekning.

Lag en heldig trekning

I denne delen vil vi introdusere metodene i detalj.

1. Åpne Excel-filen med all informasjon om de ansatte. I dette eksemplet er det 18 ansatte i arbeidsarket. Og de eksisterende bonusene beregnes i henhold til deres salgsvolum.
2. Og trykk deretter på hurtigtastene "Alt + F11" på tastaturet for å åpne Visual Basic-redigeringsprogrammet.
3. Deretter setter du inn en ny modul i editoren.
4. I dette trinnet kopierer du følgende koder til den nye modulen:

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

I disse kodene vil formelen "Int(Rnd() * (19 – 2 + 1)) + 2" sørge for at det tilfeldige tallet vil være i 2-19. Du kan også endre formelen etter behov.

Faktisk, bortsett fra formelen ovenfor for å generere et tall, kan du også bruke regnearkfunksjonen "RandBetween". Og du må endre kodene i modulen.

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

5. Deretter klikker du på fanen "Utvikler" på båndet.
6. Og klikk deretter på knappen "Sett inn" i verktøylinjen.
7. I rullegardinlisten velger du alternativet "Knapp".
8. Klikk deretter i regnearket. Du vil se vinduet "Tildel makro".
9. I dette vinduet klikker du på makroen du har lagt inn i den nye modulen.
10. Og klikk deretter på knappen "OK".
11. Deretter kan du se knappen i regnearket. Høyreklikk på knappen.
12. I popup-vinduet velger du alternativet "Rediger tekst".
13. Gi nå et navn for knappen. Vi vil kalle den "Lucky Person".
14. Du har fullført alle innstillingene. Og du kan starte aktiviteten. Klikk på knappen.
15. Og så vil du se et popup-vindu med navnet på den ansatte.

Fra trinnene ovenfor kan du se at det er veldig praktisk å bruke Excel for å gjøre en lykketrekning. Neste gang kan du også vurdere å bruke Excel-filer til disse oppgavene.

Hvordan reparere Excel-filer

Flertallet av brukerne vil avslutte Excel-applikasjonen så lenge de møter feil i Excel. Og neste gang de åpner en Excel-fil, vil problemene ikke lenger eksistere. Men hvis du møter alvorlige Excel-problemer, må du ta flere handlinger. Du kan bruke et tredjepartsverktøy for å reparer skadet Excel xlsx og fikse Excel-feil. Dette er også den mest effektive metoden for å håndtere Excel-feil.

Forfatterintroduksjon:

Anna Ma er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere korrupte dokumentdata og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med