Paso 2: El código
1. haga clic en la ficha programador .
2. haga clic en el icono de Visual Basic .
3. haga doble clic en Sheet1() y luego copiar y pegar el siguiente código en la "hoja 1".
Sub Randomizer()
Dim n todo el tiempo, i como Byte, x como Byte
Dim caja como gama
Dim cuenta como gama
Set cuenta = [P3]
Si cuenta > 0 entonces
cuenta. Valor = cuenta. Valor - 1
Caja = Range("K7")
Si IsEmpty(Sheet1.Range("K7")) entonces
' Esto llama a la función aleatoria
Llamar al Run_Randomize(Box)
End If
Caja = Range("K8")
Si IsEmpty(Sheet1.Range("K8")) entonces
' Esto llama a la función aleatorio
Llamar al Run_Randomize(Box)
End If
Caja = Range("K9")
Si IsEmpty(Sheet1.Range("K9")) entonces
' Esto llama a la función aleatorio
Llamar al Run_Randomize(Box)
End If
Caja = Range("K10")
Si IsEmpty(Sheet1.Range("K10")) entonces
' Esto llama a la función aleatorio
Llamar al Run_Randomize(Box)
End If
Caja = Range("K10")
Si IsEmpty(Sheet1.Range("K10")) entonces
' Esto llama a la función aleatorio
Llamar al Run_Randomize(Box)
End If
Caja = Range("K11")
Si IsEmpty(Sheet1.Range("K11")) entonces
' Esto llama a la función aleatorio
Llamar al Run_Randomize(Box)
End If
' Mensaje al pulsar el botón de dados de rodillo más de 3 veces.
ElseIf count = 0 Then
MsgBox "Empujar el botón de '' claro los dados ''." & Chr(10) & "luego empuje '' dados rodar ''.", "lo siento, pero su turno sobre!"
Salida Sub
End If
' *** ' Ordenar dados numéricos - funciona únicamente en la columna
Dim oneRange como gama
Dim aCell como gama
Set oneRange = Range("K7:K11")
Establecer aCell = Range("K7")
oneRange.Sort clave1: = aCell, Order1: = xlAscending, Header: = xlNo
' ************
End Sub
Sub Run_Randomize (caja de gama)
' Este código producirá un número aleatorio en el dado del 1-6 después de la hora 10, ' similares a sacudarir su mano 9 veces y lanzando el dado el 10 antes de que aparezca el número en el dado
Aleatorizar
Para n = 1 a 10
Aleatorizar
Para i = 1 a 1
x = 1 + Int(Rnd * 6)
Caja (1, 1) = x
Siguiente
N siguiente
End Sub
Sub ClearReset_Click()
' Borrar dados y contador rodillo
Range("K7:K11"). ClearContents
' Range("J12:V12"). ClearContents
Range("P3"). Valor = "3"
End Sub
Sub Reset_Click()
' Borra la tarjeta de puntuación
' Parte superior
Range("C2:C7"). Juego de ClearContents 1
Range("E2:E7"). Juego de ClearContents 2
Range("G2:G7"). Juego de ClearContents 3
Range("I2:i7"). Juego de ClearContents 4
' Sección inferior
Range("C13:C19"). Juego de ClearContents 1
Range("E13:E19"). Juego de ClearContents 2
Range("G13:G19"). Juego de ClearContents 3
Range("I13:I19"). Juego de ClearContents 4
' Rodillo contador
Range("P3"). Valor = "3"
' Reajuste dados
Range("K7:K11"). ClearContents
End Sub
Función InRange (Range1 como gama, intervalo2 como gama) como Boolean
' Si Range1 está dentro de intervalo2 luego cierto
Dim InterSectRange como gama
Set InterSectRange = Application.Intersect (Range1, intervalo2)
InRange = InterSectRange no es nada
Set InterSectRange = nada
End Function
Sub Die1()
' Borrar el contenido de las celdas seleccionadas
Si InRange (ActiveCell, gama ("k7:k11")) entonces
' Borrar el contenido
Selection.ClearContents
Otra cosa
' No hacer nada
Salida Sub
End If
End Sub
' Código de ser rápido, escribir código. 5 dados que preveo.
