Arquivo da tag: Célula

Excel, Microsoft Office, VBA

VBA – Fazendo uma célula piscar no Excel

1 Comentário

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