Como fazer uma célula piscar em vermelho no Excel?
Em geral, destacamos células com diferentes fundos para distingui-las de outras. No entanto, neste artigo, vou apresentar um código VBA que faz com que células específicas pisquem com um fundo vermelho para se destacarem no Excel.
Fazer célula piscar vermelha com VBA
Fazer célula piscar vermelha com VBA
Para fazer as células piscarem e atrair a atenção dos usuários, aqui está um código VBA.
1. Ative a planilha onde deseja que as células pisquem e pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código VBA no script do Módulo. Veja a captura de tela:
VBA: Fazer célula piscar vermelha
Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
Dim xColor As Integer
Dim xCount As Integer
Dim xSpeed As Double
Dim xStart As Double
Dim xDelay As Double
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value > 4 Then
xColor = 3
xSpeed = 0.6
Do Until xCount = 20
DoEvents
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xColor
Loop
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xlNone
Loop
xCount = xCount + 1
Loop
End If
Next
End Sub
3. Pressione F5 e uma caixa de diálogo Kutools for Excel aparecerá para selecionar as células que você deseja fazer piscar, veja a captura de tela:
4. Clique em OK. Agora a célula selecionada começará a piscar com o fundo vermelho.
Dicas:
(1) No código VBA, você pode alterar a cor de fundo (xColor = 3), a velocidade do piscar (xSpeed = 0.6) e o número de vezes que pisca (Do Until xCount = 20) conforme desejar.
(2) Este código VBA não adicionará o fundo piscante a seleções em branco.
(3) Este fundo piscante será removido automaticamente após o término das vezes configuradas.
Melhores Ferramentas de Produtividade para Office
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!