Como fazer um texto piscar no Excel

O Excel não possui textos intermitentes ou intermitentes como opção de origem. No entanto, usando o Excel integrado no Visual Basic for Applications, você pode usar o código para fazer com que o texto mude de cor em cada seção, criando um efeito trêmulo.

Passo 1

Abra o arquivo do Microsoft Excel 2010 no qual você deseja fazer o texto piscar. Pressione as teclas “Alt” e “F11” para abrir o console do VBA.

Etapa 2

Clique com o botão direito do mouse na entrada “ThisWorkbook” no lado esquerdo do console do VBA. Passe o mouse sobre “Inserir” e escolha a opção “Módulo”.

Etapa 3

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

Sub Privado Workbook_Open () Blink End Sub

Private Sub Workbook_BeforeClose (Cancelar como booleano) NoBlink End Sub

Esse código começará ao lado do texto que pisca quando você abre este livro e o texto para de piscar quando você fecha o livro, depois de inserir o código para informar ao Excel o que realmente significa “piscar” e “não piscar”.

Etapa 4

Clique duas vezes em “Módulo 1”, na lista no lado esquerdo da tela. Coloque o cursor no lado direito da tela e digite a seguinte linha:

Timecount público como dobro

Isso cria uma variável chamada “Timecount” que pode ser usada em cada subprograma.

Etapa 5

Pressione Enter para mover o cursor para a próxima linha e digite o seguinte código:

Sub-piscada () Com ThisWorkbook.Worksheets (“Sheet1”). Range (“A1: A10”). Fonte If .ColorIndex = 3 Then .ColorIndex = 2 Else .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 “Piscada” 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 a tecla “Enter” para acessar a seguinte 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 o livro. Ele converterá todo o texto de volta para preto, para que uma pessoa que acidentalmente abra o livro sem as macros ativadas não veja nada nas caixas de texto.

Etapa 7

Feche o console do VBA clicando no “X” no canto superior direito. Clique na guia “Arquivo” na parte superior da tela e selecione “Salvar como”. Selecione “Excel ativado para macros da pasta de trabalho” 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 das configurações de segurança, talvez seja necessário clicar no botão “Ativar macros” na parte superior da tela para ver o texto piscando.

Referências

 

Você pode estar interessado:

Deixe um comentário