excel VBA計算時間加減問題

primary9
個人積分：469分
文章編號：63079261

469分

樓主

2017-01-17 18:12

時間(hh:mm):放在A1資料~A10資料

A1 01:30
A2 10:20
A3 05:30
A4 12:20
A5 03:50
A6 12:20
A7 08:30
A8 12:20
A9 10:30
A10 02:20
問題：
1.A1~A10加總
2.假如A1~A10加總大於40小時，就減40小時，求答案

哇！這邊要怎麼排版呢？不知這樣大家看得懂問題嗎？

2017-01-17 18:12 發佈

文章關鍵字 Excel VBA 問題

brabus1518

brabus1518
個人積分：5362分
文章編號：63080458

5362分

2樓

2017-01-17 20:53

看看這樣是不是你要的囉~~~~~~

primary9

primary9
個人積分：469分
文章編號：63080470

469分

樓主

2017-01-17 20:54

brabus1518 wrote:
看看這樣是不是你要...(恕刪)

不好意思，那個公式的部分我都會。
我要的是程式碼如何寫。

GoLazyLife

GoLazyLife
個人積分：5分
文章編號：63113215

5分

4樓

2017-01-20 16:10

code:

For i = 1 To 10
MM = MM + Hour(Range("A" & i)) * 60 + Minute(Range("A" & i))
Next i
If MM > 40 Then
MM = MM - 40 * 60
End If
Cells(12, 1) = MM / 60

請參考。

regards,
GoLazyLife
邁向慵懶人生

snare

snare
個人積分：3046分
文章編號：63114295

3046分

5樓

2017-01-20 17:39

另一種不用迴圈，計算略少的方式，請參考

t = WorksheetFunction.Sum(Range("A1:A10")) * 24
If t > 40 Then t = t - 40
Range("b1") = t / 24: Range("b1").NumberFormat = "[h]:mm"

也可以用自訂儲存格格式[h]:mm，代替 Range("b1").NumberFormat = "[h]:mm" 這一行
如果要用小數方式顯示分鐘，這行就刪掉

primary9

primary9
個人積分：469分
文章編號：63137486

469分

樓主

2017-01-23 11:15

snare wrote:
另一種不用迴圈，計...(恕刪)

謝謝樓上兩位