Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10914 / 13644 ツリー ←次へ | 前へ→

【19204】メンバーの選出について・・・。 ひよっこ 04/10/25(月) 15:58 質問[未読]
【19206】Re:メンバーの選出について・・・。 IROC 04/10/25(月) 16:21 回答[未読]
【19208】Re:メンバーの選出について・・・。 ichinose 04/10/25(月) 16:55 発言[未読]
【19219】Re:メンバーの選出について・・・。 ひよっこ 04/10/25(月) 20:48 お礼[未読]

【19204】メンバーの選出について・・・。
質問  ひよっこ E-MAIL  - 04/10/25(月) 15:58 -

引用なし
パスワード
   こんにちは。
VBA初心者です。
プログラムの組み方がわからないので教えてください。
よろしくお願いします。

*プログラム内容*

 ある条件を満たしたグループの中から一人だけをランダムに選出し、
グループの全体の中で、選抜された人が解答した意見と同じ意見を持っている人の割合を出すというプログラムを考えています。

例えば・・・
 まず、1〜5の中から解答を出すような、5択問題を与えられた回答者20人のグループ中から、1,2,3と回答した人だけを選出します。
その人数が10人いるとすると、さらにその中から一人だけを乱数を使ってランダムに選出し、その人が出した答えと同じ回答をした人が全体でどのくらいの割合なのかを調べるためのプログラムを作りたいと考えています。

このようなプログラムは可能でしょうか?

【19206】Re:メンバーの選出について・・・。
回答  IROC  - 04/10/25(月) 16:21 -

引用なし
パスワード
   >このようなプログラムは可能でしょうか?

可能ですが、具体的にどこが分からないのでしょうか?

セルにデータを入れて、オートフィルタなどの
一般機能をできるだけ利用しては如何ですか?

【19208】Re:メンバーの選出について・・・。
発言  ichinose  - 04/10/25(月) 16:55 -

引用なし
パスワード
   ひよっこ さん、IROCさん
こんにちは。
シートにデータを入力して、数式でも出来そうなんですけどね・・・。

>VBA初心者です。
>プログラムの組み方がわからないので教えてください。
>よろしくお願いします。
>
>例えば・・・
> まず、1〜5の中から解答を出すような、5択問題を与えられた回答者20人のグループ中から、1,2,3と回答した人だけを選出します。
>その人数が10人いるとすると、さらにその中から一人だけを乱数を使ってランダムに選出し、その人が出した答えと同じ回答をした人が全体でどのくらいの割合なのかを調べるためのプログラムを作りたいと考えています。
この例題を取り上げると・・・。
新規ブックのアクティブシートに以下のように20人の回答結果をA列、B列の2行目から(1行目見出し)入力します。

    A    B     C
 1  氏名   回答   サンプル回答
 2   a    2
 3   b    5    占有率
 4   c    5
 5   d    2
 6   e    2
 7   f    4
 8   g    1
 9   h    3
10   I    1
11   j    4
12   k    3
13   l    3
14   m    4
15   n    1
16   o    3
17   p    4
18   q    2
19   r    5
20   s    4
21   t    2

セルC2は、サンプリング回答値、セルC4は、その回答の割合だとすると、
セルC2には、
「=INT(RAND()*3)+1」という数式(回答1,2,3をランダムに取得)。

セルC4には、
「=COUNTIF($B$2:$B$21,C2)/COUNT($B$2:$B$21)」

と言う数式。

F9を押すたびに再計算されますから、サンプリング回答値が変わり、よって、割合も変わります。

こんな方法ですが、例題の結果は得られると思うのですが・・・。

【19219】Re:メンバーの選出について・・・。
お礼  ひよっこ E-MAIL  - 04/10/25(月) 20:48 -

引用なし
パスワード
   IROCさん、ichinoseさん、回答ありがとうございました。
早速、実験してみたいと思います。

10914 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free