Como fazer o texto de uma célula específica piscar ou flash no Excel?

Para destacar uma determinada célula em sua planilha, que tal fazer o texto dessa célula piscar? Este artigo mostrará um método para fazer o texto de uma célula específica piscar no Excel.

Fazendo o texto de uma célula específica piscar com código VBA

Fazendo o texto de uma célula específica piscar com código VBA

Siga os passos abaixo para fazer o texto de uma célula específica piscar no Excel.

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o seguinte código na janela Código.

Código VBA: Texto piscante de uma célula específica no Excel

Sub StartBlink()
'Updated by ExtendOffice 20181010
    Dim xCell As Range
    Dim xTime As Variant
      On Error Resume Next
    Set xCell = Range("Sheet2!A1")
  On Error Resume Next
   
        If xCell.Font.Color = vbRed Then
            xCell.Font.Color = vbWhite
        Else
            xCell.Font.Color = vbRed
        End If
    xTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

Observação: neste código VBA, Planilha2 e A1 indicam que o texto na célula A1 da Planilha2 piscará na pasta de trabalho atual.

3. Pressione simultaneamente as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.

Agora você precisa de um botão para iniciar e parar o piscar.

4. Clique em Desenvolvedor > Inserir > Botão (Controle de Formulário). Veja a captura de tela:

5. Desenhe um botão em sua planilha, depois uma caixa de diálogo Atribuir Macro aparecerá, clique em StartBlink na caixa Nome da Macro e, em seguida, clique no botão OK. Veja a captura de tela:

6. Clique com o botão direito do mouse no botão inserido e clique em Editar Texto no menu de contexto. Altere o texto do botão para o texto desejado, como Iniciar/Parar Piscar.

A partir de agora, ao clicar no botão, o texto da célula A1 começa a piscar. E ao clicar no botão novamente, o texto da célula A1 para de piscar.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!