Pasa el ratón por encima de las celdas

Posted on diciembre 26, 2023 by Excel Pedro Wave

🔝To translate this blog post to your language, select it in the top left Google box.

Si crees que pasando el ratón por encima de las celdas no se puede hacer nada, ¡estás muy equivocado!

Yo puedo pasar el ratón por encima de las celdas ¡y hacer lo que me de la gana!

Si crees que es una broma lo que digo, ¡aún no es el día de los Santos Inocentes!

Lo puedes comprobar en esta imagen animada:

¿Cómo he conseguido hacerlo? Te lo explico si continuas leyendo...

Cómo ejecutar una macro pasando el ratón por encima de las celdas

Los programadores experimentados de VBA sabrán que las funciones UDF ¡no pueden cambiar valores en otras celdas ni formatearlas!

Pero, ¡esa restricción no aplica si se llama a una función dentro de un hipervínculo en una fórmula de una celda!

Este gran truco se explica en estas dos páginas de Chandoo y Jordan Goldmeier, dos grandes maestros de Excel:

Interactive Dashboard in Excel using Hyperlinks » Chandoo.org

Execute a Macro When Your Mouse is over a Cell | OPTION EXPLICIT VBA

Aprovechando este gran truco he diseñado dos ejemplos que puedes descargar más abajo.

En el primer ejemplo hay un solo módulo MóduloRatón con una única función: PasarRatón

Option Explicit

Private sTecla As String

Function PasarRatón(rCelda As Range)
'
' Pasar el ratón por encima de las celdas
'
    If rCelda.Count = 1 Then
    
        If rCelda.Value2 <> sTecla Then
        
            Range("misTeclas").Interior.TintAndShade = -4.99893185216834E-02
            
            rCelda.Interior.TintAndShade = -0.149998474074526
            
            sTecla = rCelda.Value2
            
            Range("miTecla").Value2 = sTecla
    
            With Range("miSecuencia")
                If Len(.Value2) < 32 Then
                    .Value2 = IIf(.Value2 = "", "'", .Value2)
                    .Value2 = .Value2 & IIf(sTecla = 11, "*", IIf(sTecla = 12, "#", sTecla))
                End If
            End With
            
        End If
        
    End If
    
End Function

Esta función se llama con una fórmula de la celda H3, arrastrada hacia abajo y hacia la derecha en el rango H3:J6. La fórmula es:

=SI.ERROR(HIPERVINCULO(PasarRatón(H3);B3);B3)

A la función HIPERVINCULO se le pasa la función: PasarRatón(H3) ¡que se ejecuta con sólo pasar el ratón por encima de las celdas!

¡No es un bug o error de Excel! ¡Es un efecto no previsto por los programadores de Microsoft cuando desarrollaron la función HIPERVINCULO!

Este efecto colateral permite ejecutar una función UDF al pasar el ratón por encima de las celdas de Excel. ¡Bien hecho Microsoft Excel!

Adjunto dos ejemplos de este truco que puedes descargar a continuación:

Pasa el ratón por encima, con la función comentada anteriormente simulando un teclado de teléfono.
Dibuja un patrón con el ratón, con una función mucho más sofisticada con la que dibujar patrones con el ratón.

Descarga y prueba el ratón sobre las celdas

Descarga la versión 1.0 de estos dos ejemplos desde estos enlaces:

Microsoft OneDrive:

Sites Google Drive:

Las macros de los archivos descargados están bloqueadas por defecto. Para desbloquear las macros debes modificar las Propiedades del archivo siguiendo estas instrucciones:

Las macros de Internet están bloqueadas de forma predeterminada en Office - Deploy Office | Microsoft Learn

Abre el archivo y presiona el botón: Habilitar edición cuando aparezca el aviso de VISTA PROTEGIDA.

Presiona el botón: Habilitar contenido cuando aparezca la ADVERTENCIA DE SEGURIDAD Las macros se han deshabilitado o se deshabilitó parte del contenido activo.

Las hojas están protegidas sin contraseña, y no está protegido el proyecto VBA, por lo que puedes estudiar y analizar el código de las macros.

ATENCIÓN: Se pueden modificar estos libros de Excel respetando esta licencia:

Creative Commons — Atribución-NoComercial-CompartirIgual-No portada — CC BY-NC-SA 4.0

Vídeo de ratones sobre celdas dibujando patrones

Este vídeo te dará una idea de lo que he conseguido pasando el ratón por encima de las celdas: dibujar patrones formados por líneas entre puntos.

¡Feliz Navidad! Si te descargas el villancico navideño podrás escucharlo cuando dibujes un rombo comenzando por 68.

La primera idea que tuve cuando conocí este truco fue ésta:

Como pintar con Excel | #ExcelPedroWave

¿Qué otras ideas se te ocurren para aprovechar este excelente truco?

No Response to "Pasa el ratón por encima de las celdas"

Comenta este artículo, critícalo o avisa si detectas algún error que haya que corregir.

#ExcelPedroWave

Traducir el blog