HSIEN6001

¦^´_ 10# jaga0828


    §ï¤F[¬õ¦r]³¡¤À,¦AÅçÃҬݬݬO¤£¬O²Å¦X»Ý¨D?!
Sub XL()
    Dim E As Range
    With Sheets("Sheet1")   'Sheet1 ¤u§@ªí¦WºÙ
            For Each E In .Range("A1", [A65536].End(xlUp))
                If TimeValue(E) >= TimeValue("00:00:01") And TimeValue(E) <= TimeValue("07:30:00") Then
                   E.Offset(, 1) = (Format(DateValue(E) - 1, "mm/dd")) & " ©]¯Z"
                ElseIf TimeValue(E) >= TimeValue("07:30:01") And TimeValue(E) <= TimeValue("19:30:00") Then
                   E.Offset(, 1) = (Format(E, "mm/dd")) & " ¤é¯Z"
                Else
                   E.Offset(, 1) = (Format(E, "mm/dd")) & " ©]¯Z"
                End If
            Next
        End With
End Sub

¤U¸ü (36.58 KB)

2015-1-1 10:23

jaga0828

¦^´_ 11# HSIEN6001

·PÁ¤j¤j~¥Ø«e¹Bºâ³£ok¤F~¯¬·s¦~§Ö¼Ö~