fir********

2022/5/28 11:13

11回答

vbaで席替えのプログラムを作成しているのですが、

vbaで席替えのプログラムを作成しているのですが、 男女を必ず隣同士にしたいです。 しかしrnd関数で、男は奇数でランダムに、女は偶数でランダムにしようとするやり方がわかりません。 もしくはそれは可能でしょうか？ お力お貸しください。

Visual Basic・54閲覧

ベストアンサー

0
ふぐ

2022/5/28 14:31

ご質問の趣旨と異なりますが、ビンゴマシンを用いて席順を決めてみるのはいかがでしょうか？ ビンゴマシンを２台、男子用と女子用に準備し、各マシンから出る番号の席位置を男女が必ず隣になるように予め決めておきます。 生徒各人に自身の性別に応じたビンゴマシンを引かせて席位置を決めます。 私自身が高校生の頃、この方法で席替えを行っていました。自分自身でビンゴマシンを回して席位置を決めますので納得感がありましたし、準備から後片付けまでを生徒が主体になって行っていたため、クラスの連帯感も向上して楽しい思い出になりました。お勧めですよ。 https://www.amazon.co.jp/%E3%83%8F%E3%83%8A%E3%83%A4%E3%83%9E-HANAYAMA-%E3%83%93%E3%83%B3%E3%82%B4%E3%83%9F%E3%83%8B%E3%83%9E%E3%83%A0/dp/B0002YNBGY/