Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40159 / 76732 ←次へ | 前へ→

【41674】時間の重なり分を除いた日ごとの合計を別シートに当てはめたい
質問  みなみ  - 06/8/19(土) 12:34 -

引用なし
パスワード
   こんにちは。
[#41472]で別のシートに合計を当てはめたいという質問をさせて頂きました、みなみです。

かみちゃんさんのご回答で見事に解決して頂き、早速使用していたのですが、
私の使用状況では労働時間帯が重なってしまう事がありました。

"シート1"でA列を日付、B列を時間1、C列を時間2として、その月の労働時間を入力します。
  A  B   C   
1 2 10:00 10:30   (30)
2 2 10:00 11:00   (60)
3 2 10:40 11:10   (30)
4 4 13:20 13:50   (30)
5 4 14:00 14:30   (30)
6 4 23:00  0:10   (70)
7 6  9:00  9:50   (50)
8 6  9:30 10:10   (40)
 
ここで問題になるのが1・2・3行目の2日の合計が
10:00〜11:10なので70分になって欲しいのですが、ご教授頂いたvbaですと
1・2行目の全ての合計を足すので120分になってしまいます。

同様に7・8行目の6日の合計も9:00〜10:10なので70分で計算したいのです。

そして、その結果を下記のようなA列に日付を書いた同一ブックの"シート2"のB列に入力したいのです。

  A  B      
1 1日 
2 2日 
3 3日 
4 4日 
5 5日 
6 6日 


質問ばかりで申し訳ありません。どうかご教授いただけませんでしょうか。
よろしくお願い致します。


尚、同じような質問が04/5/1に[#13332]の時間帯の重なり除去で
sこーさんが質問されており、
[#13404]のHirofumiさんが回答されておられました。

自分なりに考えてみて、時間順にソートして2行目のAが1行目のBより大きければ重なり無しとみなし、小さければ2行目のAが1行目のAより大きくて、2行目のBが1行目のBより大きければBの値を上書きしていくという理屈はようやくわかったのですが、理解してもそれを、この式をお手本にして今回の件に生かす力がございません・・・・。

本当に申し訳ありません。
0 hits

【41674】時間の重なり分を除いた日ごとの合計を別シートに当てはめたい みなみ 06/8/19(土) 12:34 質問
【41677】Re:時間の重なり分を除いた日ごとの合計... 飛ばない豚 06/8/19(土) 15:16 回答
【41678】Re:時間の重なり分を除いた日ごとの合計を... [名前なし] 06/8/19(土) 16:15 発言
【41679】Re:時間の重なり分を除いた日ごとの合計... 飛ばない豚 06/8/19(土) 16:41 回答
【41680】Re:時間の重なり分を除いた日ごとの合計を... みなみ 06/8/19(土) 17:17 発言
【41684】Re:時間の重なり分を除いた日ごとの合計を... Hirofumi 06/8/20(日) 1:44 回答
【41690】Re:時間の重なり分を除いた日ごとの合計を... みなみ 06/8/20(日) 8:52 お礼

40159 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free