![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.2ベストアンサー
- 回答日時:
例えば時間のデータがA1セルからA100セルの間に入力されているとします。
時間の入力は1分でしたら0:01:00のように入力されているとします。そこで平均の時間ですがB1セルには平均時間などと記して、B2セルには次の式を入力します。
=AVERAGE(A1:A100)
セルの表示形式はh:mm:ssのようにします。
合計時間数からみた2分以内、3分以内、5分以内、8分以内の割合ですが、C1セルには時間以内とか記して、C2セルには0:02:00、C3セルには0:03:00、C4セルには0:05:00、C5セルには0:08:00と入力します。
その後にD1セルには時間以内割合とでも記して、D2セルには2分以内の割合として次の式を入力します。
=SUMIF(A1:A100,"<="&C2,A1:A100)/SUM(A1:A100)
D3セルには次の式を入力してD5セルまでオートフィルドラッグします。
=(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)
最後にD2セルからD5セルを選択してセルの表示形式をパーセンテージにし、小数点以下の桁数を2などとすればよいでしょう。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_15.png?8acaa2e)
No.1
- 回答日時:
下記のマクロを実行するとデータを下の図のように分けてくれます。
ただしもとのdataは1列目にいれてあり、データ数は仮に8としてありますがこれは適宜修正してください。各階級を3列目から7列目までにわけて表示するようにしています。平均やテータ数はこの結果からエクセルの固有の関数を使って自分で計算してください。このマクロをコピーして使ってください。>=88>X >=55> X >=33>X>=2<2
1010
66
88
11
55
33
55
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
この回答へのお礼
お礼日時:2010/12/09 13:46
早急なご回答いただいたにも関わらずご返答が遅くなってしまい
申し訳ありません。
上記ご教示頂いた、VBAを試してみましたが、私には少々難解でありました。
教えていただいたにも関わらず申し訳ないです。
VBAを勉強していきます。
有難う御座いました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 統計学 標準誤差の求め方 2 2022/07/04 19:59
- 統計学 有給の週平均出し方 2 2023/05/24 10:25
- 物理学 気体分子の力積の平均について質問です。 参考書で以下の様に解説されていました。 「気体が長さLの立方 4 2023/03/24 13:29
- 小学校 5年 速さを求める 3 2023/02/16 17:14
- その他(Microsoft Office) 時間の平均値を計算する方法を教えて。 1 2023/08/06 12:02
- 数学 賃料と専有面積のデータが60部屋分ほどがあり、 賃料÷専有面積(=1㎡あたりの賃料)の数式で計算する 2 2023/02/18 20:33
- 統計学 母集団分布を平均 μ, 分散 σ2 の正規分布と想定し, 母集団から無作為抽出した標本のデータ(標本 4 2023/01/30 20:25
- 数学 自動車の平均速度について。 3 2023/05/23 18:18
- 数学 平均の求め方を教えてください!! 私は週5で7h毎日働いています。 なので1週間35時間労働です。 1 2022/07/20 23:41
- Excel(エクセル) エクセルの折れ線グラフで教えて下さい 1 2023/03/05 22:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoftにofficeアプリについ...
-
【スプレドシート】IMPORTRANGE...
-
大学のレポート A4で1枚レポー...
-
Office2021を別のPCにインスト...
-
英数字のみ全角から半角に変換
-
会社のPCに入っているExcelでバ...
-
複数の写真を1枚に印刷
-
Windows 11で、IME言語バー(IM...
-
以下マクロの処理を最終行まで...
-
エクセルでXLOOKUP関数...
-
Microsoft Formsの「個人情報や...
-
Outlook で宛先が複数の場合の人数
-
teams設定教えて下さい。 ①ビデ...
-
Microsoft365で写真をアルバム...
-
SUMIFS関数について
-
VBAファイルの保存先について
-
エクセルで英文字に入れた下線...
-
PCを買い換えました。 今使って...
-
Excel 日付を比較したら、同じ...
-
Excel VBA 日程表からスケジュ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
英数字のみ全角から半角に変換
-
「生産性ソフトウェア」とは何...
-
会社PCのメールが更新されない
-
【関数】○年○ヶ月と表示された...
-
WEBの記事を印刷する際にA...
-
エクセルでXLOOKUP関数...
-
Microsoft familyに追加されま...
-
会社のOutlookにてメールを予約...
-
Microsoft Formsの「個人情報や...
-
Microsoft365の一部を解約したい
-
マクロ自動コピペ 貼り付ける場...
-
Outlook で宛先が複数の場合の人数
-
outlookのメールが固まってしま...
-
【Excel VBA】PDFを作成して,...
-
大学のレポート A4で1枚レポー...
-
office365って抵抗感ないですか?
-
Microsoftにofficeアプリについ...
-
Excel テーブル内の空白行の削除
-
マイクロソフト 一時使用コード...
おすすめ情報