Boa tarde à todos.
Estou com um problema na execução do código que segue abaixo. Trata-se de um código onde ao clicar no botão uma label deve piscar algumas vezes, mas não estou conseguindo ajustá-lo para o excel 2013 em sistema operacional windows 64 bit. Alguém pode me ajudar?
Option Explicit
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Private Const Preto As Long = &H80000012
Private Const Vermelho As Long = &HFF&
Private Sub CommandButton1_Click()
Dim lngTime As Long
Dim i As Integer
For i = 1 To 20 'Numero de vezes que o label vai piscar
lngTime = GetTickCount
If Me.Label1.ForeColor = Preto Then
Me.Label1.ForeColor = Vermelho
Else
Me.Label1.ForeColor = Preto
End If
DoEvents
Do While GetTickCount - lngTime < 200 'Tempo de espera para proximo loop de 2 segundos
Loop
Next
End Sub
Referenciando o código acima devo dizer que o encontrei no site vba.express
Dimasbrito
Novo Membro
Registrado
42 Mensagens
6 Curtidas