Buenas, quizá el título no es el más idóneo para que otros usuarios puedan buscarlo llegado el caso, pero describe el problema bastante bien.
Estoy usando una hoja de cálculo como apoyo al estudio, de manera que en una hoja tengo diferentes preguntas y en otra con una macro genero cuestionarios aleatorios.
Lo que no sé cómo evitar, es que en los cuestionarios me salga una misma pregunta dos veces, lo cual se da con cierta frecuencia.
¿A alguien se le ocurre como mejorar la macro para evitar que ésto suceda?
Uso LibreOffice 4.1 y Windows 7
Saludos y gracias
[RESUELTO] Macro que no devuelva el mismo valor dos veces
-
- Mensajes: 3
- Registrado: Vie Jul 14, 2017 8:10 am
[RESUELTO] Macro que no devuelva el mismo valor dos veces
- Adjuntos
-
- Ejemplo para foro.ods
- (18.8 KiB) Descargado 165 veces
Última edición por mauricio el Mié Jul 19, 2017 3:43 pm, editado 2 veces en total.
Razón: Marcar resuelto correctamente
Razón: Marcar resuelto correctamente
LibreOffice 4.1
Windows 7
Windows 7
- gustavodiaz00
- Mensajes: 64
- Registrado: Mié Abr 26, 2017 1:29 am
- Ubicación: Argentina, San Nicolás de los Arroyos
Re: Arreglar macro para que no devuelva el mismo valor dos v
Hola, se me ocurre que cuando generes el número aleatorio lo compares con todas las celdas del rango que que se usen y si no esta lo ingreses, asi evitas que si el numero aleatorio que genera es repetido no ingreses la pregunta y generes otro hasta completar el rango.
LibreOffice 6.1 en KDE Neon
- gustavodiaz00
- Mensajes: 64
- Registrado: Mié Abr 26, 2017 1:29 am
- Ubicación: Argentina, San Nicolás de los Arroyos
Re: Arreglar macro para que no devuelva el mismo valor dos v
Modifique un poco el codigo espero que te sirva.
- Adjuntos
-
- Ejemplo Modificado.ods
- (18.42 KiB) Descargado 180 veces
LibreOffice 6.1 en KDE Neon
-
- Mensajes: 3
- Registrado: Vie Jul 14, 2017 8:10 am
Re: Arreglar macro para que no devuelva el mismo valor dos v
Va prácticamente perfecto. Muchas gracias.
Sólo hay un detalle, que no termino de ver por qué sucede. He acortado el número de preguntas para observar más rápidamente que tal funciona tu versión primero a 49 preguntas disponibles en el temario y luego a 40 (manteniendo las 30 preguntas aleatorias del cuestionario) y he observado que la última de ellas sí es susceptible de aparecer repetida. En el ejemplo de 40 preguntas disponibles, la número 40 sí puede salir repetida.
Saludos
Sólo hay un detalle, que no termino de ver por qué sucede. He acortado el número de preguntas para observar más rápidamente que tal funciona tu versión primero a 49 preguntas disponibles en el temario y luego a 40 (manteniendo las 30 preguntas aleatorias del cuestionario) y he observado que la última de ellas sí es susceptible de aparecer repetida. En el ejemplo de 40 preguntas disponibles, la número 40 sí puede salir repetida.
Saludos
LibreOffice 4.1
Windows 7
Windows 7
- gustavodiaz00
- Mensajes: 64
- Registrado: Mié Abr 26, 2017 1:29 am
- Ubicación: Argentina, San Nicolás de los Arroyos
Re: Arreglar macro para que no devuelva el mismo valor dos v
Hola Fijate que lo que puede estar mal es el rango de busquda A3:A32.
Proba con modificar los datos de las celdas.
O lo otro que puede estar mal es en que momento se cumple la condicion de salida en el lazo do.
Revisalo y yo creo que ajustando bien esos datos debería andar bien.
Y paciencia amigo en libreOffice u OpenOffice vas a poder hacer muchas cosas, buscando y preguntando se consiguen muchas cosas que podes estudiar y modificar para tus necesidades.
Proba con modificar los datos de las celdas.
O lo otro que puede estar mal es en que momento se cumple la condicion de salida en el lazo do.
Revisalo y yo creo que ajustando bien esos datos debería andar bien.
Y paciencia amigo en libreOffice u OpenOffice vas a poder hacer muchas cosas, buscando y preguntando se consiguen muchas cosas que podes estudiar y modificar para tus necesidades.
LibreOffice 6.1 en KDE Neon
-
- Mensajes: 3
- Registrado: Vie Jul 14, 2017 8:10 am
Re: Arreglar macro para que no devuelva el mismo valor dos v
Muchas gracias, seguiré dándole vueltas y si consigo mejorar el resultado, ya vendré a ponerlo por si a alguien más le sirve.
Mientras tanto doy el tema por resuelto.
Gracias de nuevo Gustavo!
Mientras tanto doy el tema por resuelto.
Gracias de nuevo Gustavo!
LibreOffice 4.1
Windows 7
Windows 7