Lotería de fallo aleatorio

Puede utilizar una función personalizada para lograr esto.

Pon un ejemplo. Por ejemplo, hay una tabla de datos como se muestra a continuación:

Como se muestra en la figura, la columna A tiene 30 fragmentos de oraciones y C1 requiere 5 combinaciones de oraciones seleccionadas al azar.

El primer paso: hacer clic en herramientas de desarrollo-visual basic. Como se muestra en la figura:

Paso 2: Inserte el módulo y compile el código de la siguiente manera:

Temperatura pública en forma de número entero (1 a 5)

Función sjf()

sjf = " "

Llamar a RndNumberNoRepeat

Para i = 1 a 5

sjf = sjf y celdas amp (temperatura(i) + 1, 1). text

Si i & lt5 entonces sjf = sjf & amp","

Siguiente i

Finalizar función

Sub pública RndNumberNoRepeat ( )

Dim RndNumber, I, k, Maxrec son números enteros

¿Aleatorización (temporizador)? Inicialice el generador de números aleatorios.

Maxrec = 30

k = 1

Hacer mientras k & lt= 5

Número Rnd = Int(Maxrec * Rnd) +1

Temperatura(k) = rndNumber

Para i = 1 a k

Salir si temp(i) = RndNumber

El siguiente yo

Si i = k, entonces k = i + 1

Lazo

Conector final

Paso 3: Ingresa la fórmula en C1: =sjf().

Los resultados se muestran en la figura: