Private Sub Timer1_Timer()
Dim a
a = a + 1
Debug.Print a
End Sub
En ves de irme Sumando 1, se me queda en 1........ No suma 1, 2 ,3, 4....
Pq???????
Primero de todo has de declarar una condicion inicial, por ejemplo a= o, el contador a=a+1 te quedaria despues de la accion, tu codigo quedaria asi:
sub nombre1()
dim a as integer
a=0
Debug.Print a
a=a+1
end sub
Ahora solo faltaria implementarle la estructura de repeticion, por ejemplo:
sub nombre1()
dim a as integer
a=0
for a=0 to 6 do
Debug.Print a
a=a+1
loop
end sub
Esto seria un contador de hasta seis veces por ejemplo, hay muchas estructuras de para contadores... busca info.
Saludos.
Autor
En línea
