santa.ars
Mensagens : 138
Data de inscrição : 07/09/2011
 | | Assunto: Pisca Pisca - mudar cores em uma célula Sex Set 09, 2011 1:47 am | |
| Como faço para fazer com que uma células fique piscando, ou seja mudando de cor?
O mesmo quero fazer para com o conteúdo da célula.
| |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Pisca Pisca - mudar cores em uma célula Sex Set 09, 2011 2:23 am | |
| Boa noite!!
Não te serve a Formatação Condicional??? | |
|
santa.ars
Mensagens : 138
Data de inscrição : 07/09/2011
| | Assunto: Cores Sex Set 09, 2011 2:32 am | |
| Não serve, pois ela não fica piscando. Trocando de cores, entendeu? | |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Pisca Pisca - mudar cores em uma célula Sex Set 09, 2011 4:14 am | |
| Boa noite!! Olha isso e faça uma adaptação... - Código:
-
Option Explicit
Dim ProximoSegundo
Sub InicioDoPisca()
flashCell
End Sub
Sub FimDoPisca()
On Error Resume Next
Application.OnTime ProximoSegundo, "flashCell", , False
End Sub
Sub flashCell()
Dim célula As Range
ProximoSegundo = Now + TimeValue("00:00:01")
Application.OnTime ProximoSegundo, "flashCell"
If Range("A1") < 5 Then 'se A1 menor q 5 a celula B1 pisca
If Range("B1").Interior.ColorIndex = 36 Then
Range("B1").Interior.ColorIndex = 3
'Range("B1").Value = "Light blue"
ElseIf Range("B1").Interior.ColorIndex = 3 Then
Range("B1").Interior.ColorIndex = 36
'Range("B1").Value = "Light yellow"
End If
End If
End Sub
e ainda mais simples,
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim Cor As Integer
If Range("A30") > 299 Then
For i = 1 To 3
For Cor = 3 To 4
Range("A30").Interior.ColorIndex = Cor
Sleep 1000
Next
Next
Range("A30").Interior.ColorIndex = 0
End If
End Sub
| |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Pisca Pisca - mudar cores em uma célula Sáb Set 10, 2011 11:08 pm | |
| Temos esse também...
..Faça uma adaptação...
[/code]Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim Cor As Integer
If Range("A30") > 299 Then
For i = 1 To 3
For Cor = 3 To 4
Range("A30").Interior.ColorIndex = Cor
Sleep 1000
Next
Next
Range("A30").Interior.ColorIndex = 0
End If
End Sub[code]
Att... | |
|
Conteúdo patrocinado
| | Assunto: Re: Pisca Pisca - mudar cores em uma célula | |
| |
|
