O Excel não apresenta texto piscando ou piscando como uma opção de fonte. Usando o Visual Basic for Applications integrado 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.
Passo 1
Abra o arquivo do Microsoft Excel 2010 no qual deseja fazer o texto piscar. Pressione “Alt” e “F11 ″ para abrir o console do VBA.
Vídeo do dia
Passo 2
Clique com o botão direito na entrada “ThisWorkbook” no lado esquerdo do console VBA. Passe o mouse sobre “Inserir” e escolha “Módulo”.
etapa 3
Clique duas vezes na opção "ThisWorkbook". Copie o código a seguir e cole-o no espaço em branco no lado direito da tela:
Private Sub Workbook_Open () Blink End Sub
Private Sub Workbook_BeforeClose (Cancelar como booleano) NoBlink End Sub
Este código começará e o texto piscando quando você abrir esta pasta de trabalho e parará o texto piscando quando você fecha a pasta de trabalho, depois de inserir o código para informar ao Excel o que o Blink e o NoBlink realmente significar.
Passo 4
Clique duas vezes em "Módulo 1" na lista do lado esquerdo da tela. Posicione o cursor no lado direito da tela e digite a seguinte linha:
Contagem de horas pública em dobro
Isso cria uma variável chamada "Timecount" que você pode usar em todas as sub-rotinas.
Etapa 5
Pressione enter para mover o cursor para a próxima linha e insira o seguinte código:
Sub pisca () com este livro. 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. Planilhas ("Folha1"). Faixa ("A1: A10"). Fonte. 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, de forma que quem abrir a pasta de trabalho sem as macros habilitadas não verá 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 abra-o novamente. Seu texto, dentro do intervalo definido na macro, começará a piscar. Dependendo das 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.
