VBA – Fazendo uma célula piscar no Excel

Baseado num pedido do fórum, e resultado de uma pesquisa na web, segue uma funcionalidade curiosa, mas útil ao mesmo tempo! Siga os seguintes passos para obter o resultado.

Insira esse código na sua planilha:

Private Sub Worksheet_Calculate()
  If Range("B1").Value > 0 Then
      Blink "A1"
  Else
      Range("A1").Interior.ColorIndex = 0
  End If
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.Run Me.CodeName & ".Worksheet_Calculate"
End Sub

Insira este código num módulo:

Sub Blink(cell As String)
  If Range(cell).Interior.ColorIndex = 6 Then
      Range(cell).Interior.ColorIndex = 0
  Else
      Range(cell).Interior.ColorIndex = 6
  End If
  Application.OnTime Now + 1 / 86400, "doagain"
End Sub
Sub DoAgain()
  Application.Run Sheets("SuaPlanilha").CodeName & ".Worksheet_Calculate" 'mude aqui no nome da planilha
End Sub

Com esse código, se a célula B1 não estiver vazia, a célula A1 piscará. Faça o teste.

Referência

http://en.allexperts.com/q/Excel-1059/Excel-blinking-cells.htm

Abraços

 

Modelos – Cadastro com integração de Access x Excel e Gráficos

Mais uma do nosso glorioso fórum! Desta vez o responsável pela obra foi o Henry-Systems. Para terem uma ideia do trabalho do camarada, dêem uma olhada no visual da planilha:

Monitoramento qualidade fornecedores
Monitoramento qualidade fornecedores

Um verdadeiro Dashboard feito no Excel. De primeira! Nas palavras do próprio:

Salve, salve a todos!

Após algum tempo longe do forum aqui estou eu de novo com mais uma novidade com acadastro integrando access e o excel.

O modelo proposto visa incluir respostas e motivos de devoluções no banco de dados  Access e depois obter através do arquivo “Monitoramento qualidade fornecedores.xlsm”, os resultados em percentuais por mês dias e por fornecedores e em graficos, exportando so dados do access para o excel.

As senhas de acesso  ao VB em todos os arquivos: 032164.Onofre.

Espero que possa ajudar aos demais colegas.

Abraços a todos

Download do Arquivo

 Monitoramento qualidade fornecedores – Access.rar

Cadastro de monitoramento(959.53 KiB)