Crear preguntas de tipo objetivo en Excel (3 / 6 paso)

Paso 3: Escribir el código

Crear una macro para el botón en la hoja de cálculo
*************************
Sub Button1_Click()
Aleatorizar
totalq = CInt (rango ("preguntas! I1 "). Texto)
Para i = 1 To totalq
Rango ("preguntas! G"& i). FormulaR1C1 = ""
Siguiente
Mientras (rango ("preguntas! H1 "). <> De texto 10)
i = Round (1 + ((totalq-1) * Rnd()), 0)
Rango ("preguntas! G"& i). FormulaR1C1 = "A"
Vendo
QForm.Show
End Sub
*************************

También crear el código VBA para la forma de trabajar
*************************
Dim contador, ans, qcounter

Private Sub Answer1_Click()
Button.Enabled = True
End Sub
Private Sub Answer2_Click()
Button.Enabled = True
End Sub
Private Sub Answer3_Click()
Button.Enabled = True
End Sub
Private Sub Answer4_Click()
Button.Enabled = True
End Sub

Private Sub Button_Click()
Si (Answer1.Value = True) entonces
ANS = 1
ElseIf (Answer2.Value = True) entonces
ANS = 2
ElseIf (Answer3.Value = True) entonces
ANS = 3
ElseIf (Answer4.Value = True) entonces
ANS = 4
End If
ansacc = CInt (rango ("preguntas! F"& contador). Texto)
Si (ansacc = y) entonces
Estado. Ancho = estado. Ancho + 30
End If
Answer1.Value = False
Answer2.Value = False
Answer3.Value = False
Answer4.Value = False
contador = contador + 1
qcounter = qcounter + 1
Si qcounter < = 10 entonces
Mientras (rango ("preguntas! G"& contador). <> De texto "A")
contador = contador + 1
Vendo
Question.Caption = rango ("preguntas! A"& contador). Texto
Answer1.Caption = rango ("preguntas! B"& contador). Texto
Answer2.Caption = rango ("preguntas! C"& contador). Texto
Answer3.Caption = rango ("preguntas! D"& contador). Texto
Answer4.Caption = rango ("preguntas! E"& contador). Texto
End If
Button.Enabled = False
Si qcounter = 11 entonces
MsgBox ("su resultado es" & 10 * estado. Ancho / 30 & "%")
QForm.Hide
End If
End Sub

Private Sub UserForm_Activate()
contador = 1
Answer1.Value = False
Answer2.Value = False
Answer3.Value = False
Answer4.Value = False
Estado. Anchura = 0
Button.Enabled = False
ANS = 0
Mientras (rango ("preguntas! G"& contador). <> De texto "A")
contador = contador + 1
Vendo
Question.Caption = rango ("preguntas! A"& contador). Texto
Answer1.Caption = rango ("preguntas! B"& contador). Texto
Answer2.Caption = rango ("preguntas! C"& contador). Texto
Answer3.Caption = rango ("preguntas! D"& contador). Texto
Answer4.Caption = rango ("preguntas! E"& contador). Texto
qcounter = 1
End Sub
*************************

Artículos Relacionados

Cómo realizar funciones matemáticas básicas sin crear una fórmula en Microsoft Excel

Cómo realizar funciones matemáticas básicas sin crear una fórmula en Microsoft Excel

cuadro de diálogo de función de pegar de Excel le permite realizar funciones matemáticas básicas sin necesidad de crear fórmulas! Es muy fácil de hacer y funciona muy bien para tareas como la actualización de precios o inventarios.
Cómo crear un estilo universitario presupuesto utilizando Excel

Cómo crear un estilo universitario presupuesto utilizando Excel

Microsoft Excel es una herramienta muy potente que se usa en lo cotidiano del mundo de negocios. Más a menudo se utiliza para comunicar cómo realiza un negocio financiero, pero sus ' aplicaciones son infinitas. Si su uso de Excel para crear un benefi
Cómo crear una simple base de datos en Excel usando filtros

Cómo crear una simple base de datos en Excel usando filtros

