Parpadeo de Valor

14/09/2006 - 00:36 por Renzo Diez | Informe spam
Amigos, continuando con el tema del parpadeo (ya que todo ingresa por la
vista), necesito saber como hacer para que el resultado numerico de una
formula buscarv que esta en la celda c5, haga un parpadeo entre el negro y
el blanco. Anticipadas gracias por su ayuda !

Renzo X

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
14/09/2006 - 04:37 | Informe spam
hola, Renzo !

... continuando con el tema del parpadeo (ya que todo ingresa por la vista)
... como hacer para que el resultado numerico de una formula buscarv que esta en la celda c5
haga un parpadeo entre el negro y el blanco...



en la respuesta anterior de KL, hay un enlace a una serie de conversaciones 'al respecto' [parece que no la has visitado] -?-
basado en esas exposiciones, te expongo un ejemplo al final.
si cualquier duda... algo es diferente' de tu caso real... o informacion adicional... comentas?
saludos,
hector.
=1) usa [menu] formato / formato condicional... [seleccionando previamente la/s celda/ que va/n a parpadear]
-> 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
=(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´] :))
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida