English Deutsch Français Italiano Español Português 繁體中文 Bahasa Indonesia Tiếng Việt ภาษาไทย
Todas as categorias

2 respostas

Devem esxistir soluções melhores, mas vai uma que funcionou:

1. Vá no menu Formatar/Estilo e crie um novo estilo chamado "Piscar".
2. Formate as células da planilha que vo`^e deseja piuscar com esse formato (Selecione e vá para Formatar/Estiulo, selecione Piscar e tecle OK).
3. Acesse o editor VBA do Excel Alt+F11 e selecione o menu Inserir/Módulo.
4. Copie o código abaixo para o módulo.

Dim NextTime As Date

Sub StartFlash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Piscar").Font
If .ColorIndex = xlAutomatic Then .ColorIndex = 3
.ColorIndex = 5 - .ColorIndex
End With
Application.OnTime NextTime, "StartFlash"
End Sub

Sub StopFlash()
Application.OnTime NextTime, "StartFlash", schedule:=False
ActiveWorkbook.Styles("Piscar").Font.ColorIndex = xlAutomatic
End Sub

5. Crie 2 botões na planilha e atribua as macros acima (1 para iniciar e outro para parar.

2007-01-28 05:14:35 · answer #1 · answered by Eduardo 2 · 0 0

Entre nesse endereço e lance a sua pergunta
http://br.groups.yahoo.com/group/ExcelBr/

2007-01-28 07:25:50 · answer #2 · answered by tedjose 1 · 0 0

fedest.com, questions and answers