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