ASOCIAR UN EMOTICONO A UNA CELDA

3 envíos / 0 nuevos
Último envío
josejose
Imagen de josejose
Offline
última acción: Hace 1 año 11 meses
Nivel 1 - 200 puntos
alta: 24/11/2010 - 10:25
Puntos: 440
ASOCIAR UN EMOTICONO A UNA CELDA

Hola Paco:

Si contestan bien, ya se como hacerlo, pero si contestan mal, quisiera que apareciera un emoticón enfadado o riéndose, simpatico.

He pensado en asociar un emoticon a una celda, de modo que cuando contesten mal, aparezca ese emoticon, pero no se como hacerlo.

Puedes ayudarme?

Muchas gracias

Jose

 

 

 

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 1 año 4 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
La cosa podría ser así,

La cosa podría ser así, utilizando VBA.

Primero, dale un nombre reconocible a la imagen. Esto se hace primero insertándola en su sitio, luego seleccionándola y al fin cambiando su nombre arriba a la izquierda (te lo apunto en la imagen adjunta)

Una vez hecho esto, abre el editor VBA (Alt+F11), selecciona la hoja donde quieres poner el evento (en mi caso "Hoja1") y despliega de arriba donde pone (General) y marca "Worksheet", y donde pone "Selectionchange" cámbialo por "Change".

Esto te generará dos subrutinas de las que solo te interesa una: la que se llama Worksheet_Change

Pon el siguiente código:

If Target = Range("C3") Then                     'He supuesto que quieres controlar la celda C3. Si no lo es, pon aquí la celda donde estará el resultado correcto o no.

    If Target.Value = 15 Then                      'De prueba he considerado que el dato correcto es 15. Pon aquí el valor correcto. Si es texto, no olvides las comillas.

        Shapes("Imagen").Visible = True        'He llamado a la imagen con el maravilloso nombre "Imagen". Pon aquí el nombre de tu imagen.

    Else

        Shapes("Imagen").Visible = False        'Mismo comentario anterior.

    End If

End If

 

Un saludo

AdjuntoTamaño
Image icon emoticono.jpg24.59 KB
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 3 semanas 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
qué pena que...

Qué pena que el formato personalizado no deje definir iconos personalizados a día de hoy,

Aunque tengo la siguiente teoría:

Excel está desarrollado por Microsoft 

Microsoft es uno de los principales accionistas de Facebook

Facebook es el dueño de Whatsapp

Por lo tanto, yo creo que en breve podríamos tener un formato condicional en Excel con la flamenca del whatsapp
¿Os lo imagináis?

emoticonos del whatsapp en Excel

 

 

------
Ya sé Excel, pero necesito más.