こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel VBAでどうやるのか教えてください。

電話の回線の利用状況を見ようと、電話をかけてから切るまでに同じ時間に何回線を使っているのかをExcelを使って分析をしようと思ったのですが、どうやっていいのかわかりません。
DATEstartend回線
11月2日17:08:5517:09:48
11月2日17:12:5417:14:060
11月2日17:12:5917:16:372 → 2回線使っている
11月2日17:19:1817:21:500
11月2日17:20:2017:21:582 → 2回線使っている
11月2日17:21:1417:21:163 → 3回線使っている
11月2日17:22:1317:24:380
11月2日17:24:2817:25:112 → 2回線使っている
11月2日17:33:4917:34:450
11月2日17:51:5417:52:320
というように電話をかけ始めたとき、前に戻って重なっている時間が何回あるのかをVBAで読み出したいです。
わかる方はぜひ教えてください。

投稿日時 - 2005-12-06 19:10:19

QNo.1823448

困ってます

質問者が選んだベストアンサー

DATE,start,end,回線がそれぞれA,B,C,D列、
回線記録が2行目から記入されているものとして、
以下に例を示します。

r1 = 2
Do While Cells(r1, 1) <> "" 'DATEが空白まで繰返し

'回線カウント
cnt = 1
For r2 = 2 To r1
If Cells(r1, 2) < Cells(r2, 3) Then
cnt = cnt + 1 'startがendより過去の場合カウントアップ
End If
Next r2

'回線入力
If cnt = 1 Then
Cells(r1, 4) = 0
Else
Cells(r1, 4) = cnt
EndIf

r1 = r1 + 1
Loop

投稿日時 - 2005-12-06 19:29:24

補足

早速の回答ありがとうございます。
このやり方で出来ました。
今度、同じDATEの列で日付が変わったときに過去のカウントをリセットしてもう一度同じことを繰り返す場合はどうしたらよいのでしょうか?

投稿日時 - 2005-12-07 03:48:23

お礼

回答ありがとうございました。

投稿日時 - 2006-01-05 09:51:27

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問