Temporizador excel
Saludos:
Una consulta, quiero hacer un formulario compuesto de varios togglebutton y los cuales quiero que su value se haga true y false de acuerdo a un tiempo determinado (2 segundos).
Pensé hacerlo así:
Private Sub Commandbutton1_Click()
Togglebutton1.value = true
(comando para hacer tiempo de dos segundos)
Togglebutton1.value = false
(comando para hacer tiempo de dos segundos)
Togglebutton2.value = true
(comando para hacer tiempo de dos segundos)
Togglebutton2.value = false
(comando para hacer tiempo de dos segundos)
Togglebutton3.value = true
etc, etc
end sub()
Pero no sé como es el comando para tiempo, ni sé si estoy haciendo bien.
Ayúdeme por favor
Ant791
Una consulta, quiero hacer un formulario compuesto de varios togglebutton y los cuales quiero que su value se haga true y false de acuerdo a un tiempo determinado (2 segundos).
Pensé hacerlo así:
Private Sub Commandbutton1_Click()
Togglebutton1.value = true
(comando para hacer tiempo de dos segundos)
Togglebutton1.value = false
(comando para hacer tiempo de dos segundos)
Togglebutton2.value = true
(comando para hacer tiempo de dos segundos)
Togglebutton2.value = false
(comando para hacer tiempo de dos segundos)
Togglebutton3.value = true
etc, etc
end sub()
Pero no sé como es el comando para tiempo, ni sé si estoy haciendo bien.
Ayúdeme por favor
Ant791
1 respuesta
Respuesta de José Saúl Méndez Alonso
1
Te dejo este código a ver si te funciona
Private Sub Commandbutton1_Click()
Togglebutton1.value = not Togglebutton1.value
Pausa 2 'Aquí va la pausa del tiempo que necesites esta en segundos
Commandbutton1_Click
end sub()
Sub Pausa(nSec As Single)
Dim TimeIni As Single
Dim TimeFin As Single
TimeIni = Timer
TimeFin = TimeIni + nSec
Do While TimeFin > Timer
DoEvents
If TimeIni > Timer Then
TimeFin = TimeFin - 24 * 60 * 60
End If
Loop
End Sub
Private Sub Commandbutton1_Click()
Togglebutton1.value = not Togglebutton1.value
Pausa 2 'Aquí va la pausa del tiempo que necesites esta en segundos
Commandbutton1_Click
end sub()
Sub Pausa(nSec As Single)
Dim TimeIni As Single
Dim TimeFin As Single
TimeIni = Timer
TimeFin = TimeIni + nSec
Do While TimeFin > Timer
DoEvents
If TimeIni > Timer Then
TimeFin = TimeFin - 24 * 60 * 60
End If
Loop
End Sub
Muchas gracias:
Solo me faltaba haber creado el comando pausa y los segundos que quiero realizar.
Me sirvió mucho, muchas gracias.
Ant791
Solo me faltaba haber creado el comando pausa y los segundos que quiero realizar.
Me sirvió mucho, muchas gracias.
Ant791
