Página 1 de 1

Ayuda modificación de una Macro ( Fecha y Hora )

NotaPublicado: Sab May 13, 2017 4:00 am
por dunhill1
Hola Gente:
He revisado el foro y encontre una macro para poner la Fecha Fija en este link https://forum.openoffice.org/es/forum/v ... t=villeroy
Segui los pasos y funciona pero necesito poner la fecha y la hora cada una en una columna
En el mensaje 6 de Mauricio explica otra Macro
Código: Seleccionar todo   Expandir vistaContraer vista
Option Explicit

Sub InsertarFechaActual()
Dim oSel As Object
Dim oDir As Object
Dim oHoja As Object
Dim lCol As Long

   'Cambiar por la columna a insertar
   ' A = 0, B = 1, etc
   lCol = 1
   oSel = ThisComponent.CurrentController.Selection
   oHoja = oSel.SpreadSheet
   oDir = oSel.CellAddress
   oHoja.getCellByPosition(lCol, oDir.Row).setValue(Date)

End Sub

Sub InsertarHoraActual()
Dim oSel As Object
Dim oDir As Object
Dim oHoja As Object
Dim lCol As Long

   'Cambiar por la columna a insertar
   ' A = 0, B = 1, etc
   lCol = 2
   oSel = ThisComponent.CurrentController.Selection
   oHoja = oSel.SpreadSheet
   oDir = oSel.CellAddress
   oHoja.getCellByPosition(lCol, oDir.Row).setValue(Now) 'Quise cambiar Time por Now pero no lo reconoce
   
End Sub


Dejo archivo adjunto.

Re: Ayuda modificación de una Macro ( Fecha y Hora )

NotaPublicado: Sab May 13, 2017 4:31 am
por mauricio
La forma rápida es usar Now y que establezcas el formato de la celda correctamente, Now te devuelve la fecha y hora, si solo quieres la hora, solo usa:
Código: Seleccionar todo   Expandir vistaContraer vista
CDbl(Now) - Int(CDbl(Now))

Saludos

Re: Ayuda modificación de una Macro ( Fecha y Hora )

NotaPublicado: Sab May 13, 2017 5:11 pm
por mauricio
Por favor, con una vez que publiques tu pregunta es más que suficiente. Gracias.

Re: Ayuda modificación de una Macro ( Fecha y Hora )

NotaPublicado: Dom May 14, 2017 3:21 am
por dunhill1
Gracias Mauricio me aparece este error
Error de ejecución de BASIC.
Se ha producido una excepción
Type: com.sun.star.lang.IllegalArgumentException
Message: arguments len differ!.

Este es el codigo
Código: Seleccionar todo   Expandir vistaContraer vista
Option Explicit

Sub InsertarFechaActual()
Dim oSel As Object
Dim oDir As Object
Dim oHoja As Object
Dim lCol As Long

   'Cambiar por la columna a insertar
   ' A = 0, B = 1, etc
   lCol = 3
   oSel = ThisComponent.CurrentController.Selection
   oHoja = oSel.SpreadSheet
   oDir = oSel.CellAddress
   oHoja.getCellByPosition(lCol, oDir.Row).setValue(Date)

End Sub

Option Explicit

Sub InsertarHoraActual()
Dim oSel As Object
Dim oDir As Object
Dim oHoja As Object
Dim lCol As Long

   'Cambiar por la columna a insertar
   ' A = 0, B = 1, etc
   lCol = 4
   oSel = ThisComponent.CurrentController.Selection
   oHoja = oSel.SpreadSheet
   oDir = oSel.CellAddress
   oHoja.getCellByPosition (CDbl(Now) - Int(CDbl(Now))
   
End Sub

Re: Ayuda modificación de una Macro ( Fecha y Hora )

NotaPublicado: Dom May 14, 2017 3:55 am
por mauricio
Es importante siempre mencionar donde te muestra el error... así viendo, creo que falto un paréntesis... mira que estén todos completos...

Re: Ayuda modificación de una Macro ( Fecha y Hora )

NotaPublicado: Dom Ene 14, 2018 3:14 pm
por Ividiazzo
Buen dia
Estoy probando la Macro y funciona perfectamente quisiera saber cmo hago para colocar una nueva condicion para que cuando escriba en otra celda me coloque nuevamente la fecha y hora actual sin modificar la que coloco anteriormente, gracias agradezco su colaboracion