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 SubDos 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 Sub2. 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 SubSi 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