エクセル関数で

例えば、人間が４人いて、鉛筆が３０個ある場合で、
４人全員に鉛筆３０本すべてを何本かずつ
（ランダムに）分配させる値を戻す関数は何でしょうか。

No.1 回答者： sanori 回答日時： 2004/01/22 16:37

難しいことではありません。

乱数を使えばよいです。

私はエクセルを持っていませんが、
たしかRND()だかRAND()だか、そんな名称です。
０～１の範囲での乱数を発生することができます。
この乱数に３０を掛け算すれば１～３０の乱数ができたことになります。

そうして、３０個のセルにそれぞれ１～３０個の乱数を発生させます。
各々が鉛筆１本１本だと思ってください。

それの整数部分（小数点以下切捨て）が、人の名前だと思ってください。

０～０．９９９・・・ならば、１番目の人
１～１．９９９；・・ならば、２番目の人
・・・

なお、整数部分をあらわす関数名は、たしか、
INT(セル名)だったと思います。

この回答への補足

ご回答ありがとうございます。
RAND()関数の利用ですね。

どうも私がやろうとしていることは、合計値がわかっている時に、合計値を分配の各対象に適当な数値で振り分けたいというSUM関数の全く逆のことのようです。

SUM関数の逆バージョンの関数ってないでしょうか。

補足日時：2004/01/22 16:43

No.2 ベストアンサー 回答者： maruru01 回答日時： 2004/01/22 16:45

こんにちは。

maruru01です。

このような分配問題は、ランダム性を考えると、結構難問です。
端数処理があるので、厳密にランダムにするのは無理です。
とりあえず、端数を一番多い人で調整する方法が、一番ランダム性を損ないにくいので、その方法です。
まず、A1に、

=RAND()

と入力して、A4までコピーします。
次に、B1に、

=A1/SUM($A$1:$A$4)*30

と入力して、B4までコピーします。
そうしたら、C1に、

=IF(MAX($B$1:$B$4)=B1,30-SUMPRODUCT(ROUND($B$1:$B$4,)),)+ROUND(B1,)

と入力して、C4までコピーします。
このC1:C4が、分配された数になります。

この回答へのお礼

ご回答ありがとうございます。
参考にさせていただきます。

お礼日時：2004/01/30 18:02

No.3 回答者： sanori 回答日時： 2004/01/22 18:31

＃１です。

＞どうも私がやろうとしていることは、合計値がわかっている時に、合計値を分配の各対象に適当な数値で振り分けたいというSUM関数の全く逆のことのようです。

ははー。
確率論とか統計学の話になってきましたね。

要は、４つの箱のどれかにそれぞれ４分の１の確率でランダムにボールを入れるととして、合計Ｎ個ボールを入れた場合にどうなるかですね。

・・・どうやればいいか、思いつかないです。



とりあえず、＃１の誤記訂正をしておきましょう。
２箇所の「１～３０」は、いずれも「０～３０」（厳密には０～２９．９９９９９・・・）の誤りです。

この回答へのお礼

ご回答ありがとうございます。
参考にさせていただきます。

お礼日時：2004/01/30 18:02

No.4 回答者： tinu2000 回答日時： 2004/01/22 19:41

１本目を誰に、２本目を誰に・・・３０本目を誰に、

と分配すると思いますが、
分配数の多い少ないは構わない、として、
関数で考えてみたけど、難しいですね。

VBAではダメでしょうか？
以下を貼り付けて、どこかのセルをクリックして見て下さい。
面白い現象になります。


Option Explicit
Dim I As Integer
Dim J As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　Worksheets("sheet1").Range("A1:D30") = ""
　For I = 1 To 30
　　　J = Int((4 * Rnd) + 1)
　　　Worksheets("sheet1").Cells(I, J) = I
　Next I
End Sub

この回答へのお礼

アドバイスありがとうございます。
参考にさせていただきます。

お礼日時：2004/01/30 18:02

No.5 回答者： imogasi 回答日時： 2004/01/22 22:14

ｘ＋ｙ＋ｚ＋u=30と言う不定方程式の整数解（の数ではなく）の解（整数の４組み）そのものを求めているのでしょうか。

例えばx＝２、y＝３、z=５，u=２０など.
エクセルの関数は最終結果として、「１つの」「値」しか
返しません。値には数値と文字列を返すものがあります。
ですから根本から、当てが違っていると思います。組み合わせの問題はエクセルは苦手と思います。
配列数式等もありますが、複数の値は返してないと思います。
ただ自信はないが、メニューのツール－「ソルバー」というツールが、制約条件を整数に設定できるらしいので、使えるかも知れません。本件に使えるか研究されては。
が、しかし小生は数論・確率は素人に近いので、数学関連のカテゴリに質問されることをお勧めします。過去のコンピュターカテゴリでの、数学がらみの問題の回答は少ないと個人的に感じています。
プログラマは文系専攻人間が多いのでは。
理論に裏付けされた回答でないと、質問者が判別眼がないと惑わされます。

この回答へのお礼

アドバイスありがとうございます。
参考にさせていただきます。

お礼日時：2004/01/30 18:01

No.6 回答者： sakenomo 回答日時： 2004/01/25 14:33

１本鉛筆を配るごとに、くじ引きをするような考え方でやってみました。

数学的なことは自信無しです。

Ａ１に、

=INT(RAND()*4+1)

を入れて、Ａ３０までオートフィル。

Ｃ１に、

=COUNTIF($A$1:$A$30,ROW())

を入れて、Ｃ４までオートフィル。

Ｃ列を合計すると３０になります。

この回答へのお礼

アドバイスありがとうございます。
参考にさせていただきます。

お礼日時：2004/01/30 18:01