Digital YAHTZEE.xls (2 / 15 paso)

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.

Artículos Relacionados

APARATO de punto de fusión DIGITAL "MELT-O-MATIC"

APARATO de punto de fusión DIGITAL "MELT-O-MATIC"

UN APARATO DE PUNTO DE FUSIÓN DIGITALUna operación muy frecuentemente realizada en los laboratorios de química orgánica es la determinación del punto de fusión de una muestra sólida. La temperatura en la cual una muestra funde es indicativa de la pur
Contador de objeto digital con interfaz de LDR de Mediatek LinkIt uno

Contador de objeto digital con interfaz de LDR de Mediatek LinkIt uno

En este Instructable, usted será capaz a Mediatek Linkit una tarjeta de interfaz con LDR y contador Digital de objeto que puede contar objetos hasta 9999.Paso 1: requisitos PCB placa de propósito generalCD 4 Johnson 4026 contador de década.4 común cá
Medidor digital de Gauss

Medidor digital de Gauss

Todo el mundo le gusta los imanes. Jugando con la fuerza mágica invisible de imanes permanentes es de todas las edades.Trasteando con las bobinas, relevadores y muchos otros dispositivos magnéticos necesita a veces una herramienta de medición de dens
Hacer un asequible, set calibrador multíple refrigerante digital, universal!

Hacer un asequible, set calibrador multíple refrigerante digital, universal!

Me encanta hacer aire acondicionado como un hobby. He utilizado el análogos sistemas múltiples, uno separado para cada tipo de refrigerante o grupos de refrigerante. Vi los sistemas digitales lujo y tuve envidia. Los precios de estas unidades son apr
Vuelva a colocar la tachuela en la almohadilla de corte Digital!

Vuelva a colocar la tachuela en la almohadilla de corte Digital!

Do tienes un cementerio de esteras de corte que sólo no cortar la mostaza? Bueno no eres el único.Tapetes de corte son accentual todas las cuchillas de arte electrónico, pero con todos los proyectos y numerosos tipos de materiales. El palo simplement
Árbol de la boda de huella digital.

Árbol de la boda de huella digital.

Este instructable le mostrará cómo crear un árbol de la boda de huella digital mediante el uso de materiales de arte simple.El árbol de la boda de la huella digital es una buena manera para conseguir el recuerdo de cada invitado de una boda (o un cum
Quitar el botón de borrar en un visor digital para que sea seguro para la abuela

Quitar el botón de borrar en un visor digital para que sea seguro para la abuela

inspirados en el marco de foto digital casero aquí, fui buscando las piezas construir mi propia. Vergonzosamente, encontré un producto terminado lo suficientemente barato que solo compró en vez de construir mi propio. Sin embargo, todavía logró averi
Holga digital

Holga digital

la Lomografía y las cámaras de juguete son divertidas cámaras para jugar, sin embargo, la mayoría de estas cámaras utiliza película así que no se puede ver su producto terminado inmediatamente y podría terminar gastando un montón de película y proces
Construir una lente de $4 con filtros intercambiables caleidoscópicos de cualquier cámara digital

Construir una lente de $4 con filtros intercambiables caleidoscópicos de cualquier cámara digital

en este instructable mostrará cómo construir un accesorio genial lente para casi cualquier cámara digital.con el advenimiento de las cámaras digitales, floreció (no como esa chica en esa comedia, aunque). Si hubiera tenido dinero, me habría encantado
Completo reloj Digital con Sensor de presencia (RTC - alarma - PIR - temperatura - humedad - punto de rocío)

Completo reloj Digital con Sensor de presencia (RTC - alarma - PIR - temperatura - humedad - punto de rocío)

HolaYa he hecho algunos proyectos de relojes digitales con Arduino como pantallas LED y LCD, pero este es más especial porque he introducido una novedad con un sensor de movimiento (PIR).Ver VIDEOCaracterísticas principalesPIR (Sensor infrarrojo de p
Fabricación digital - proyecto siete, dibujo e importar plantillas de

Fabricación digital - proyecto siete, dibujo e importar plantillas de

Este es el sexto de una serie de Instructables sobre cómo utilizar CAD (dibujo asistido por computadora) y CAM (ordenador asistido por mecanizado)Esta vez vamos a ver en la fabricación de objetos 2D como plantillas plantillas y juntas.Plantillas aún
Signo-era digital barato

Signo-era digital barato

Tienda digital delante de la ventana muestra la edad puede ser cara. No puede tener el técnico sabe cómo administrar o crear actualizaciones de la información en la pantalla. Aquí es cómo usted puede crear y administrar tu propio signo-edad por menos
Arco iris digital - cómo colorear desde cero

Arco iris digital - cómo colorear desde cero

Este tutorial trata de realizar selecciones y colorear las partes de la ilustración digital. puede utilizar las técnicas para colorear nada. O hacer el arco iris tal como se muestra y utilizarlo como un fondo o un relleno para el tipo.Te demuestro co
Retoque fotográfico Digital profesional

Retoque fotográfico Digital profesional

He sido un gráfico Diseñador desde el IIci, así que cuando vi la cuenta para el desafío de diseño, mi mente comenzó a spin con posibilidades. Mientras que utilizo muchas técnicas de frescas en mi trabajo, uno de los más útiles y frecuentes para es re