En Excel VBA, ¿cómo se crea un efecto de desplazamiento de dos dígitos para el control de texto en el formulario, como si se dibujara un lote? Gracias.

¿Quieres el efecto que se muestra arriba? Me acabo de enterar de que está en orden y agregué el código de pedido más tarde.

Código desordenado:

¿Privado? ¿Sub? CommandButton1_Click()

¿Y si? Botón de comando 1. ¿título? ="Inicio"? Luego

Botón de comando 1. ¿título? =?"Detener"

Cuadro de texto 1. ¿Palabra? =?Format(Int(Rnd?*?99?+?1),?"00")

Otros

Botón de comando 1. ¿título? =?"Ir"

¿Fin? Si

¿Finalizar? Submarino

¿Privado? ¿Sub? TextBox1_Change()

Hacer una llamada? Retraso (0.1)' ajusta la velocidad aleatoria aquí, ahora es 0.1 segundos, ajústala según tus propios deseos.

¿Y si? Botón de comando 1. ¿título? ="Inicio"? ¿Entonces qué? ¿abandonar? Submarino

Cuadro de texto 1. ¿Palabra? =?Formato(Int(Rnd?*?99?+?1),?"00")

Timbre

Fin? Submarino

¿Privado? ¿Sub? Retraso(T?as?Single)

¿Dim? ¿T1? ¿Como? ¿Soltero

T1? =?Temporizador

Hacer

Múltiples actividades

¿Bucle? ¿cuando? ¿Minutero? -?T1? <? T

¿Fin? Submarino

Código de pedido:

¿Privado? ¿Sub? CommandButton1_Click()

¿Y si? Botón de comando 1. ¿título? ="Inicio"? Luego

Botón de comando 1. ¿título? =?"Detener"

Cuadro de texto 1. ¿Palabra? =?Formato(1,?"00")

Otros

Botón de comando 1. ¿título? =?"Ir"

¿Fin? Si

¿Finalizar? Submarino

¿Privado? ¿Sub? TextBox1_Change()

Hacer una llamada? Retraso(0.1)

¿Y si? Botón de comando 1. ¿título? ="Inicio"? ¿Entonces qué? ¿abandonar? Submarino

¿Y si? Cuadro de texto 1. ¿Palabra? =?99?Entonces

Cuadro de texto 1. ¿Palabra? =?Formato(1,?"00")

Otro

Cuadro de texto 1. ¿Palabra? =?Formato(cuadro de texto1.

¿Palabra? +?1,?"00")

¿Fin? ¿Qué pasa si

el anillo

se acaba? Submarino