Question

Sheet１Ｂ列の１～２０まで固定値があり、Ｃ、Ｄ、Ｅ列の同じく１～２０
までＢ列にある固定値がランダムに出るようになっています。
Ａ列にはＢ列～Ｅ列の各行の合計が１５８０～１６００だった場合“１”、
違う場合は“０”と判定されます。←今ここまで出来ています。

◎やりたいこと
 判定が“１”になった場合に、Ｂ列～Ｅ列の各数値を、違うSheetの
 Ｂ列～Ｅ列にリストアップしていきたいです。ランダム（手動）のため、
 “F9”ボタンを押す度にこの作業が行われるようにしたいのですが、
 ＶＢＡ初心者のためかなり厳しい状況にあります。重複した組み合わせ
 も除きたいと考えているのですが、どうすればよいのか思いつきません。

本来は自分で教科書片手にやらなければならないのですが、上司に急遽頼
まれたため、投稿させて頂きます。どなたかよろしければ教えていただけ
れば幸いです。

Answer 1

B～E列のデータがどのように作成されているのかはっきりしないので、
とりあえずすべて固定値として条件に合うデータのみSheet2にコピーする
例をアップしておきました。コマンドボタンをクリックすると、A列の値
が1の場合のみB～E列の値がSheet2にコピーされるようにしてあります。
 下のアドレスで示したファイルのプログラムを参考にしてください。

 http://tsubouchi-ps2.jp/others/qb090313.xls

  追記：重複データを貼り付けないようにするためのプログラムを下の
   ファイルに追加しておきました。AdvancedFilterを使って重複データ
   を削除する方法がありますが、とりあえず、最も単純にIf文でデータ
   をチェックする方法にしておきました。

 http://tsubouchi-ps2.jp/others/qb090314.xls