Texto en función de la hora
Resuelto
altra
-
altra -
altra -
Bonjour,
Estoy tratando de hacer que, según la hora del día, una celda muestre "mañana", "tarde" o "noche".
Por ejemplo, entre las 5h y las 13h, mi celda debe mostrar "mañana"; entre las 13h y las 21h, "tarde"; y entre las 21h y las 5h, "noche".
Me gustaría que todo el código estuviera en una macro.
He encontrado algunas pistas como
Range("macellule").Value=".......", pero en esta parte no sé cómo poner mi condición.
Además, no sé cómo escribir esta condición. Pensaba en algo así:
en realidad, no sé qué debo declarar como variable ni qué tipo de variable. Estoy un poco perdido.
Gracias por su ayuda
Estoy tratando de hacer que, según la hora del día, una celda muestre "mañana", "tarde" o "noche".
Por ejemplo, entre las 5h y las 13h, mi celda debe mostrar "mañana"; entre las 13h y las 21h, "tarde"; y entre las 21h y las 5h, "noche".
Me gustaría que todo el código estuviera en una macro.
He encontrado algunas pistas como
Range("macellule").Value=".......", pero en esta parte no sé cómo poner mi condición.
Además, no sé cómo escribir esta condición. Pensaba en algo así:
if hora > 5 and hora < 13 then valor="mañana" elseif hora > 13 and hora < 21 then valor="tarde" else valor="noche" endif
en realidad, no sé qué debo declarar como variable ni qué tipo de variable. Estoy un poco perdido.
Gracias por su ayuda
Configuración: Windows XP Internet Explorer 7.0
1 respuesta
He encontrado una solución que cumple con mis expectativas, la publico aquí por si alguien la necesita:
Que tengas un buen día
Sub hora() If Time >= "05:00:00" And Time < "13:00:00" Then Range("G1") = "Mañana" ElseIf Time >= "13:00:00" And Time < "21:00:00" Then Range("G1") = "Tarde" Else Range("G1") = "Noche" End If End Sub Que tengas un buen día