
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などとすればよいでしょう。

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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
Office2021を別のPCにインスト...
-
エクセル 同じ数字を他の列に自...
-
大学のレポート A4で1枚レポー...
-
Excelで〇のついたものを抽出し...
-
ms teamsの日々のスケジュール...
-
パソコンWindows11 Office2021...
-
Microsoft Formsの「個人情報や...
-
【Excel VBA】PDFを作成して,...
-
エクセルで質問です。 ハイパー...
-
会社のOutlookにてメールを予約...
-
マクロ自動コピペ 貼り付ける場...
-
Office 2021 Professional Plus...
-
Excel テーブル内の空白行の削除
-
VBAファイルの保存先について
-
outlookのメールが固まってしま...
-
エクセルからメールを作れるか...
-
パソコンを買い替える際、前の...
-
office2019 のoutlookは2025年1...
-
エクセル:一定間隔で平均値を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
大学のレポート A4で1枚レポー...
-
Office2021を別のPCにインスト...
-
エクセル 同じ数字を他の列に自...
-
エクセルからメールを作れるか...
-
Microsoft365、ページ設定がで...
-
快活CLUBについて 私用で使う書...
-
パソコンWindows11 Office2021...
-
libreoffice calcで行を挿入し...
-
エクセルで質問です。 ハイパー...
-
outlookのメールが固まってしま...
-
Microsoft Formsの「個人情報や...
-
別シートの年間行事表をカレン...
-
Microsoft Formsでクイズの解答...
-
マクロ自動コピペ 貼り付ける場...
-
Excelで〇のついたものを抽出し...
-
Excel 日付を比較したら、同じ...
-
エクセルで特定のセルの値を別...
-
Officeを開くたびの「再起動メ...
-
office2019 のoutlookは2025年1...
おすすめ情報