VBA 1 ir a declaración y 3siguiente bucle infinito
Sub?H grupo()
Dim?j,?i,?a,?test,?s(1?to?12)?as?integer,?sameflag?as?boolean
Para?j?=?1.to?240
Para?i?=?1.to.12
Prueba?p>a?=?1< / p>
prueba?=?Application.WorksheetFunction.RandBetween(1,?12)
¿Hacer?While?a?lt;gt;?i
sameflag?= ? Verdadero
Si?s?(a)?=entonces
a?=?1
prueba?=?Application.WorksheetFunction.RandBetween(1, ? 12)
sameflag?=?False
Fin?If
If?=?a ?1
Bucle p? >
s(i)? =?prueba
Celdas(j,?i)? =?s(i)
DoEvents
DoEvents
HacerEventos
¿Siguiente?