miércoles, 1 de octubre de 2014

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

Tomado desde el siguiente enlace