Macro de tiempo
Hola Gustavo es possible que me puedas enviar la macro sobre el tiempo... Encontré interesante la solicitud... Gracias de antemano...
1 Respuesta
Respuesta
1
¿Cuál de todas? Te lo pregunto porque tuve unas cuantas al respecto
Se refiere a esta macro en la celda A1, debe decir
según la hora que abrimos el libro este mensaje
Muy buenos días, 10:15 a.m.
Martes, 17 de abril de 2007
Muy buenas tardes, 04:15 p.m.
Martes, 17 de abril de 2007
Muy buenas noches, 09:15 p.m.
Martes, 17 de abril de 2007
Y así para cada hora, pero y la condición de días, tardes, noches, ¿cómo se realizaría?
según la hora que abrimos el libro este mensaje
Muy buenos días, 10:15 a.m.
Martes, 17 de abril de 2007
Muy buenas tardes, 04:15 p.m.
Martes, 17 de abril de 2007
Muy buenas noches, 09:15 p.m.
Martes, 17 de abril de 2007
Y así para cada hora, pero y la condición de días, tardes, noches, ¿cómo se realizaría?
Como vos tenés mucho más experiencia, te la paso más sencilla para que la modifiques a gusto
Private Sub Workbook_Open()
Dim txtBienvenida As String
If Hour(Time) <= 12 And Hour(Time) > 5 Then
txtBienvenida = "Muy buenos días, "
ElseIf Hour(Time) <= 20 And Hour(Time) > 12 Then
txtBienvenida = "Muy buenas tardes, "
Else
txtBienvenida = "Muy buenas noches, "
End If
txtBienvenida = txtBienvenida & Format(Time, "hh:nn")
Sheets("Hoja1").Range("A1") = txtBienvenida
Sheets("Hoja1"). Range("A2") = Format(Time, "dddd, dd/mm/yy")
End Sub
Private Sub Workbook_Open()
Dim txtBienvenida As String
If Hour(Time) <= 12 And Hour(Time) > 5 Then
txtBienvenida = "Muy buenos días, "
ElseIf Hour(Time) <= 20 And Hour(Time) > 12 Then
txtBienvenida = "Muy buenas tardes, "
Else
txtBienvenida = "Muy buenas noches, "
End If
txtBienvenida = txtBienvenida & Format(Time, "hh:nn")
Sheets("Hoja1").Range("A1") = txtBienvenida
Sheets("Hoja1"). Range("A2") = Format(Time, "dddd, dd/mm/yy")
End Sub