Primeros auxilios EXCEL para hacer asistencia

Es fácil de hacer usando VBA, cree un nuevo botón y escriba

For i = 1 To 5 '50 es el número supuesto de filas

If Hour(Cells(i, 2) ) < 17 Y Minuto(Celdas(i, 2)) < 30 Entonces

Celdas(i, 2).Interior.ColorIndex=6

ElseIfHour(Celdas(i, 2) ) > 9 Y Minuto(Celdas(i, 2)) > 5 Entonces

Celdas(i, 2).Interior.ColorIndex = 8