エクセルの機能で百人一首ゲームをしたいのです

質問

こんにちは。
エクセルの関数を使って百人一首のゲームを考えていますが、次のような状況です。
1)第１列を歌番号、2・3・4列に上中下の句、第五列に作者で、縦１００行の表を作り、これに元表という
名前を付けました。
２）検索値のセルをA1にこの元表の外に作りました。
３）検索値は「＝INT(RAND()*100)で求め、歌番号と合致するものを選ぶようにしました。
4）第２列の上の句を表示するためのセルには
　「＝VLOOKUP（検索値セル番号，元表の名前，上の句列番号）
としました。
これで上中下の句とも所定のセルに入りましたが、ひとつの和歌を表示するとき、上中下句が一時に
表示されてしまい、暗記勉強になりません。
また、乱数のところは１首ごとに全部消去しなければなりません。
なにか、インプットで上中下句を別々に表示すること、次の歌へ進む乱数を自動的に作る方法を
教えていただきたいのです。VBAはよくわからないのでできればエクセルの範囲でお願いします。

回答No.3

kkkkkm · ベストアンサー

どこか空いているセルに値を入れると必要なセルを表示するようにすればいいのではないかと思います。

たとえば

下の句を表示するセル
=IF(空いているセル="","",VLOOKUP（検索値セル番号，元表の名前，下の句列番号）)

にしておくと空いているセルに何か値を入れると下の句が表示されます。この場合、空いているセルに値を入れた途端に乱数の値が変化して別の句が表示されてしまい具合が悪いのでこちらも手を加えます

検索値のセル(VLOOKUPの検索値セル番号になります)は、データのデータの入力規則でリストを選択し、元の値に乱数を生成するセルを指定します。

たとえば、B１に
=INT(RAND()*100)
としているのでしたら、上記の元の値を=$B$1にします。

次の問題を出したいときには、リストにしたセルをクリックし右に出る▽をクリックするとリスト内に値が一個だけ出るのでそれを選択します。

リストの値は選択するたびに次に出る選択肢が変化しますので次々と別の問題が出ることになります。

お礼

早速のご教示多謝。頑張ってトライします。どうもお世話様でした。

回答No.4

kkkkkm

No.3です。

次の問題を出したいときには、空いているセルの値を消してからリスト選択してください。そこが少し面倒かもしれませんね。

回答No.2

tom04

こんばんは！
一案です。

＞VBAはよくわからないのでできればエクセルの範囲でお願いします
というコトですが、お望みでない方法でやってみました。

↓の画像のように別Sheet（画像では下側がSheet2とします）に表を作成しておきます。
上側のSheet1のA2セルには
=INT(RAND()*100)+1
という数式を
B2セルには
=VLOOKUP(A2,Sheet2!A:B,2,0)
という数式を入れています。

そうした上で、
画面左下のSheet1のSheet見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻りF9キー（再計算）を押下して、
C2～E2セルにそれぞれ入力（またはリスト設定しておいて選択）してみてください。

Private Sub Worksheet_Calculate() 'この行から
With Range("C2:F2")
.ClearContents
.Interior.ColorIndex = xlNone
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim j As Long, c As Range, myFlg As Boolean, wS As Worksheet
Set wS = Worksheets("Sheet2")
If Intersect(Target, Range("C2:E2")) Is Nothing Or Target.Count > 1 Then Exit Sub
Application.Calculation = xlCalculationManual
With Target
For j = 3 To 5
If Cells(2, j) = "" Then
Cells(2, j).Select
myFlg = True
Exit For
End If
Next j
If myFlg = False Then
Cells(2, "C").Select
End If
If WorksheetFunction.CountBlank(Range("C2:E2")) = 0 Then
Set c = wS.Range("A:A").Find(what:=Range("A2"), LookIn:=xlValues, lookat:=xlWhole)
If Range("C2") = wS.Cells(c.Row, "C") And Range("D2") = wS.Cells(c.Row, "D") And Range("E2") = wS.Cells(c.Row, "E") Then
Range("F2") = "正"
Else
Range("F2") = "誤"
If Range("C2") <> wS.Cells(c.Row, "C") Then
Range("C2").Interior.ColorIndex = 3
Range("C2").Select
ElseIf Range("D2") <> wS.Cells(c.Row, "D") Then
Range("D2").Interior.ColorIndex = 3
Range("D2").Select
Else
Range("E2").Interior.ColorIndex = 3
Range("E2").Select
End If
End If
End If
End With
Application.Calculation = xlCalculationManual
End Sub 'この行まで

※　正誤の判定がF2セルに表示され
間違った場合はそのセルが赤く塗りつぶされ、そのセルが選択されるようにしています。

※　新しい問題を表示したい場合はF9キーを押下してみてください。

お望みの方法ではないと思いますが、ものは試しと思ってやってみてください。m(_ _)m

お礼

早速にありがとうございました。
VBAプログラムに挫折感を抱いておりますので、なんとか頑張ります。どうも。多謝です。

回答No.1

keithin

ゲームですから、
１．あなたが「何かをする」と、上の句が表示される
２．次にあなたが「何か」すると、下の句とかが表示される
という具合になるよう作っていきます。

この「何かをする」ってのは、まぁ何でもいいんですが、マクロとか併用すれば「ボタンをクリックして操作」みたいに作れるので便利だという事です。

でも今回ご相談はマクロはイヤだって事なので、たとえば…
１．Ｆ９キーを押して乱数を再計算すると、上の句が切り替わる
２．どこかのセルに何か記入してあるときに下の句が表示され、記入を消すと表示が消える
みたいな具合に作成するのが、一般的なやり方という事になります。

でもこれじゃイマイチ面白くないので、もうちょっとマニアックな作り込みをしてみます。

準備：（必ずこの通りに行う）
ご利用のエクセルのバージョンが不明なので詳しい手順をお話しできませんが、エクセルのオプションの計算方法(数式)で「反復計算を行う」にチェック、最大反復回数を１に設定してＯＫする

Ａ列に番号
Ｂ列に上の句
Ｃ列に下の句
Ｄ列に作者
１行目にタイトル行、２行目からデータという具合に準備する

手順：
Ｇ１セルに
=MOD(G1,2)+1
と記入する

Ｅ２セルに
=IF(G1=2,E2,INDEX(B2:B101,INT(RAND()*100)+1))
Ｆ２セルに
=IF(G1=1,"",VLOOKUP(E2,B:C,2,FALSE))
とそれぞれ記入する。

以上を間違えずに準備出来たら、あとはＦ９キーを何度も押していきます
１度Ｆ９を押すと上の句が表示され、下の句が消える
もう一度Ｆ９を押すと、上の句に対応する下の句が表示される
以後繰り返す
のように動作します。

お礼

早速に多謝です。
ご教示のとおりやってみます。
出来た！というのは時間がかかりますがチャレンジします。
ありがとうございました。