Piscar célula no Excel

rmonteiro
Membro
Membro
Status:
Mensagens: 5
Registro: 09 Fev 2009
Karma: [0] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Piscar célula no Excel

Mensagem por rmonteiro » 24 Jun 2009

Gostaria de saber se tem como fazer com que uma determinada célula fique "piscando" quando o valor nela contido atingir, por exemplo, 90% do valor máximo permitido.
Esta célula é uma SOMA de várias outras.

Ronaldo

JhotaJotha
Membro
Membro
Status:
Mensagens: 4
Registro: 23 Jun 2009
Karma: [0] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Piscar célula no Excel

Mensagem por JhotaJotha » 24 Jun 2009

Nunca ouvi falar em piscar a célula, vale a pena pesquisar se é possível, mas de antemão, tente usa a formatação condicional, assim, quando a célula atingir o valor ex: 90%, ficará colorida com a cor que você definir!. é até mais fácil de identificar.

wumbo-castle
Membro
Membro
Status:
Mensagens: 123
Registro: 21 Mai 2009
Karma: [2] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Piscar célula no Excel

Mensagem por wumbo-castle » 24 Jun 2009

SOU USUARIO BASICO DE EXCEL, MAS SE EU FOSSE TENTAR FAZER ISSO NA RACA, FARIA UM ESQUEMA COMPLEXO DE INTERPRETACAO DE SEGUNDOS E MINUTOS, ASSIM UMA CELULA ASSUME UMA FORMATACAO CONDICIONAL QUANDO O SEGUNDO FOSSE PAR E OUTRA COR QUANDO FOSSE IMPAR, ETC... A VARIAVEL QUE O FARA MUDAR DE COR (ALEM DOS 90%), TERIA DE ESTAR AUTOMATIZADA E FAZENDO UM LOOP CONSTANTE.
NUNCA TENTEI E NEM SEI SE DA, MAS ESSE SERIA O PASSO QUE EU DARIA.

AGORA, EM VBA, NAO SEI SE TEM JEITO MAIS FACIL, TALVEZ COM O RELOGIO INTERNO TAMBEM....??!?!?!??

E ISSO... EXPLORE A IDEIA E MAOS A OBRA, SEMPRE SAI ALGUMA COISA NESTAS TENTATIVAS-ERROS.

ABRACO

Avatar de usuário
Canguru
Membro
Membro
Status:
Mensagens: 458
Registro: 16 Jan 2009
Localização: Santo André - SP
Karma: [65] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Piscar célula no Excel

Mensagem por Canguru » 25 Jun 2009

Insira num módulo a seguinte procedure:

Sub Pisca()
Dim start
Dim PauseTime

start = Timer
PauseTime = 0.5

Do While Timer < start + 10 'loop eterno
If Range("C1") >= 0.9 Then 'pisca
If Range("C1").Interior.ColorIndex = xlNone Then
Range("C1").Interior.ColorIndex = 20
Do While Timer < start + PauseTime
DoEvents ' submete a outros processos.
Loop
start = Timer
End If
If Range("C1").Interior.ColorIndex = 20 Then
Range("C1").Interior.ColorIndex = xlNone
Do While Timer < start + PauseTime
DoEvents ' submete a outros processos.
Loop
start = Timer
End If
Else
Range("C1").Interior.ColorIndex = xlNone
End
End If
Loop
End Sub


Na procedure de evento da planilha em questão deixe assim:

Private Sub Worksheet_Calculate()
Call Pisca
End Sub


Observe que estou fazendo para a célula C1. Adapte para a sua planilha.
Boa sorte e sucesso!!
Canguru
www.detone.net.br

julianodr
Membro
Membro
Status:
Mensagens: 75
Registro: 18 Mai 2009
Karma: [0] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Piscar célula no Excel

Mensagem por julianodr » 25 Jun 2009

Funcionou certinho..

Bem legal....conhecia esta nao.. showww

Abs

Juliano

sashapel
Membro
Membro
Status:
Mensagens: 1
Registro: 28 Dez 2009
Karma: [0] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Piscar célula no Excel

Mensagem por sashapel » 28 Dez 2009

Muito show, esta procurando isto a tempo e como faço para apenas piscar a celula.
Sem depender de percentual!

galileu
Membro
Membro
Status:
Mensagens: 57
Registro: 25 Jan 2009
Karma: [8] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Piscar célula no Excel

Mensagem por galileu » 02 Jan 2010

Neste exemplo a célula B10 deverá piscar 40 vezes alternando a cor entre vermelho e amarelo.

Esta macro deverá ser colada em um módulo comum e poderá ser acionada por um botão.

Código: Selecionar tudo
Sub pisca()
Dim x As Integer
Dim pausa As Currency
Dim inicio As Date
For x = 1 To 40 'total de piscadas
pausa = 0.2 'duração da pausa entre as piscadas em segundos
inicio = Timer ' hora inicial
Do While Timer < inicio + pausa
  DoEvents 'submeta a outros processos
Loop
  If Range("b10").Interior.ColorIndex = 6 Then
        Range("b10").Interior.ColorIndex = 3
   Else
        Range("b10").Interior.ColorIndex = 6
  End If
Next x
End Sub

galileu
Membro
Membro
Status:
Mensagens: 57
Registro: 25 Jan 2009
Karma: [8] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Piscar célula no Excel

Mensagem por galileu » 02 Jan 2010

Neste outro exemplo qualquer célula de uma planilha piscará quando seu conteúdo for alterado.

Cole a macro abaixo na folha VBA de uma planilha.

Código: Selecionar tudo
Private Sub Worksheet_Change(ByVal Target As Range)
For x = 1 To 10 'total de piscadas
pausa = 0.2 'duração da pausa entre as piscadas em segundos
inicio = Timer ' hora inicial
Do While Timer < inicio + pausa
  DoEvents 'submenta a outros processos
Loop
  If Target.Interior.ColorIndex <> 3 Then
        Target.Interior.ColorIndex = 3 'pinta célula de vermelho
   Else
        Target.Interior.ColorIndex = xlNone 'retira a cor da célula
  End If
Next x
Target.Interior.ColorIndex = xlNone
End Sub

galileu
Membro
Membro
Status:
Mensagens: 57
Registro: 25 Jan 2009
Karma: [8] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Piscar célula no Excel

Mensagem por galileu » 02 Jan 2010

Outro exemplo que faz a célula B10 piscar por 40 vezes, desta vez usando o sleep.

Cole a macro abaixo em um módulo comum e instale um botão para acioná-la.

Código: Selecionar tudo
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub pisca()
Dim x As Integer
For x = 1 To 40 'total de piscadas
  DoEvents 'submeta a outros processos
  If Range("b10").Interior.ColorIndex = 6 Then
        Range("b10").Interior.ColorIndex = 3
   Else
        Range("b10").Interior.ColorIndex = 6
  End If
  Sleep 400 'temporizar por 0,4 segundos
Next x
End Sub

marotondo
Membro
Membro
Status:
Mensagens: 26
Registro: 07 Dez 2009
Karma: [0] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Piscar célula no Excel

Mensagem por marotondo » 06 Jan 2010

Olá,

Como faço o macro para que pisque nas células b1 e c1 quando ultrapassar um determinado valor.

Mario

Próximo

Retornar para Excel

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante

PUBLICIDADE