- 帖子
- 219
- 主題
- 24
- 精華
- 0
- 積分
- 243
- 點名
- 0
- 作業系統
- Windows10
- 軟體版本
- Office2016
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2012-4-18
- 最後登錄
- 2022-2-7
 
|
本帖最後由 HSIEN6001 於 2015-1-1 10:24 編輯
回復 10# jaga0828
改了[紅字]部分,再驗證看看是不是符合需求?!
Sub XL()
Dim E As Range
With Sheets("Sheet1") 'Sheet1 工作表名稱
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")) & " 夜班"
ElseIf TimeValue(E) >= TimeValue("07:30:01") And TimeValue(E) <= TimeValue("19:30:00") Then
E.Offset(, 1) = (Format(E, "mm/dd")) & " 日班"
Else
E.Offset(, 1) = (Format(E, "mm/dd")) & " 夜班"
End If
Next
End With
End Sub
|
|
發表於 2015-1-1 10:21
| 