Hur man gör en lyckad dragning i ett Excel-kalkylblad via VBA

I Excel-kalkylbladet kan du också göra en lyckad dragning. I detta skrivstycke kommer vi att visa dig hur du avslutar den här uppgiften i Excel.

En lyckad dragning är mycket vanligt i vårt dagliga liv. Du måste till exempel ge bonus till anställda i slutet av ett år. Du skulle vilja välja några lyckliga anställda slumpmässigt. Därför kan du använda Excel-filen för att göra en lyckad dragning.

Gör en lyckad dragning

I den här delen kommer vi att presentera metoderna i detalj.

  1. Öppna Excel-filen med all information från de anställda. I det här exemplet finns det 18 anställda i kalkylbladet. Och de befintliga bonusarna beräknas enligt deras försäljningsvolym.Exempelvis
  2. Och tryck sedan på snabbtangenterna "Alt + F11" på tangentbordet för att öppna Visual Basic-redigeraren.
  3. Därefter sätter du in en ny modul i redigeraren.Sätt i modulen
  4. I det här steget kopierar du följande koder till den nya 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 dessa koder ser formeln “Int (Rnd () * (19 - 2 + 1)) + 2” till att slumpmässiga siffror kommer att vara i 2-19. Du kan också ändra formeln efter dina behov.

Egentligen, med undantag av ovanstående formel för att generera ett nummer, kan du också använda kalkylfunktionen "RandBetween". Och du måste ändra koder i modulen.

'Generate a random number
nNumber = Application.WorksheetFunction.RandBetween(2, 19)
  1. Klicka därefter på fliken "Utvecklare" i menyfliksområdet.
  2. Klicka sedan på knappen "Infoga" i verktygsfältet.
  3. Välj alternativet "Knapp" i listrutan.Sätt i knappen
  4. Klicka därefter i kalkylbladet. Fönstret “Tilldela makro” visas.
  5. I det här fönstret klickar du på det makro som du har matat in i den nya modulen.Tilldela makro
  6. Och klicka sedan på knappen “OK”.
  7. Därefter kan du se knappen i kalkylbladet. Högerklicka på knappen.
  8. I popup-fönstret väljer du alternativet "Redigera text".
  9. Ge nu ett namn på knappen. Vi kommer att namnge den "Lucky Person".Redigera text
  10. Du har nu gjort alla inställningar. Och du kan starta aktiviteten. Klicka på knappen.
  11. Och då ser du ett fönster som dyker upp med namnet på din anställd.Resultat

Från ovanstående steg kan du se att det är mycket bekvämt att använda Excel för att göra en lyckad dragning. Nästa gång kan du också överväga att använda Excel-filer för dessa uppgifter.

Så här reparerar du dina Excel-filer

Majoriteten av användarna lämnar Excel-applikationen så länge de stöter på fel i Excel. Och nästa gång de öppnar en Excel-fil finns problemen inte längre. Men om du stöter på allvarliga Excel-problem måste du vidta ytterligare åtgärder. Du kan använda ett tredjepartsverktyg för att reparera skadad Excel xlsx och åtgärda Excel-fel. Detta är också den mest effektiva metoden för att hantera Excel-fel.

Författarintroduktion:

Anna Ma är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparera korrupta dokumentdata och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.