Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com generar números de loteria en excés?

Alguna vegada has pensat en generar nombres de loteria en Excel o fer un generador de números de loteria a tu mateix? En aquest article, us proporciono tres mètodes perquè pugueu fer-ho fàcilment.

Genera números de loteria amb funcions d'Excel (Passos 5)

Genera números de loteria amb VBA Macro

Genera números de loteria amb Kutools for Excel (Passos 2)

Llista fàcilment tota la combinació de diverses sèries de dades a Excel

Kutools per a Excel Llista totes les combinacions La utilitat està dissenyada per generar totes les combinacions possibles de diverses sèries de dades donades, i llista aquestes combinacions en una columna tal com es mostra a continuació. Prova gratuïta de característiques completes 60-day!
com a llista de totes les combinacions 1


Genera números de loteria amb funcions d'Excel

Aquest mètode us guiarà aplicant diverses funcions d'Excel per generar números de loteria. I podeu fer el següent:

1. En un full de càlcul en blanc, escriviu encapçalaments de columna al rang A1: C1 com a continuació de la captura de pantalla que es mostra:

2. Introduïu fórmules a la columna A, columna B i columna C:

(1) A la cel·la A2, introduïu la fórmula = RAND (), i després arrossegueu l'identificador de farciment al rang A2: A50.
(2) A la cel·la B2, introduïu la fórmula =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, i després arrossegueu l'identificador de farcit al rang B2: B50. (A la fórmula, A2 és el nombre aleatori deixat a la cel·la actual, $ A $ 2: $ A $ 50 són tots els números aleatoris que obtenim amb la primera fórmula, B $ 1 és la primera cel·la de la columna B i B1 és la cel·la superior a la cel·la actual).
(3) En el rang C2: C50, introduïu els números de seqüència de 1 a 49.

A continuació, obtindreu una taula tal com es mostra a la pantalla esquerra:

cinta de notes La fórmula és massa complicada de recordar? Deseu la fórmula com a entrada de text automàtic per a la seva reutilització amb només un clic en el futur.
Llegir més ... Prova gratis

3. Trobeu un interval en blanc, escriviu els nombres de seqüència horitzontalment en una fila tal com es mostra a la pantalla següent:

4. A sota del primer número de seqüència de 1, introduïu la fórmula = VLOOKUP (G1, $ B $ 1: $ C $ 50,2, FALSE) i, a continuació, arrossegueu el control de farcit al rang que necessiteu.

Nota: En aquesta fórmula, G1 és la cel·la amb el primer número de seqüència de 1, $ B $ 1: $ C $ 50 són la columna de rang única i la columna de número de bola, 2 significa trobar valors a la segona columna del rang $ B $ 1: $ C $ 50.

A continuació, obtindreu els números de loteria tal com es mostra a la pantalla següent:

5. És opcional. Per evitar que els números de la loteria canviïn automàticament quan el full de treball actual actualitzi, podeu fer clic al botó Fórmula > Opcions de càlcul > manual.


Genera números de loteria amb VBA Macro

Aquest mètode us guiarà per aplicar una macro VBA per generar números de loteria a Excel. Feu el següent:

1. Premeu Alt + F11 claus per obrir la finestra de Microsoft Visual Basic per a aplicacions.

2. Clic Insereix > Mòduls per obrir una nova finestra del mòdul i enganxar-ne el següent codi VBA:

VBA: generador de números de loteria en 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. Premeu el botó F5 o feu clic a la icona Correr botó per executar aquesta macro VBA.

4. Ara, al quadre de diàleg emergent, especifiqueu una cel·la per emetre els números de la loteria i feu clic al botó OK botó.

A continuació, veureu que els números de loteria 6 únics es generen i es mostren a les cel·les especificades.


Genera números de loteria amb Kutools for Excel

Si teniu instal·lat Kutools for Excel, el vostre Insereix dades aleatòries La utilitat us pot ajudar a generar números de loteria a Excel alhora.

Kutools for Excel - Combina més de 300 Advanced Functions and Tools per a Microsoft Excel

1. Seleccioneu les cel·les adjacents 6, com ara A1: F1, i feu clic a la icona Kutools > Insereix > Insereix dades aleatòries.

2. Ara surt el quadre de diàleg Insereix dades aleatòries. Aneu al Sencer fitxa, escriviu 1 in de quadre, escriviu 49 in A box, marqueu la casella Valors únics opció i feu clic a la icona OK botó Ara veureu que els números de loteria únics de 6 es generen i es mostren immediatament a les cel·les seleccionades.

Kutools for Excel - Inclou més eines 300 pràctiques d'Excel. Prova gratuïta de prova completa 60-dia, no cal una targeta de crèdit. Aconsegueix ara!


Demo: genera números de loteria amb Kutools per a Excel

En aquest vídeo, el Kutools fitxa i el Kutools més la pestanya és afegida per Kutools for Excel. Si ho necessiteu, feu clic a aquí tenir una prova gratuïta 60-dia sense limitacions!


Articles relacionats:



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.