Denne metoden vil lede deg gjennom å anvende flere Excel-funksjoner for å generere lottotrekningen. Og du kan gjøre som følger:
1. I et tomt regneark, type kolonneoverskriftene i Range A1: C1 som under skjermbildet som vises:
2. Skriv inn formler i kolonne A, kolonne B, og Kolonne C:
(1) i celle A2 inn formelen = TILFELDIG (), og deretter dra fyllhåndtaket til området A2:. A50
(2) i celle B2, skriv inn formelen = RANK ($ A2, $ A $ 2: $ A $ 50) + ANTALL.HVIS (B $ 1: B1, B1) -1, og deretter drar fyllhåndtaket til Range B2 : B50. (I formelen, er A2 tilfeldige tall venstre til gjeldende cellen, $ A $ 2: $ A $ 50 er alle tilfeldige tall vi fikk med den første formel, B $ 1 den første cellen i kolonne B og B1 er cellen over gjeldende celle)
(3) I Range C2. C50, skriv sekvensnumre fra 1 til 49.
Da får du en tabell som skjermen til venstre shot vist:
3. Finn en kloss hold, type sekvensnumre horisontalt på rad som under skjermbildet som vises:
4. Under den første sekvensen antall 1, skriver du inn formelen = FINN.RAD (G1, $ B $ 1: $ C $ 50,2, USANN) inn i det, og dra fyllhåndtaket til Range du trenger
<. br>
Merk: I denne formelen er G1 cellen med den første sekvensen antall 1, $ B $ 1: $ C $ 50 er Unique Rank kolonne og Ball nummer kolonnen, 2 betyr finne verdier i den andre kolonnen av Range $ B $ 1:. $ C $ 50
Da får du lottotrekningen som skjermbildet vist nedenfor:
5. Det er valgfritt. For å hindre at lottotrekningen endres automatisk når gjeldende regneark oppdateres, kan du klikke på Formula > Beregning Alternativer > Manuelle.
Generer lottotrekningen med VBA Makro
Denne metoden vil lede deg til å bruke en VBA-makro for å generere lottotrekningen i Excel. Gjør følgende:
Trinn 1: Trykk ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vindu
Trinn 2:. Klikk på Insert > Modul for å åpne en ny modul vindu, og lim følgende VBA-kode inn i den:
VBA: Lottery Number Generator i Excel
Sub LotteyCode () Dim RNG Som RangeDim WorkRng Som RangeDim xNumbers (49) Som IntegerOn Error gjenoppta NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox ("Out satt til (enkelt celle):", xTitleId, WorkRng.Address, Type: = 8) Sett WorkRng = WorkRng.Range ("A1" ) For xIndex = 1 Til 49xNumbers (xIndex) = xIndexNextFor xIndex = 1 Til 6xNum = 1 + Application.Round (Rnd * (49 - xIndex), 0) WorkRng.Offset (0, xIndex - 1) .Value = xNumbers (xNum ) xNumbers (xNum) = xNumbers (50 - xIndex) NextEnd Sub
Trinn 3: Trykk F5-tasten eller klikk på knappen Kjør for å kjøre denne VBA-makro
Trinn 4: Nå i det dukker opp dialogen. boksen, angi en celle for å sende ut lottotrekningen, og klikk på OK-knappen.
Da vil du se 6 unike lottotrekningen genereres og vises i de angitte cellene.
< h4> Generer lottotrekningen med Kutools for Excel
Hvis du har Kutools for Excel installert, kan dens Sett tilfeldige data verktøyet hjelpe deg å generere lottotrekningen i Excel på en gang
Kutools for Excel -. Kombinerer Mer enn 120 Avanserte funksjoner og verktøy for Microsoft Excel
Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce
Trinn 1: Velg 6 tilstøtende celler, for eksempel A1: F1, og klikk deretter på Kutools > Sett > Sett tilfeldige data
Trinn 2:. Nå Sett tilfeldige data dialogboksen kommer ut. Gå til kategorien Integer, type 1 i boksen Fra, skriv 49 i Til-boksen, sjekk de unike verdiene alternativet, og klikk på OK-knappen.
Nå vil du se 6 unike lottotrekningen genereres og vises i de valgte cellene umiddelbart.
Gratis Last ned Kutools for Excel Nå