Excel não apresentam piscando ou piscando texto como uma opção de fonte. Usando o Excel integrado no Visual Basic for Applications, no entanto, você pode usar o código para fazer a mudança de cor de texto a cada seção , criando um efeito de piscar. Instruções
1
Abra o arquivo do Microsoft Excel 2010 , em que você quer fazer o flash texto. Pressione " Alt " e " F11 " para abrir o console de VBA.
2
o botão direito do mouse na entrada " EsteLivro " no lado esquerdo do console VBA. Passe o mouse sobre "Inserir" e escolha a opção " Módulo ".
Dê um clique duplo na opção 3
" EsteLivro " . Copie o seguinte código e cole-o no espaço em branco do lado direito da tela :
Private Sub Workbook_Open ()
Blink
End Sub
Sub Workbook_BeforeClose privada (Cancel As Boolean)
NoBlink
End Sub
este código será iniciado eo texto intermitente quando você abrir este livro , e parar de piscar quando o texto você fechar o livro , uma vez que você insira o código para dizer ao Excel que Blink e NoBlink realmente significam.
4
duplo clique em " Módulo 1 " da lista no lado esquerdo da tela. Coloque o cursor no lado direito da tela e digite a seguinte linha: .
Pública Timecount As Double
Isso cria uma variável chamada " Timecount " que você pode usar em cada sub-rotina < br >
5
Pressione Enter para mover o cursor para a próxima linha e insira o seguinte código:
Sub piscar ()
com ThisWorkbook.Worksheets ( "Sheet1" ) . Range (" A1: A10 " ) Fonte
Se ColorIndex = 3 Então
ColorIndex = 2
Else
ColorIndex = 3 < . . . . br>
End If End With
Timecount = Now + TimeSerial (0, 0 , 1)
Application.OnTime Timecount , " Blink ", verdadeira
End Sub
isso cria uma sub-rotina chamada " Blink ", que fará com que todo o texto dentro do intervalo definido para flash . Você pode alterar o intervalo de "A1 : A10 " a qualquer intervalo que você desejar, incluindo uma célula individual
6
Pressione "Enter" para acessar a próxima linha e insira o seguinte código: .
Sub noblink ( )
ThisWorkbook.Worksheets ( " Sheet1" ) Range. . ("A1 : A10 " ) Font.ColorIndex = _
xlColorIndexAutomatic
Aplicação . OnTime Timecount , " Blink ", Falso
End Sub
Isto irá criar uma sub-rotina que será executado quando você fechar o livro . Acontece todo o texto de volta ao preto, de modo que alguém que abre a pasta de trabalho sem macros habilitadas não acidentalmente ver nada nas caixas de texto .
7
Feche o console VBA clicando no "X" no no canto superior direito. Clique na guia "Arquivo" no topo da tela e escolha a opção " Salvar como ". Selecione " Livro do Excel habilitado para macro " do campo drop-down e digite um nome para a pasta de trabalho. Clique em " Salvar".
8
Feche o arquivo Excel e reabri-lo . 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 " no topo da tela para ver o texto piscar.