A
apis
hello everyone,
I would like to create a blinking button...What I have done
is....
=============================================================================
Sub blinking()
Dim X As Integer
x = 0
DD:
X = X + 1
If ActiveSheet.Buttons("Button 1").Text = "BUTTON 1" Then
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.Buttons("Button 1").Text = ""
ElseIf ActiveSheet.Buttons("Button 1").Text = "" Then
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.Buttons("Button 1").Text = "BUTTON 1"
End If
If X <> 10 Then
GoTo DD
End If
End Sub
=============================================================
The problem is...this only limited to x=10..meaning its blinking
around 5 times..and during this time, i cant click on anything..i want
the loop to go on and on until user click on another button. something
like a interrupt request... is there any solution for this ?
regards,
Aisar
I would like to create a blinking button...What I have done
is....
=============================================================================
Sub blinking()
Dim X As Integer
x = 0
DD:
X = X + 1
If ActiveSheet.Buttons("Button 1").Text = "BUTTON 1" Then
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.Buttons("Button 1").Text = ""
ElseIf ActiveSheet.Buttons("Button 1").Text = "" Then
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.Buttons("Button 1").Text = "BUTTON 1"
End If
If X <> 10 Then
GoTo DD
End If
End Sub
=============================================================
The problem is...this only limited to x=10..meaning its blinking
around 5 times..and during this time, i cant click on anything..i want
the loop to go on and on until user click on another button. something
like a interrupt request... is there any solution for this ?
regards,
Aisar