Hur genererar jag lotterinummer i Excel?
Har du någonsin tänkt på att generera lotterier i Excel, eller göra en lotgenerator i Excel själv? I den här artikeln ger jag tre metoder för att du ska få det gjort enkelt.
- Skapa lottnummer med Excel-funktioner (5 steg)
- Skapa lotternummer med VBA-makro
- Skapa lotterier med Kutools för Excel (2 steg)
Skapa lottnummer med Excel-funktioner
Denna metod leder dig genom att använda flera Excel-funktioner för att generera lotteri nummer. Och du kan göra enligt följande:
1. I ett tomt kalkylblad skriver du kolumnrubriker i intervall A1: C1 enligt nedanstående skärmdump:
2. Ange formler i kolumn A, kolumn B och kolumn C:
(1) Ange formeln i cell A2 = RAND ()och dra sedan handtaget Fyll till området A2: A50.
(2) Ange formeln i cell B2 =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1och dra sedan påfyllningshandtaget till intervallet B2: B50. (I formeln är A2 slumpmässiga siffror kvar till nuvarande cell, $ A $ 2: $ A $ 50 är alla slumptal som vi fick med den första formeln, B $ 1 är den första cellen i kolumn B, och B1 är cellen ovanför nuvarande cell).
(3) I intervall C2: C50, ange sekvensnummer från 1 till 49.
Då får du ett bord som vänster skärmdump visas:
Formel är för komplicerad för att komma ihåg? Spara formeln som en automatisk textpost för återanvändning med bara ett klick i framtiden! Läs mer ... fri rättegång |
3. Hitta ett tomt intervall, skriv sekvensnummer horisontellt i rad enligt nedanstående skärmdump:
4. Ange formeln under det första sekvensnumret 1 = VLOOKUP (G1, $ B $ 1: $ C $ 50,2, FALSE) in det och dra Fill Handle till det intervall du behöver.
Anmärkningar: I den här formeln är G1 cellen med det första sekvensnumret på 1, $ B $ 1: $ C $ 50 är Unique Rank-kolumn och Ball Number-kolumn, 2 betyder att hitta värden i den andra kolumnen i Range $ B $ 1: $ C $ 50 .
Då får du lotternumren enligt skärmdumpen nedan:
5. Det är valfritt. För att förhindra att lotterinumren ändras automatiskt när det aktuella kalkylbladet uppdateras kan du klicka på Formel > Beräkningsalternativ > Manuell.
Lista enkelt upp alla kombinationer av flera serier av data i Excel
Kutools för Excel Lista alla kombinationer verktyget är utformat för att generellt alla möjliga kombinationer från flera givna dataserier och lista dessa kombinationer i en kolumn enligt nedanstående skärmdump.
Kutools för Excel - Superladda Excel med över 300 viktiga verktyg. Njut av en fullfjädrad 30-dagars GRATIS provperiod utan behov av kreditkort! Hämta den nu
Skapa lotternummer med VBA-makro
Den här metoden hjälper dig att använda ett VBA-makro för att generera lotteri nummer i Excel. Gör så här:
1. Tryck andra + F11 för att öppna Microsoft Visual Basic for Applications-fönstret.
2. Klicka Insert > Modulerna för att öppna ett nytt modulfönster och klistra in följande VBA-kod i det:
VBA: Lottery Number Generator i Excel
Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub
3. tryck på F5 eller klicka på Körning för att köra detta VBA-makro.
4. Ange nu en cell för att mata ut lotterinumren i popup-dialogrutan och klicka på OK knapp.
Då ser du 6 unika lotterinummer genereras och visas i de angivna cellerna.
Skapa lotterier med Kutools för Excel
Om du har Kutools för Excel installerat är det Infoga slumpmässiga data verktyget kan hjälpa dig att generera lotteri nummer i Excel på en gång.
Kutools för Excel - Fullpackad med över 300 viktiga verktyg för Excel. Njut av en fullfjädrad 30-dagars GRATIS provperiod utan behov av kreditkort! Ladda ner nu!
1. Välj 6 intilliggande celler, till exempel A1: F1, och klicka sedan på Kutools > Insert > Infoga slumpmässiga data.
2. Nu kommer dialogrutan Infoga slumpmässiga data ut. Gå till Heltal fliken, skriv 1 in Från box, typ 49 in Till kryssa i rutan Unika värden alternativet och klicka på OK knapp. Nu kommer du att se 6 unika lotteri nummer genereras och visas direkt i de valda cellerna.
Kutools för Excel - Superladda Excel med över 300 viktiga verktyg. Njut av en fullfjädrad 30-dagars GRATIS provperiod utan behov av kreditkort! Hämta den nu
Demo: generera lotternummer med Kutools för Excel
Relaterade artiklar:
Markera celler slumpmässigt baserat på kriterier i Excel
Lägg till slumpmässigt bakgrunds- / fyllningsfärg för celler i Excel
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!