Como piscar ou piscar o texto da célula especificada no Excel?
Para destacar uma determinada célula em sua planilha, que tal piscar o texto desta célula? Este artigo mostrará o método de piscar o texto de uma célula especificada no Excel.
Texto piscando ou piscando da célula especificada com código VBA
Texto piscando ou piscando da célula especificada com código VBA
Faça o seguinte para piscar o texto de uma célula especificada no Excel.
1. Pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código a seguir na janela de código.
Código VBA: texto piscando da célula especificada 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
Note: neste código VBA, Folha2 e A1 indicam que o texto na célula A1 da Folha2 estará piscando na pasta de trabalho atual.
3. aperte o outro + Q simultaneamente para fechar o Microsoft Visual Basic para Aplicações janela.
Agora você precisa de um botão para iniciar e parar de piscar.
4. Clique Developer > inserção > Botão (controle de formulário). Veja a imagem:
5. Desenhe um botão em sua planilha e, em seguida, um Atribuir Macro caixa de diálogo aparece, por favor clique Iniciar Pisca no Macro nome e, em seguida, clique no OK botão. Veja a imagem:
6. Clique com o botão direito no botão inserido e clique em Editar texto no menu do botão direito. Em seguida, altere o texto do botão para o texto que você precisa, como Iniciar / Parar de 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 pára de piscar.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!