Como fazer o texto de uma célula específica piscar ou ficar intermitente no Excel?
Que tal destacar uma célula na sua folha de cálculo fazendo o seu texto piscar? Este artigo mostra-lhe um método para fazer o texto de uma célula específica piscar no Excel.
Fazer o texto de uma célula específica piscar com código VBA
Fazer 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. Prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código seguinte na janela de código.
Código VBA: Fazer o texto de uma célula específica piscar 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 SubNota: neste código VBA, Sheet2 e A1 indicam que o texto na célula A1 da folha Sheet2 irá piscar no livro de trabalho atual.
3. Prima simultaneamente as teclas Alt+Q para fechar a janela do Microsoft Visual Basic for Applications.
Agora precisa de um botão para iniciar e parar o piscar.
4. Clique em Programador > Inserir > Botão (Controlo de Formulário). Veja a imagem:
5. Desenhe um botão na sua folha de cálculo; em seguida, aparece a caixa de diálogo Atribuir Macro. Clique em StartBlink na caixa Macro nome e, depois, clique no botão OK. Veja a imagem:
6. Clique com o botão direito do rato no botão inserido e selecione Editar Texto no menu de contexto. Em seguida, altere o texto do botão para o pretendido, por exemplo, Iniciar / Parar Piscar.
A partir de agora, ao clicar no botão, o texto da célula A1 começa a piscar; ao clicar novamente, deixa de piscar.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos