- ©«¤l
- 219
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 243
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows10
- ³nÅ骩¥»
- Office2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-4-18
- ³Ì«áµn¿ý
- 2022-2-7
|
¥»©«³Ì«á¥Ñ 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
|
|