Mostrar valor de una celda de forma intermitente

Puedes crear un estilo (Formato->Estilo) llamado Parpadeo, poner esto en el módulo del libro (ThisWorkbook):


Private Sub Workbook_BeforeClose(Cancel As Boolean)
DetenerParpadeo
End Sub

Private Sub Workbook_Open()
IniciarParpadeo
End Sub


y esto en un módulo creado por ti:


Dim dtSiguiente As Date

Sub IniciarParpadeo()
dtSiguiente = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Parpadeo").Interior
If .ColorIndex = 4 Then .ColorIndex = 6 Else .ColorIndex = 4
End With
Application.OnTime dtSiguiente, "IniciarParpadeo"
End Sub

Sub DetenerParpadeo()
Application.OnTime dtSiguiente, "IniciarParpadeo", schedule:=False
End Sub


Las celdas a las que apliques el estilo "Parpadeo" (de nuevo desde Formato->Estilo) parpadearán una vez que se ejecute el código (lo cual sucederá automáticamente al abrir el libro).
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Superrookie" escribió en el mensaje news:

Hola grupo. Ahí os envio otra pregunta de novato. Existe alguna manera de mostrar los valores de una celda de forma intermitente, de manera que inmediatamente llame nuestra atención.

Gracias de antemano.

Superrookie.

Gracias Fernando. Voy a probar a ver si consigo hacerlo funcionar. Ya te diré algo.

Gracias Fernando. Lo he probado y funciona perfectamente

Te estoy muy agradecido

Hasta la próxima.