Descargas, guías, trucos, gameplays...

viernes, 25 de mayo de 2012

Programar un contador en celda de una hoja de calculo





Esta entrada es en respuesta a una consulta de la sección Ayuda VBA Excel

Acontinuación se explica una forma sencilla de programar un contador cuyo avance se observa en una celda de la hoja de calculo:

1
Crear un nuevo libro. Insertar un botón:







2
Con el modo de diseño activado dar doble clic izquierdo en el botón y cuando se abra el editor VBA insertar el siguiente código:

Private Sub CommandButton1_Click()
    Cells(1, 1) = 0 'aquí se define la celda donde se quiere mostrar el contador
                    'en este ejemplo se ha iniciado en cero
    
    For x = 1 To 5 'se define hasta cuantos segundos va a contar
        Application.Wait Now + TimeValue("00:00:01") 'se define cada cuanto se actualiza
                                                     'aquí se actualiza cada segundo
        Cells(1, 1) = x 'con esta linea se actualiza el contador
    Next x
    Cells(1, 1) = ""'limpia el contenido de la celda donde aparece el contador
End Sub



3
Al presionar el botón se vera como en la celda A1 o Cells(1, 1) se inicia el contador en 0 y cuenta hasta 5:



Esto es todo. Espero haber ayudado y gracias por la consulta.

No hay comentarios:

Publicar un comentario