VBAを使って全おもりの重さの期待値を出したい。
ここに1g、2g、3g、・・・、16gの16個のおもりがあります。重さは見た目では判断出来ないと考えて下さい。おもりの軽い方を判別出来る天秤が8つあります。全天秤に皿が2つずつあり、全皿おもりを1個ずつのせられるものとします。8つの天秤を1度同時に使う作業を1作業とします。特に重さがわかっていない2個のおもりの軽い方の重さの期待値は5.67g。期待値5.67gどうしで軽い方の重さの期待値は3.4g。期待値3.4gどうしで軽い方の重さの期待値は1.89g。期待値1.89gどうしで軽い方の重さの期待値は1gです。ここまでで4作業必要でした。僕がやりたい事はこの4作業で全おもりの重さの期待値を出す事です。全おもりにA1からP1まで名前を付け、エクセルのA1からP1にそれぞれの重さの期待値を出したいのです。8天秤左から右に並べ両皿とも見えるものとし重さの期待値が小さいおもりほど左の天秤にのせて軽さくらべをします。そして期待値を出し、また期待値が小さいおもりほど左の天秤にのせてを4作業行うと考えて下さい。VBAを使ってA1<B1などの条件を付け加えていくだけで全おもりの重さの期待値を出す事は出来るでしょうか?