Excel VBA質問箱 IV

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

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


730 / 13645 ツリー ←次へ | 前へ→

【78686】ランダムに提示 戸梶 16/12/17(土) 8:43 質問[未読]
【78687】Re:ランダムに提示 γ 16/12/17(土) 9:39 回答[未読]
【78689】Re:ランダムに提示 戸梶 16/12/17(土) 10:42 回答[未読]
【78690】Re:ランダムに提示 戸梶 16/12/17(土) 11:22 発言[未読]
【78691】Re:ランダムに提示 γ 16/12/17(土) 11:35 発言[未読]
【78693】Re:ランダムに提示 戸梶 16/12/17(土) 12:13 発言[未読]

【78686】ランダムに提示
質問  戸梶  - 16/12/17(土) 8:43 -

引用なし
パスワード
   よろしくお願いします。

あくまで例ですが,Sheet 2 に以下の情報が入力されています。1行目はタイトル行です。

A列には英単語,B列にはその日本語

apple りんご
banana バナナ
berry ベリー

といった感じです。

子どもたちに Sheet 1 を見せて単語の練習を行いたいと考えています。
Sheet1上の開始ボタンを押すことで次の動作が始まります。

apple の文字列が図形四角に入って登場します。その5秒後に,その訳の「りんご」が同じように四角の図形に入って登場します。登場位置は appleの右側です。

その5秒後にbananaがappleの図形の下に同様の形式で登場し,その5秒後に「ばなな」が同様の形式で登場します。

この繰り返しです。

しかし私が考えていることは,これがランダムにできれば良いなと思っています。つまり,banana(とその訳)が最初に登場して,次に,berry(とその訳),次にapple(とその訳)といった感じで,開始ボタンを1回押すだけで,Sheet2に登録されている単語がシャッフルされて,Sheet1上に登場するというものです。

このようなことは可能でしょうか。ぜひコードをご教授いただけますでしょうか。

【78687】Re:ランダムに提示
回答  γ  - 16/12/17(土) 9:39 -

引用なし
パスワード
   たぶん出来ると思いますが、コードという前に確認です。

(a)ランダムということは、時としてappleが続くこともあるわけですが、
  それも許容するのですか?
(b)それとも、いったん出てきたものは一巡するまでは重複して出さない前提ですか?

(a)ならワークシート関数の RANDBETWEENを使うのが簡単です。
(b)なら、予め1〜nの数値をランダムに並び替えておいて、
  上から順に使っていくのがよいでしょう。

【78689】Re:ランダムに提示
回答  戸梶  - 16/12/17(土) 10:42 -

引用なし
パスワード
   返信ありがとうございます。

yさんのご指摘からしますと、bでお願いしたいです。

よろしくお願いいたします。

▼γ さん:
>たぶん出来ると思いますが、コードという前に確認です。
>
>(a)ランダムということは、時としてappleが続くこともあるわけですが、
>  それも許容するのですか?
>(b)それとも、いったん出てきたものは一巡するまでは重複して出さない前提ですか?
>
>(a)ならワークシート関数の RANDBETWEENを使うのが簡単です。
>(b)なら、予め1〜nの数値をランダムに並び替えておいて、
>  上から順に使っていくのがよいでしょう。

【78690】Re:ランダムに提示
発言  戸梶  - 16/12/17(土) 11:22 -

引用なし
パスワード
   γさま

大変失礼いたしました。携帯から拝見した際にyと表示されていました。

ごめんなさい。

【78691】Re:ランダムに提示
発言  γ  - 16/12/17(土) 11:35 -

引用なし
パスワード
   ▼戸梶 さん:
>yさんのご指摘からしますと、bでお願いしたいです。
>よろしくお願いいたします。
よろしくと言われましても。

ワークシートに =RAND() 関数を入力して、
その乱数列でソートすればランダムに並びかわりますね。
その操作をマクロ記録すればよいだけなので、
お願いされる必要もないように思います。
ご自分でトライなさって、それでさらに不明な点を質問して下さい。

【78693】Re:ランダムに提示
発言  戸梶  - 16/12/17(土) 12:13 -

引用なし
パスワード
   γ様

ありがとうございます。

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