エクセルで時間の平均と割合を出したいです。

質問

平均は、一ヶ月の合計時間数から1対応あたりの時間平均値

割合は合計時間数から見て8分以内、5分以内、3分以内、2分以内の割合が
どれだけであったかを出したいです。

※単位は秒単位バージョン、時分秒単位バージョン出したいです。

何か良い方法をご教授頂けると幸甚で御座います。

回答No.2

KURUMITO · ベストアンサー

例えば時間のデータがＡ1セルからＡ100セルの間に入力されているとします。時間の入力は1分でしたら0:01:00のように入力されているとします。
そこで平均の時間ですがＢ1セルには平均時間などと記して、Ｂ２セルには次の式を入力します。

=AVERAGE(A1:A100)

セルの表示形式はh:mm:ssのようにします。
合計時間数からみた2分以内、3分以内、5分以内、8分以内の割合ですが、Ｃ1セルには時間以内とか記して、Ｃ２セルには0:02:00、Ｃ３セルには0:03:00、Ｃ４セルには0:05:00、Ｃ５セルには0:08:00と入力します。
その後にＤ1セルには時間以内割合とでも記して、Ｄ２セルには2分以内の割合として次の式を入力します。

=SUMIF(A1:A100,"<="&C2,A1:A100)/SUM(A1:A100)

Ｄ3セルには次の式を入力してＤ5セルまでオートフィルドラッグします。

=(SUMIF(A$1:A$100,">"&C2,A$1:A$100)-SUMIF(A$1:A$100,">"&C3,A$1:A$100))/SUM(A$1:A$100)

最後にＤ2セルからＤ5セルを選択してセルの表示形式をパーセンテージにし、小数点以下の桁数を2などとすればよいでしょう。

お礼

上記方法で何とか希望の数値が出せそうです。

本当に有難う御座いました。

そして、返答が遅くなってしまいごめんなさい。

回答No.1

noname#192382

下記のマクロを実行するとデータを下の図のように分けてくれます。ただしもとのdataは1列目にいれてあり、データ数は仮に8としてありますがこれは適宜修正してください。各階級を3列目から7列目までにわけて表示するようにしています。平均やテータ数はこの結果からエクセルの固有の関数を使って自分で計算してください。このマクロをコピーして使ってください。

>=8 8>X >=5 5> X >=3 3>X>=2 <2
10 10
6 6
8 8
1 1
5 5
3 3
5 5

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2010/12/8 ユーザー名 :
'
Dim mygyo As Integer, myvalue As Variant

For mygyo = 2 To 8
myvalue = Cells(mygyo, 1)
If myvalue >= 8 Then
Cells(mygyo, 3) = myvalue
ElseIf myvalue >= 5 Then
Cells(mygyo, 4) = myvalue
ElseIf myvalue >= 3 Then
Cells(mygyo, 5) = myvalue
ElseIf myvalue >= 2 Then
Cells(mygyo, 6) = myvalue
Else: Cells(mygyo, 7) = myvalue
End If
Next

お礼

早急なご回答いただいたにも関わらずご返答が遅くなってしまい
申し訳ありません。

上記ご教示頂いた、VBAを試してみましたが、私には少々難解でありました。
教えていただいたにも関わらず申し訳ないです。

VBAを勉強していきます。

有難う御座いました。