Aparecer un Gif cuando la celda sea menor a 1

28/05/2008 - 00:48 por Edixon | Informe spam

Hola grupo nesecito una vez mas de su colaboracion, sera posible
hacer aparecer un Gif o un SWF ubicado en una carpeta local cuando en
una celda por ejemplo A11 aparezca o se coloque un numero menor a 1.

En este mismo foro me ayudaron con algo muy similiar la diferencia
es que se llamaba la imagen pero cuando coincidia con elnombre exacto
de la foto.

De antemano Gracias

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Edixon

30/05/2008 - 05:32 | Informe spam

Upssssssss disculpa por no explicarme bien

lo que tengo es lo suiguiente:
en la hoja 1 tengo una matriz con muchos valores dicha matriz es de
3000 fila * 4 columnas,
en la hoja dos en A2 la suma total de la columna B de la hoja 1; en A3
la suma total de la columna C de la hoja 1.
en A12 de la hoja 2 tengo simplemente la division entre A2 y A3, A3
siempre va ser un valor fijo muy grande, A2 es un valor que ire
modificando continuamente pero de manera decreciente, es decir tengo
que llevarlo a cero, a medida que esto va acurriendo el valor de A12
va a ir tendiendo a cero, en princio ese valor puede dar cualquier
valor real mayor a cero.

Quiero llegar es a lo siguiente: cuando ese valor (A12) llegue a un
numero entre 0,5 y 1 en la pantalla se va a reflejar una imagen (.Gif
o . SWF) y cuando este sea menor a 0,5 aparecera otra.

Nota: Cuando este presente un valor distinto a estos valor
simplemente no hace nada.

Espero ahora haberme exlicado mejor. Gracias de antemano

Responder a este mensaje

#2 Héctor Miguel

30/05/2008 - 07:21 | Informe spam

hola, Edixon !

Quiero llegar es a lo siguiente: cuando ese valor (A12) llegue a un numero entre 0,5 y 1
en la pantalla se va a reflejar una imagen (.Gif o . SWF) y cuando este sea menor a 0,5 aparecera otra.
Nota: Cuando este presente un valor distinto a estos valor simplemente no hace nada.

el siguiente codigo necesitara de algun "ajuste" (actualmente solo detecta "cambios" >= 0,5)
asume que tienes incrustado un objeto WebBrowser en la hoja correspondiente
copia/pega en el modulo de codigo de "esa" hoja (modifica las rutas de los archivos *.GIF -animados-)

saludos,
hector.

Private Const Archivo1 As String = "c:uta y sub\carpetas al\archivo1.gif"
Private Const Archivo2 As String = "c:uta y sub\carpetas al\archivo2.gif"
Private Anterior As Double, Cambio As Boolean, Imagen As String
Private Sub Worksheet_Calculate()
With Range("a12")
If .Value = Anterior Then Exit Sub
Cambio = (.Value >= 0.5 And Anterior < 0.5) Or (.Value < 0.5 And Anterior >= 0.5)
Anterior = .Value
End With
With WebBrowser1
If Anterior > 1 Then .Visible = False: Exit Sub
If Not Cambio Then Exit Sub Else Imagen = IIf(Anterior >= 0.5, Archivo1, Archivo2)
.Navigate "about:<html><body scroll='no'><img src='" & Imagen & "'></img></body></html>"
.Visible = True
End With
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida