A 回答 (3件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
Sheet1のA1~A100に問題、B1~B100に回答を書くとして。
Sheet1の例えばC1に
=INT(RAND()*99)+1
こうすると、1~100の乱数が得られます。
200までなら =INT(RAND()*199)+1 ですね。
で、Sheet2をクリックして白紙を開き、例えばそこのA1に
=INDIRECT("Sheet1!A"&Sheet1!C1)
と書くと問題が表示されます。一方Sheet3のA1には
=INDIRECT("Sheet1!B"&Sheet1!C1)
とすると、同じ問題の答えが出てきます。
問題はSheet2、答えはSheet3ですから同時には見れないですよね。
Sheetを切り替えると、問題と答えが参照できます。気になるなら
Sheet1を非表示にする(シート名上で右クリックするとメニューが
出てきます)と、問題一覧は見られません。
で、問題を切り替えるには[f9]を押してください。
マクロを使うともっときれいにできますが、マクロを使わずにこの
方法でも「シートを切り替えるだけでは乱数の再計算はしない」と
言うExcelの特性から、可能になります。
No.2
- 回答日時:
おもしろそうだったので、マクロ組んで見ました。
準備としてSheet2に
A B C
番号 質問 答え
1
2
3
4
5
・・・
と番号をいれて質問と答えを準備します。
別シートにマクロ起動のボタンを作成
モジュールに
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub ボタン1_Click()
Sheets("Sheet2").Columns("A:A").Replace What:=Range("A1").Value, Replacement:=""
mondaisu = Sheets("Sheet2").Range("B1").Value
If mondaisu < 2 Then
MsgBox "質問が少なくなりました。"
Exit Sub
End If
For i = 1 To 10000
If GetAsyncKeyState(2) <> 0 Then
Exit For
Else
Range("A1").Value = WorksheetFunction.Small(Sheets("Sheet2").Columns("A:A"), Int(Rnd() * mondaisu) + 1)
Sleep (50)
End If
Next
End Sub
をコピィして実行します。
A1セルに問題の番号が次々に変わります。
停止するには、マウスを右クリックします。
A1セルに問題の番号がでますので
B1セルには、入力規則で 問題 と 答え のいずれかが選択できるようにして
表示したいセルには =VLOOKUP(A1,Sheet2!A:C,MATCH(B1,Sheet2!A2:C2))
といれておけば、B1で 問題を選択したら 問題 が
答え を選択したら 答えになるます。
上記マクロを実行するたびに、一度でた問題の番号が消えますので、重複して同じ問題がでないようにしました。
No.3
- 回答日時:
No2です。
自分で提示して読み直したのですが。A B C
番号 質問 答え
1
2
3
のB1セルには =COUNTA(A:A)の関数を入れていたと思います。従って
A B C
空白 COUNTA関数
1
2
にして先のVBA確認してください。或いは
mondaisu = Sheets("Sheet2").Range("B1").Value
の部分をCOUNTA関数を入れたセルに変更してしてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで早押しゲームを作りたい 4 2022/05/12 13:46
- その他(プログラミング・Web制作) 「問題も答えも画像」のクイズを簡単に作れるもの何かありませんでしょうか? 1 2022/05/30 17:29
- その他(データベース) Q&Aフォームを作成したいのですが、どう設計してよいか分かりません、アドバイスお願い致します。 1 2023/07/27 19:04
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) エクセルでセルの値分の個数の数字列を自動で入れたい 8 2023/03/14 18:00
- Java 問題作成のWebアプリの作り方を教えてください 1 2022/11/26 22:01
- その他(ブラウザ) IE・edgeで日増しに観られるサイトが減ってくる。 1 2022/10/04 22:40
- WordPress(ワードプレス) WordpressでYouTubeの埋め込みができない。 1 2022/10/26 01:08
- au(KDDI) 特定の画面を見るとスマホが固まります ご覧頂き有難うございます。 特定のページを見るとスマホが固まり 1 2023/08/21 19:29
- その他(IT・Webサービス) PCを立ち上げ時いつも同じ画像が出ます(トラブル発生、終了) 2 2022/04/23 12:46
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「語句」とは何
-
10分は何時間ですか?わかりま...
-
自分が求めている答えが返って...
-
シャープの関数電卓を使ってい...
-
このAV女優さんの名前わかる方...
-
嗅ぎたい?うふ。 なんて。(笑)
-
レスでwを多用してくる人という...
-
問題の答え方について 筆記試験...
-
1m3は何㍑ですか
-
虚栄心の強い、夫の宥め方があ...
-
20平方メートルってだいたい何...
-
謎解きが解けません…
-
8ビット浮動小数点数 0 1000 10...
-
私は、ベストアンサー率が8パー...
-
「どれくらい好き」の答え方
-
高校の電気機器です。
-
税務調査の過去3年分って
-
小型窒素発生装置 N2ボーイに袋...
-
ひっかけ問題です。60を半分で...
-
iPhoneトゥエンティからiPhone...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「語句」とは何
-
自分が求めている答えが返って...
-
勃起の対義語(反対語)は何な...
-
10分は何時間ですか?わかりま...
-
私は、ベストアンサー率が8パー...
-
【なぜインターネットはつまら...
-
このAV女優さんの名前わかる方...
-
以下の場合に全部で何種類の数...
-
シャープの関数電卓を使ってい...
-
謎解きが解けません…
-
名詞「答え」に「え」がいるのか
-
レスでwを多用してくる人という...
-
インターネットは人工知能ばか...
-
8ビット浮動小数点数 0 1000 10...
-
なぜ何度も同じ質問をする人が...
-
「どれくらい好き」の答え方
-
ひっかけ問題です。60を半分で...
-
教えてgooで質問すると 答えだ...
-
虚栄心の強い、夫の宥め方があ...
-
答えは1.80なのですが、どうし...
おすすめ情報