[發問] 苦思不得其解之難題...

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2011-1-20 12:25 | 只看該作者

G3=SUMPRODUCT((($A$2:$A$125+$B$2:$B$125)>=$E3)*(($A$2:$A$125+$B$2:$B$125)<=$F3)*($C$2:$C$125=G$2))
向下向右複製

學海無涯_不恥下問

帖子: 61
主題: 3
精華: 0
積分: 116
點名: 0
作業系統: WINDOSXP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-10-6
最後登錄: 2014-3-5

4^#

發表於 2011-1-20 13:19 | 只看該作者

回復 3# Hsieh
感謝 Hsieh 大這麼快就回覆，
在驗證之後發現出來的數值好像不正確，
以 (F3-E3)*24 後這個區間的總時數有30.98小時，
但函數帶入後 ABCD班總時數只有6小時

沒事就來逛逛

版主 Rank: 7 Rank: 7 Rank: 7

gong

帖子: 455
主題: 8
精華: 1
積分: 480
點名: 0
作業系統: WINS home
軟體版本: OFFICE XP
閱讀權限: 100
性別: 男
來自: 平鎮
註冊時間: 2010-5-1
最後登錄: 2015-1-22

論壇貢獻勳章

5^#

發表於 2011-1-20 13:27 | 只看該作者

題目到現在都還沒有看懂

不過既然是一個月的班表
我想總工時應該落在168~360之間(8*22~12*30)

不知要算出時,還是天,還是連秒都要
還有開始時間有意義嗎?是要算出該區間工時

知之為知之，不知為不知，誠實也！

帖子: 61
主題: 3
精華: 0
積分: 116
點名: 0
作業系統: WINDOSXP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-10-6
最後登錄: 2014-3-5

6^#

發表於 2011-1-20 14:29 | 只看該作者

回復 5# gong

我的需求是...每個開始與結束時間的區間內，每個班所佔用的時間分配比，

A~C欄位只是我用來區分每個班的輪班方式，
因為每天的早上7:30跟晚上的19:30就會換一次班，
也就是早上的07:30~19:30 是一班，19:30~07:30會變成下一班，

又因為是四班二輪的方式所以每兩天就會從A/B班換成C/D班，
班別輪替的班表資料會從1月到12月，甚至會跨年度，

我的思考邏輯是...先從區間的日期去抓出在符合的資料範圍，
再從這個範圍內逐一將時間差作加總，
但...始終想不出方法來做出時間差的加總...

沒事就來逛逛

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2011-1-20 21:19 | 只看該作者

回復 6# fr447446

以你舉的例子範圍是5:9列的資料要計算G3:J3的值
那麼其中A有3筆，B有2筆
那各班別各個起迄時間如何判定?

學海無涯_不恥下問

帖子: 61
主題: 3
精華: 0
積分: 116
點名: 0
作業系統: WINDOSXP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-10-6
最後登錄: 2014-3-5

8^#

發表於 2011-1-20 22:02 | 只看該作者

回復 7# Hsieh

附上明確的手動算法，造成辨讀不易請多包含~

sshot-1.jpg (193.73 KB)

難解.rar (11.41 KB)

沒事就來逛逛

帖子: 61
主題: 3
精華: 0
積分: 116
點名: 0
作業系統: WINDOSXP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-10-6
最後登錄: 2014-3-5

9^#

發表於 2011-1-21 12:46 | 只看該作者

暫時以粗糙的自定義函數 + 重新規劃班別的輪班規則後暫時達到需要的功能，
附上初版，有更好的方式的話煩請不吝指教，THANKS！

Noname.jpg (80.73 KB)

難解.zip (17.29 KB)

沒事就來逛逛

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

10^#

發表於 2023-5-12 11:44 | 只看該作者

謝謝論壇,謝謝各位前輩
後學改變需求情境,藉此帖練習陣列與字典,學習方案如下,請各位前輩指教

執行前:

執行結果:

Option Explicit
Sub TEST()
Dim Brr, Crr, Y, N&, i&, j&
'↑宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y變數是字典
Brr = Range([C1], [A65536].End(xlUp))
'↑令Brr變數是二維陣列,以A~C欄資料帶入
For i = 2 To UBound(Brr)
'↑設順迴圈
If Y(Brr(i, 3)) = "" Then N = N + 1: Y(Brr(i, 3)) = N
'↑令以字典紀錄班別在結果陣列Crr的欄位
Next
ReDim Crr(1 To UBound(Brr), 1 To 2 + N)
'↑宣告Crr變數是二維空陣列,縱向範圍同Brr陣列,橫向從1到(2+N)
For i = 1 To UBound(Brr)
'↑設順迴圈
Crr(i, 1) = Brr(i, 1): Crr(i, 2) = Brr(i, 2)
'↑令日期帶入Crr第1欄,'↑令時間帶入Crr第2欄
If i = 1 Then
'↑如果是Brr第1列!就把班別標題列寫入Crr陣列第1列
   For j = 1 To N: Crr(1, j + 2) = Y.KEYS()(j - 1): Next
   GoTo i01
   '↑標題列處理完,不必處理後續細節,所以跳到標示i01位置繼續執行
End If
Crr(i, Y(Brr(i, 3)) + 2) = "V"
'↑令Crr陣列正確班別位置欄寫入 "V"
i01: Next
With [E1].Resize(UBound(Crr), 2 + N)
.EntireColumn.Clear
'↑令結果欄舊資料整欄清除
.Value = Crr
'↑令以Crr陣列值貼入這With的範圍
Intersect(.Cells, [E:E]).NumberFormatLocal = "yyyy/m/d"
Intersect(.Cells, [F:F]).NumberFormatLocal = "hh:mm:ss"
.Borders.LineStyle = 1
.EntireColumn.AutoFit
'↑處理格式
End With
Set Y = Nothing: Erase Brr, Crr
'↑釋放變數
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流