Como Fazer Texto Piscar no Excel

O Excel não possui texto piscante ou intermitente como opção de fonte. Usando o Visual Basic for Applications integrado, porém, você pode usar código para fazer o texto mudar de cor a cada segundo, criando efeito de piscar.

Passo 1

Abra o arquivo Microsoft Excel 2010 no qual deseja fazer o texto piscar. Pressione "Alt" e "F11" para abrir o console VBA.

Passo 2

Clique com o botão direito na entrada "ThisWorkbook" no lado esquerdo do console VBA. Mova o mouse sobre "Inserir" e escolha "Módulo".

Passo 3

Clique duas vezes na opção "ThisWorkbook". Copie o código abaixo e cole no espaço em branco no lado direito da tela:

Private Sub Workbook_Open() Blink End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) NoBlink End Sub

Este código iniciará o texto piscante ao abrir esta pasta de trabalho, e parará ao fechá-la, após inserir o código que diz ao Excel o que Blink e NoBlink significam.

Passo 4

Clique duas vezes em "Módulo 1" na lista à esquerda. Posicione o cursor no lado direito e insira a linha:

Public Timecount As Double

Isso cria uma variável "Timecount" utilizável em toda sub-rotina.

Passo 5

Pressione Enter para ir à próxima linha e insira o código:

Sub blink() With ThisWorkbook.Worksheets("Plan1").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 "Blink" que fará todo texto no intervalo definido piscar. Pode alterar o intervalo de "A1:A10" para o que desejar, incluindo célula individual.

Passo 6

Pressione "Enter" para acessar a próxima linha e insira o código:

Sub noblink() ThisWorkbook.Worksheets("Plan1").Range("A1:A10").Font.ColorIndex = _ xlColorIndexAutomatic Application.OnTime Timecount, "Blink", , False End Sub

Isso criará sub-rotina que roda ao fechar a pasta. Devolve todo texto ao preto, para que alguém que abra sem macros habilitadas não veja caixas vazias.

Passo 7

Feche o console VBA clicando no "X" no canto superior direito. Clique na guia "Arquivo" no topo e escolha "Salvar Como". Selecione "Pasta de Trabalho Habilitada para Macro do Excel" no campo suspenso e digite um nome. Clique "Salvar".

Passo 8

Feche o arquivo Excel e reabra. Seu texto, no intervalo definido na macro, começará a piscar. Dependendo das configurações de segurança, pode precisar clicar "Habilitar Macros" no topo da tela para ver o texto piscante.

• Como Conectar Cabo Coaxial Wi-Fi a RJ45
• Diferenças Entre CSS e CSS3