2014-06-09

Evento al hacer doble clic sobre una celda

Title El doble clic sobre una celda es un evento que podemos emplear en muy diversas ocasiones.

1. Abrimos el editor de Visual Basic Alt+F11, o en la ficha Programador, en el grupo Controles, clic en Ver código

2. Doble clic en ThisWorkbook y copiamos el código:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
    ByVal Target As Range, Cancel As Boolean)
    'NUESTRO CÓDIGO
End Sub
Dos aplicaciones prácticas:

1. Ir a un rango que deseamos consultar frecuentemente desde cualquier hoja del libro.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
    ByVal Target As Range, Cancel As Boolean)
    Sheets("Hoja1").Activate
    Range("A1:A10").Select
End Sub
2. Añadir fecha y hora a cualquier celda del libro.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
    ByVal Target As Range, Cancel As Boolean)
    ActiveCell = Date & Chr(32) & Time
End Sub
Si queremos que muestre los segundos, presiona CTRL+1 para mostrar el cuadro de diálogo Formato de celdas y en Tipo, escribimos: dd/mm/aaaa h:mm:ss

No hay comentarios:

Publicar un comentario

Nube de datos