Lista de pasos:Paso 1: dos opciones para importar datos(1,1) usando copiar y pegarO(1,2) importar datos desde un archivoPaso 2: aplicar la función de búsqueda(2.1) configurar la función lookup()IMPORTANTE (2.2): ordenar los datos en orden para obtene
Crear una lista de tareas simple y efectiva mediante la característica de filtro de Excel

Crear una lista de tareas simple y efectiva mediante la característica de filtro de Excel

Hoy en día, es fácil de encontrar "gestión del tiempo" y "multi-tasking" habilidades en muchos puestos de trabajo. El hecho de cierto es que los empresarios están ahora necesidad de hacer malabares con muchas diferentes tareas en difer
TIPOGRAFÍA tipo del corte del LASER

TIPOGRAFÍA tipo del corte del LASER

Aquí es un tutorial rápido de las clases para alguien que tiene acceso a un cortador láser y quiere crear su propio tipo de madera de la prensa de copiar.Paso 1: Cortar el tipo En primer lugar no lo hago cada vez que escribo que es corte láser ellos
Ejemplo de Macro básicos en Excel

Ejemplo de Macro básicos en Excel

Excel tiene un programa de hoja de cálculo electrónica que permite a los usuarios almacenar, organizar y manipular datos. Tiene una amplia gama de usos en el mundo universitario y profesional. Muchos empleadores uso excel y es uno de los programas má
Piratería de Microsoft Office Excel para leer noticias stock en vivo RSS feeds

Piratería de Microsoft Office Excel para leer noticias stock en vivo RSS feeds

usted puede conseguir fácilmente a Excel como un vivo lector de noticias RSS stock con un complemento gratuito. Lo genial de esto, en lugar de usar un lector de noticias habitual, es que usted puede tenerlo a actualizar las noticias según el símbolo
Cómo crear animación Walking zapatos

Cómo crear animación Walking zapatos

para este tipo de instructivo, estoy aquí para enseñar a usted cómo crear tu propio y cómo animar un par de zapatos que caminan.Paso 1: materiales Los materiales que necesitarás para esto esDos colores de la arcilla para el cuerpo y la otra para la p
Cómo crear un logotipo de su propia

Cómo crear un logotipo de su propia

Hola de nuevo,Estoy aquí a mostrar que simplemente y fácilmente crear un logotipo de su propia.Paso 1: Hacer ideas para tu Logo. Para la creación de un logotipo, debe ser creativos, haciendo algo que es punto muerto, pegadizo y audaz para la gente ve
Crear tu propio robot de movimiento controlado

Crear tu propio robot de movimiento controlado

Experiencias de movimiento controlado no es necesario limitarse a juegos o dispositivos incluso digitales, realmente se puede lograr una interacción de movimiento sensible mediante el uso de objetos cotidianos sencillos y accesibles.Un ingeniero de a
Cómo caminar en toda América

Cómo caminar en toda América

Cómo caminar en toda América:Actualmente, estoy caminando a través de América.Actualización: He terminado mi viaje, donde terminó en New Orleans y voló a casa para volver a la escuela de postgrado.  Lo siguiente fue escrito durante el segundo mes de
Swarmscapers: Robots de impresión 3D móvil autónoma

Swarmscapers: Robots de impresión 3D móvil autónoma

Swarmscapers es un mes 2 proyecto de larga investigación realizada en el estudio de Máquinas de arquitectura creativa , impartido por Jason Kelly Johnson y Michael Shiloh en el California College of the Arts en el Laboratorio de Arte Digital. Es una
CIELO CACHE: Geocache Antena móvil

CIELO CACHE: Geocache Antena móvil

este es mi completamente autónomo Móvil aérea Geocache, o MAG. Te voy a mostrar cómo hacer uno y participar en este proyecto usted mismo.Quería crear un nuevo tipo de memoria caché interactivo que tendría la capacidad de viajar a través del cielo, y
Generador de fuente y gráficos de matriz de puntos LED Scolling 5 x 8 5 x 7 8 x 8

Generador de fuente y gráficos de matriz de puntos LED Scolling 5 x 8 5 x 7 8 x 8

si es en geeking hacia fuera con proyectos de tipo electrónico, entonces usted probablemente ha querido crear una pantalla de matriz de puntos o un punto de vista. Para ello necesita tener un fichero o tabla para leer los caracteres de.Hay muchas man