Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Pisca Pisca - mudar cores em uma célula

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
santa.ars



Mensagens : 136
Data de inscrição : 07/09/2011

MensagemAssunto: 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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: 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???
Voltar ao Topo Ir em baixo
Ver perfil do usuário
santa.ars



Mensagens : 136
Data de inscrição : 07/09/2011

MensagemAssunto: Cores   Sex Set 09, 2011 2:32 am

Não serve, pois ela não fica piscando. Trocando de cores, entendeu?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Pisca Pisca - mudar cores em uma célula   Sab 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...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Pisca Pisca - mudar cores em uma célula   Hoje à(s) 10:13 pm

Voltar ao Topo Ir em baixo
 
Pisca Pisca - mudar cores em uma célula
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Mudar cores de partes do fórum
» Mudar cores padrões da opção "cor do texto"
» Mudar cor das Estatisticas
» Piscando(tipo Mario) quando inicia a room e quando colide com o inimigo?
» Mudar cores e imagens do forum!

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Intermediário :: Excel Intermediário-
Ir para: