12
返回列表 上一主題 發帖

[發問] 如何將日期時間格式用函數求得時間+班別

tku0216

帖子
209 
主題
43 
精華
0 
積分
262 
點名
0  
作業系統
win 7 
軟體版本
office 20** 
閱讀權限
20 
性別
男 
註冊時間
2011-11-3 
最後登錄
2017-4-16 
3# 跳轉到 »
發表於 2014-12-29 23:16 | 只看該作者
回復 1# jaga0828

請問一下你最後一個表格第一列是否計算錯誤？因為依照你的規則，我的答案是
2014/11/12 20:57 →11/11夜班

提供我的計算方式，B和C欄分別拆解出日期與時間，再用E1和F1儲存格進行判斷，介於此區間為日班，答案為D欄的計算結果(除了第一列以外，其他答案都跟你一樣)
計算.rar (7.02 KB)

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2014-12-29 22:40 | 只看該作者
回復 1# 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:31:00") 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

TOP

        靜思自在 : 小事不做、大事難成。
12
返回列表 上一主題