ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó±N¤é´Á®É¶¡®æ¦¡¥Î¨ç¼Æ¨D±o®É¶¡+¯Z§O

¥»©«³Ì«á¥Ñ HSIEN6001 ©ó 2015-1-1 10:24 ½s¿è

¦^´_ 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

TOP

¦^´_ 11# HSIEN6001

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

TOP

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD