Capturar la hora mediante VBA

Ahora vamos a capturar la hora mediante una macros en Visual Basic for Application.

Lo primero que vamos a hacer es ingresar al Editor de Visual Basic y para ello desde la primera hoja utilizaremos la combinación de teclas Alt + F11:

Nos ubicamos en la ventana del Explorador de Proyectos que tenemos en el panel izquierdo de la ventana del Editor de Visual Basic y damos doble clic sobre el ObjetoThisWorkbook y pegamos el siguiente código:

Private Sub Workbook_Open()

Hora = (Now - Int(Now)) * 24

Select Case Hora

      Case 6 To 12

                 MsgBox "Buenos días"

      Case 12 To 18

                 MsgBox "Buenas tardes"

      Case Else

                 MsgBox "Buenas noches"

End Select

End Sub

Espero que les sirva esta publicación.

Saludos

Ing. Enrique Neciosup Morales

enrique@expertosenexcelpc.com

Tomado desde el siguiente enlace