Crear Cronometro Visible en Excel

[juancarlosto]

Tengo un problema y he investigado pero no he podido. Necesito colocar un cronometro visible en una hoja de Excel y que cuando llegue a cero emita un sonido. Por favor necesito que me ayuden y que si se puede que sea muy detallado el proceso ya que soy demasiado novato con visual.

Mil gracias

[lojoam]

Iniciado por juancarlosto

Tengo un problema y he investigado pero no he podido. Necesito colocar un cronometro visible en una hoja de Excel y que cuando llegue a cero emita un sonido. Por favor necesito que me ayuden y que si se puede que sea muy detallado el proceso ya que soy demasiado novato con visual.

Mil gracias

Buenas juan, aquí he probado 2 formas de cronometrar y te paso el código, en un label el cronometro crece y en el otro decrece. Creo que esta bien sencillo de entender, para probarlo tendrías q usar los mismos nombres de los controles en el formulario (Son 2 lbls y un cmdbutton)
Espero te sirva, Salutte

Código vb:

Private Sub cmdIniciar_Click()
If cmdIniciar.Caption = "Iniciar" Then
    Timer1.Enabled = True
    cmdIniciar.Caption = "Detener"
Else
    Timer1.Enabled = False
    cmdIniciar.Caption = "Iniciar"
End If
End Sub
  
Private Sub Form_Load()
    cmdIniciar.Caption = "Iniciar"
    Timer1.Interval = 1000
    Lblmas.Caption = "00:00:00"
    Lblmenos.Caption = "01:00:00"
End Sub
  
Private Sub Label1_Click()
 
End Sub
 
Private Sub Timer1_Timer()
    Lblmas.Caption = Format(CDate(Lblmas.Caption) + CDate("00:00:01"), "Hh:mm:ss")
  
    Lblmenos.Caption = Format(CDate(Lblmenos.Caption) - _
                                   CDate("00:00:01"), "Hh:mm:ss")
    If Lblmenos.Caption < CDate("00:00:00") Then
        Lblmenos.Caption = "01:00:00"
    End If
  
End Sub
 

[lojoam]

Y el Timer (que figura como Timer1) tambien seria el 4to control en el form que necesitarias.
Respecto a que es en Excel tu consulta y que recien re-leo la verdad no estoy seguro de que puedas agregarle un cronometro a Excel desde VB...