Parpadeo de una celda

04/03/2008 - 20:25 por Jorge Alejandro Salas Rodriguez | Informe spam
Hola:
Quiciera ver si alguien sabe como hacer que una celda parpadie cuando su
valor sea un resultado negativo
 

Leer las respuestas

#1 Héctor Miguel
04/03/2008 - 21:50 | Informe spam
hola, Jorge Alejandro !

... como hacer que una celda parpadie cuando su valor sea un resultado negativo



te expongo un ejemplo al final, y...
si cualquier duda (o informacion adicional)... comentas?
saludos,
hector.

1) usa (menu) formato / formato condicional... (seleccionando previamente la/s celda/ que va/n a parpadear)
la formula del inciso b) supone que la celda "activa" luego de seleccionar el rango es A1
-> selecciona como condicion... -> formula
-> introduce (alg)una de las siguientes formulas:
a) si no te interesa condicionar (tambien) al valor/contenido/... de dicha/s celda/s...
=residuo(segundo(ahora()),2)=0
b) si necesitas condicionar (p.e.) a que el valor de la celda (1) de la seleccion (p.e. A1) sea >= 100 (... < 0, o... ???)
=(a1>0)*(residuo(segundo(ahora()),2)=0)
-> aplica (boton formato...) los formatos de tu preferencia (fuente, color, bordes, trama, etc.)

2) copia/pega las siguientes lineas...
en un modulo de codigo normal ==Public Siguiente As Date
Sub IniciarParpadeo()
Siguiente = Now + TimeSerial(0, 0, 1)
Worksheets(1).Calculate
Application.OnTime Siguiente, "IniciarParpadeo"
End Sub
Sub DetenerParpadeo(): On Error Resume Next
Application.OnTime Siguiente, "IniciarParpadeo", Schedule:=False
End Sub
en el modulo de codigo del libro (ThisWorkbook) ==Private Sub Workbook_Open()
IniciarParpadeo
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DetenerParpadeo
End Sub

3) observa que en la macro IniciarParpadeo (modulo normal)...
hay una linea que dice... -> Worksheets(1).Calculate (incluso pudiera tratarse de una hoja fantasma/oculta/...)
-> si a tu modelo le afecta que (cada TimeSerial(hrs, min, seg)) se este re/calculando la hoja1 del libro
puedes modificar dicha instruccion a... -> Application.ScreenUpdating = True
-> la diferencia entre una instruccion y otra... es que
con el ScreenUpdating... veras un parpadeo general (constante) de la pantalla completa Y del cursor/mouse
con el Calculate... solo veras el (ligero) parpdeo del mouse/cursor, pero... el re/calculo del modelo podria...
-> solo para variar... (parece que) todo tiene sus pros y contras (decide tu cual es cual)

Preguntas similares