| |
ｓこー さん こんにちは、ちんといいます。
タイムチャートで考えてみましょう。
C列を時間の確認ように使用しますので、属性：文字列にします。
考え方は、
午前０時〜２４時までの横線（一本線）を引いて下さい。
０時１０分から、１０分刻みで縦線を２３時５０分まで引きましょう。
-----1-----2-----3-----4 ・・・ と、いうように。
例として、開始時間１：００〜終了時間２時３０までの実績時間を求めるとしたら、
-----*********---3-----4 ・・・
というふうに、１０分刻みで"*"マークに置き換えます。（*はダブリ防止用)
というふうに、ロジックを考えると、以下のようになります。
Sub ボタン1_Click()
Dim C_bar As String
Dim i1 As Long, i2 As Integer
Dim Fun_bar As Integer
Dim Fun As Integer '<-- １０分単位の個数
For i1 = 1 To 23
C_bar = C_bar + "-----" + Right$(Format(i1, "00"), 1)
Next i1
For i1 = 1 To 4
a = DateDiff("n", Cells(i1, 1).Value, Cells(i1, 2).Value)
GoSub Time_chart
Next i1
MsgBox (Fun * 10) & "分作業しました。"
Cells(10, 10).Value = C_bar
Exit Sub
Time_chart:
Fun_bar = a / 10 '<-- １０分単位で １とする。（２０分なら２となる）
b = DateDiff("n", "0:00", Cells(i1, 1).Value) '<-- "*"を書き込む位置の計算
For i2 = (b / 10) To (b / 10) + (Fun_bar - 1)
If Mid(C_bar, i2, 1) <> "*" Then '<-- ダブリのチェック
Fun = Fun + 1 '<-- １０分単位の個数を数える
Mid(C_bar, i2, 1) = "*"
End If
Next i2
Cells(i1, 3).Value = C_bar
Return
End Sub
以上参考までに、
▼ｓこー さん：
>皆様こんばんは。いつもいつもありがとうございます。
>
>この度、会社で外にでている時間帯を計算する事になったのですが、
>２人以上いると重なってしまう時間帯がでてきまして、
>その処理をどうすればよいのかわからず悩んでいます。
>
>
> Ａ Ｂ
>１ 9:30 10:30 ・・・・・・・(60分)
>２ 11:40 12:30 ・・・・・・・(50分)
>３ 12:00 12:40 ・・・・・・・(40分)
>４ 13:00 13:50 ・・・・・・・(50分)
>
>
>Ｂの時間からＡの時間を引き、最後に合計する為に
>
>a = DateDiff("n", Range("a1"), Range("b1"))
>
>で引き算し、forで１〜４行を計算し、合計を出したいのですが、
>そのまま計算してしまうと全ての合計時間の200分と表示されます。
>実際には２行目と３行目は時間帯が重なっており、11：40〜12：40なので60分、
>実際の合計時間は170分になりますよね。
>重なりを除去して合計できるような事は可能でしょうか?
>
>さらにここに
>
>５ 9:00 14:00 ・・・・・・・(300分)
>
>と追加されれば、1〜４行をすべてカウントせず５行目だけの合計を出さなければならず、不勉強の私には考えつかない為、セルに色々計算式をいれて間違いだらけになりながらも、どうにか現状をしのいでおります。
>
>皆様、どうか良い方法があれば、ご教授ください。
>どうぞ、よろしくお願い致します．
|
|
ちん
- 04/5/4(火) 13:29 -
