Software  
 
Conhecimento computador >> Software >> Microsoft Access >> 
Como fazer texto do Flash no Excel
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.

Anterior :

Próximo : No
  Os artigos relacionados
·Como usar o Excel Solver em VBScript 
·Como Fazer um Gráfico 3 Dimensional Com o Excel 
·Como importar música no Microsoft Office Access Databa…
·Como usar o Excel para cálculos de otimização 
·Como controle de código fonte para criar um novo proje…
·Como se livrar do decimal no Excel 
·Como publicar um banco de dados Microsoft Access 
·O que é o seletor para o Microsoft Access 
·Como fazer upload de endereços no Excel para o Google …
·Como importar dados de outro banco de dados em Microsof…
  Artigos em destaque
·Definição AVG Anti -Virus 
·QuickBooks Online Tutorial 
·Como fazer Efeitos Especiais no Windows Movie Maker 
·Como atualizar uma Licença Canção em um MP3 Player 
·Como gravar DVDs de arquivos AVI com Flick DVD 
·Como remover o Trojan Horse SHeur3.Qic 
·Como misturar rap Vocals no Cool Edit Pro 
·Como atualizar para o Pinnacle 12 
·Como converter um QIF para um QBO 
·Como gravar com um CD-Text no Windows Media Player 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados