VBA 1 ir a declaración y 3siguiente bucle infinito

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

s(i)? =?prueba

Celdas(j,?i)? =?s(i)

DoEvents

DoEvents

HacerEventos

¿Siguiente?