Insertar Hora Actual en una Celda de Excel
Ya publicaron el código en visual basic para insertar la hora en una celda de excel, y que esta parezca un reloj normal, pero a mi me marca un error en el método Sub StartTimer(), apareciendo el mensaje de "expected: =" Me podrían ayudar, me interesa mucho solucionar este problema. Gracias. Les Anexo el código que encontré publicado:
Creo un modulo en el que inserto el siguiente código:
Private Declare Function SetTimer Lib "user32" _
(ByVal hwnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private lngTimerID
Sub StartTimer()
lngTimerID = SetTimer(0, 1, 10, AddressOf RunTimer)
End Sub
Private Sub RunTimer(ByVal hwnd As Long, _
ByVal uint1 As Long, ByVal nEventId As Long, _
ByVal dwParam As Long)
On Error Resume Next
Hoja1.Range("A1").Value = Format(Now, "hh:mm:ss")
End Sub
Luego en la hoja principal del libro:
ThisWorkbook_open()
StartTimer
End Sub
Cuando habras tu libro, en la Celda A1 de la Hoja1, tendrás un bonito reloj.
Creo un modulo en el que inserto el siguiente código:
Private Declare Function SetTimer Lib "user32" _
(ByVal hwnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private lngTimerID
Sub StartTimer()
lngTimerID = SetTimer(0, 1, 10, AddressOf RunTimer)
End Sub
Private Sub RunTimer(ByVal hwnd As Long, _
ByVal uint1 As Long, ByVal nEventId As Long, _
ByVal dwParam As Long)
On Error Resume Next
Hoja1.Range("A1").Value = Format(Now, "hh:mm:ss")
End Sub
Luego en la hoja principal del libro:
ThisWorkbook_open()
StartTimer
End Sub
Cuando habras tu libro, en la Celda A1 de la Hoja1, tendrás un bonito reloj.
1 respuesta
Respuesta de Elsa Matilde
1
Solo te voy a corregir el código, que leyéndolo he visto algunos defectos, para que lo puedas probar.
Luego, si no cumple con lo que estás necesitando, deberás ingresar una nueva consulta en el tablón con tu problema puntual.
Entrá al Editor e insertá un módulo. Allí copiá solo esta parte:
Private Declare Function SetTimer Lib "user32" _
(ByVal hwnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private lngTimerID
Sub StartTimer()
lngTimerID = SetTimer(0, 1, 10, AddressOf RunTimer)
End Sub
Private Sub RunTimer(ByVal hwnd As Long, _
ByVal uint1 As Long, ByVal nEventId As Long, _
ByVal dwParam As Long)
On Error Resume Next
Hoja1.Range("A1").Value = Format(Now, "hh:mm:ss")
End Sub
Ahora seleccioná con doble clic, del panel a tu izquierda, el objeto Thisworkbook (también puede aparecer como Este libro, según tu versión de Excel)
Allí copiá esto:
Private Sub Workbook_Open()
StartTimer
End Sub
Cerrá el libro guardando los cambios, cuando lo abras en Hoja1, A1 verás el reloj.
Luego, si no cumple con lo que estás necesitando, deberás ingresar una nueva consulta en el tablón con tu problema puntual.
Entrá al Editor e insertá un módulo. Allí copiá solo esta parte:
Private Declare Function SetTimer Lib "user32" _
(ByVal hwnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private lngTimerID
Sub StartTimer()
lngTimerID = SetTimer(0, 1, 10, AddressOf RunTimer)
End Sub
Private Sub RunTimer(ByVal hwnd As Long, _
ByVal uint1 As Long, ByVal nEventId As Long, _
ByVal dwParam As Long)
On Error Resume Next
Hoja1.Range("A1").Value = Format(Now, "hh:mm:ss")
End Sub
Ahora seleccioná con doble clic, del panel a tu izquierda, el objeto Thisworkbook (también puede aparecer como Este libro, según tu versión de Excel)
Allí copiá esto:
Private Sub Workbook_Open()
StartTimer
End Sub
Cerrá el libro guardando los cambios, cuando lo abras en Hoja1, A1 verás el reloj.
Gracias Por Tu Ayuda Elsa. El Código Ya Esta Funcionando al 100%. Se Algo de Programación Pero Casi No Me He Metido Con La Programación En Visual Basic de Excel. Espero Contar Con Tu Ayuda En Otra Ocasión. Cuidate Y Que Estés Bien.
