Actividad pública reciente
Ha valorado "Buena" la respuesta
Es posible que el siguiente ciclo empiece rapido y temine lentamente estilo ruletaFor x = 1 To 300Selection.ClearContentsNext
Te anexo un ejemplo Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' Sub aleatorio() 'Por.Dante Amor For i = 1 To 300 Sleep (i / 4) Range("B3").Value = i DoEvents Next i End Sub Si quieres que vaya más lento divide (i / 3), más lento...
Ha empezado a seguir el tema Ingeniería Informática
Educación
-
Fundacion Universitaria San Martin
-
Claro