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

帖子: 26
主題: 9
精華: 0
積分: 58
點名: 0
作業系統: WIN8
軟體版本: A
閱讀權限: 20
性別: 男
註冊時間: 2014-5-19
最後登錄: 2020-4-17

12^#

發表於 2015-1-1 11:28 | 只看該作者

回復 11# HSIEN6001

感謝大大~目前運算都ok了~祝新年快樂~

HSIEN6001

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

論壇榮譽勳章論壇贊助勳章

11^#

發表於 2015-1-1 10:21 | 只看該作者

本帖最後由 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

帖子: 26
主題: 9
精華: 0
積分: 58
點名: 0
作業系統: WIN8
軟體版本: A
閱讀權限: 20
性別: 男
註冊時間: 2014-5-19
最後登錄: 2020-4-17

10^#

發表於 2014-12-31 22:25 | 只看該作者

本帖最後由 jaga0828 於 2014-12-31 22:28 編輯

回復 9# HSIEN6001

大大祝新年快樂! 不好意思，我有在Run 一次，但遇到如附圖的異常點

我之前的需求為
日班區分時間為=> 07:31~19:30 顯示日期都以起始使間為主，後面再加上班別
夜班區分時間為=>19:31~07:30 顯示日期都以起始使間為主，後面再加上班別

2014/12/29  07:30:00  =>12/28 夜班但程式跑出來為12/29 夜班
2014/12/29  19:30:00 =>12/29 日班但程式跑出來為12/29 日班
2014/12/29  07:31:00 =>12/29 日班但程式跑出來為12/29 夜班

再麻煩大大幫忙一下~

HSIEN6001

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

論壇榮譽勳章論壇贊助勳章

9^#

發表於 2014-12-31 17:42 | 只看該作者

回復 5# jaga0828

邏輯沒錯,剛剛試過沒問題
你再試一次!

p212

高中生 Rank: 3 Rank: 3

帖子: 618
主題: 17
精華: 0
積分: 663
點名: 1
作業系統: WINDOWS 7
軟體版本: OFFICE 2013
閱讀權限: 50
性別: 男
來自: Pingtung
註冊時間: 2011-9-2
最後登錄: 2024-7-5

2014馬年全勤獎章 2013蛇年全勤獎章熱烈參與勳章

8^#

發表於 2014-12-31 09:21 | 只看該作者

本帖最後由 p212 於 2014-12-31 09:32 編輯

回復 7# jaga0828
請問您有定義名稱？否則無法執行儲存格B2的公式。
如4#之圖示（註：圖示範例有欄位名稱，若不需欄位名稱，則請自行修改「定義名稱」的「參照到」公式與儲存格B2的公式中對應儲存格，如A2改成A1）
1、游標先停於儲存格B2後再進行「定義名稱」，貼上「參照到」的公式。
2、接著儲存格B2貼上公式

帖子: 26
主題: 9
精華: 0
積分: 58
點名: 0
作業系統: WIN8
軟體版本: A
閱讀權限: 20
性別: 男
註冊時間: 2014-5-19
最後登錄: 2020-4-17

7^#

發表於 2014-12-30 22:37 | 只看該作者

回復 4# p212

感謝大大幫忙~
貼上去無法顯示說~

帖子: 26
主題: 9
精華: 0
積分: 58
點名: 0
作業系統: WIN8
軟體版本: A
閱讀權限: 20
性別: 男
註冊時間: 2014-5-19
最後登錄: 2020-4-17

6^#

發表於 2014-12-30 22:36 | 只看該作者

回復 3# tku0216

先感謝大大的解答~
但是我範例提到是說過晚上12點到隔天07:30前都是用前一天日期，也就是說我的應該沒有錯~
2014/11/12 20:42=>11/12 夜班
2014/11/13 00:25=>11/12 夜班

我權限沒辦法下附件說~
但還是感謝你~

帖子: 26
主題: 9
精華: 0
積分: 58
點名: 0
作業系統: WIN8
軟體版本: A
閱讀權限: 20
性別: 男
註冊時間: 2014-5-19
最後登錄: 2020-4-17

5^#

發表於 2014-12-30 22:26 | 只看該作者

回復 2# HSIEN6001

首先感謝大大的解說~
但我發現有個問題，就是19:31~00:00 這區間沒有設到條件，導致2014/12/29 21:03:00 應該要顯示12/29 夜班反而沒有跑出來，呈現空白格式
再麻煩大大幫忙想一下辦法，感恩!

p212

高中生 Rank: 3 Rank: 3

帖子: 618
主題: 17
精華: 0
積分: 663
點名: 1
作業系統: WINDOWS 7
軟體版本: OFFICE 2013
閱讀權限: 50
性別: 男
來自: Pingtung
註冊時間: 2011-9-2
最後登錄: 2024-7-5

2014馬年全勤獎章 2013蛇年全勤獎章熱烈參與勳章

4^#

發表於 2014-12-30 10:40 | 只看該作者

本帖最後由 p212 於 2014-12-30 10:44 編輯

回復 1# jaga0828
提供另一種函數解法
1、定義名稱「班別」，「參照到」輸入
=SUMPRODUCT((VALUE(TEXT(工作表1!$A2,"hh:mm"))>VALUE("7:30"))*(VALUE(TEXT(工作表1!$A2,"hh:mm"))<VALUE("19:31")))+1
2、儲存格B2輸入公式
=IFERROR(IF(VALUE(TEXT(A2,"hh:mm"))>VALUE("7:30"),TEXT(LEFT(A2,8),"mm/dd")&CHOOSE(班別,"夜班","日班"),TEXT(DATEVALUE(TEXT(LEFT(A2,8),"mm/dd"))-1,"mm/dd")&CHOOSE(班別,"夜班","日班")),"")
向下複製公式
請參考！

fig.jpg (81.25 KB)