O Excel não apresenta texto piscando ou piscando como uma opção de fonte. Usando o Visual Basic for Applications interno do Excel, no entanto, você pode usar o código para fazer o texto mudar de cor em cada seção, criando um efeito intermitente.
Etapa 1
Abra o arquivo do Microsoft Excel 2010 no qual você deseja fazer o texto piscar. Pressione “Alt” e “F11″ para abrir o console VBA.
Etapa 2
Clique com o botão direito do mouse na entrada "ThisWorkbook" no lado esquerdo do console VBA. Mova o mouse sobre “Inserir” e escolha “Módulo”.
Etapa 3
Dê um duplo clique na opção "ThisWorkbook". Copie o código a seguir e cole-o no espaço em branco do lado direito da tela:
Private Sub Workbook_Open() Pisca End Sub
Private Sub Workbook_BeforeClose(Cancelar como booleano) NoBlink End Sub
Esse código será iniciado e o texto piscando quando você abrir esta pasta de trabalho e parará o texto piscando quando você fechar a pasta de trabalho, depois de inserir o código para informar ao Excel o que Blink e NoBlink realmente significam.
Etapa 4
Dê um duplo clique em “Módulo 1″ na lista do lado esquerdo da tela. Coloque o cursor no lado direito da tela e digite a seguinte linha:
Contagem de tempo pública como dobro
Isso cria uma variável chamada "Timecount" que você pode usar em cada sub-rotina.
Etapa 5
Pressione enter para mover o cursor para a próxima linha e digite o seguinte código:
Sub blink() With ThisWorkbook.Worksheets("Sheet1").Range("A1:A10").Font If .ColorIndex =3 Then .ColorIndex =2 Else .ColorIndex =3 End If End With Timecount =Now + TimeSerial(0 , 0, 1) Application.OnTime Timecount, "Blink", , True End Sub
Isso cria uma sub-rotina chamada "Blink" que fará com que todo o texto dentro do intervalo definido pisque. Você pode alterar o intervalo de "A1:A10" para qualquer intervalo que desejar, incluindo uma célula individual.
Etapa 6
Pressione "Enter" para acessar a próxima linha e digite o seguinte código:
Sub noblink() ThisWorkbook.Worksheets("Sheet1").Range("A1:A10").Font.ColorIndex =_ xlColorIndexAutomatic Application.OnTime Timecount, "Blink", , False End Sub
Isso criará uma sub-rotina que será executada quando você fechar a pasta de trabalho. Ele transforma todo o texto novamente em preto, para que alguém que abra a pasta de trabalho sem as macros habilitadas não veja acidentalmente nada nas caixas de texto.
Etapa 7
Feche o console VBA clicando no "X" no canto superior direito. Clique na guia “Arquivo” na parte superior da tela e escolha “Salvar como”. Selecione "Pasta de trabalho habilitada para macro do Excel" no campo suspenso e digite um nome para a pasta de trabalho. Clique em "Salvar".
Etapa 8
Feche o arquivo do Excel e reabra-o. Seu texto, dentro do intervalo definido na macro, começará a piscar. Dependendo de suas configurações de segurança, pode ser necessário clicar no botão "Ativar Macros" na parte superior da tela para ver o texto piscando.
