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
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins