タイトルの通りです office2002ですが visual vasic editorに入力しています。
Sub quiz1()
MsgBox "[OK]ボタンを押すと、なぞなぞが始まります"
MsgBox "自分が動物だと言っているような飲み物は?"
MsgBox "サイダー"
MsgBox "話をすることの大好きな道具は?"
MsgBox "シャベル"
MsgBox "やぶれば、やぶるほど、ほめられるものは?"
MsgBox "記録"
End Sub
と入力しましたが メッセージボックスのタイトル部分が Microsoft Excelとなっていますが 例えば "問題1"とかに変えたいのですが
どうすればいいのでしょうか お願いします
No.4ベストアンサー
- 回答日時:
おもしろそうなので、寄せてもらいます。
Sheet2に、データをセットして、そこから問題と答えを呼び出します。Sheet2の1列目は、問題番号、2列目は問題、3列目は答えとして、2 行目から、データが入っているとします。次のコードを、標準モジュールにコピペしてください。
Sub quiz()
Dim ans As Variant
Dim Question, Answer, H(3) As String
Dim i As Integer
Dim WS As Object
Set WS = Worksheets("Sheet2")
H(1) = "ぴんぽ~ん!"
H(2) = "当たり!"
H(3) = "残念"
MsgBox "[OK]ボタンを押すと、なぞなぞが始まります", , "クイズ"
i = 1
While WS.Cells(i + 1, 2) <> ""
Question = WS.Cells(i + 1, 2).Value
Answer = WS.Cells(i + 1, 3).Value
ans = InputBox(Question, "問題" & i)
If ans = Answer Then
MsgBox H(1), , H(2)
Else
MsgBox Answer & "でした。", vbCritical, H(3)
End If
i = i + 1
Wend
End Sub
No.5
- 回答日時:
No2です。
No4の補足を見ましたが、回答者:pascal3141 さんが書いたように、Sheet2の1列目は、問題番号、2列目は問題、3列目は答えとして、2 行目から、データが入えてありますか?
No3の補足をみましたが、ポップアップされるメッセージボックスの大きさは、文字数が増えれば自動的に大きくなりますよ。長い問題を入れてみて下さい。
改行したい場合はこんなふうにしてみてください。
MsgBox "[OK]ボタンを押すと、なぞなぞが始まります。♪♪♪♪" _
+ Chr(&HD) + Chr(&HA) + "" _
+ Chr(&HD) + Chr(&HA) + "質問の答えを入力欄に書き込んでOKボタンを押してみてください。" _
+ Chr(&HD) + Chr(&HA) + "" _
+ Chr(&HD) + Chr(&HA) + "では始まりま~す。", , "クイズ"
No.3
- 回答日時:
面白そうなので参加します。
No2さんのをそのまま拝借して、点数を出すようにしました。
Sub quiz2()
Dim ans As Variant
Dim p As Integer, x As Single
p = 0
MsgBox "[OK]ボタンを押すと、なぞなぞが始まります", , "クイズ"
ans = InputBox("自分が動物だと言っているような飲み物は?", "問題1")
If ans = "サイダー" Then
MsgBox "ぴんぽ~ん!", , "当たり!"
p = p + 1
Else
MsgBox "サイダーでした。", vbCritical, "残念"
End If
ans = InputBox("話をすることの大好きな道具は?", "問題2")
If ans = "シャベル" Then
MsgBox "ぴんぽ~ん!", , "当たり!"
p = p + 1
Else
MsgBox "シャベルでした。", vbCritical, "残念"
End If
ans = InputBox("やぶれば、やぶるほど、ほめられるものは?", "問題3")
If ans = "記録" Then
MsgBox "ぴんぽ~ん!", , "当たり!"
p = p + 1
Else
MsgBox "記録でした。", vbCritical, "残念"
End If
x = 100 * p / 3
MsgBox "3問中、" & p & "問正解です。", , x & " POINT"
End Sub
この回答への補足
おもしろ~い!!ありがとうございます
ついででは 申し訳ないのですが
皆さんに お聞きしたいのですが
このダイアログボックスの大きさをもっとおおきくできますか?? おねがいします
No.2
- 回答日時:
なぞなぞならこんな感じでいかが?
回答を入力する方式にしてみました。
Sub quiz1()
MsgBox "[OK]ボタンを押すと、なぞなぞが始まります", , "クイズ"
ans = InputBox("自分が動物だと言っているような飲み物は?", "問題1")
If ans = "サイダー" Then
MsgBox "ぴんぽ~ん!", , "当たり!"
Else
MsgBox "サイダーでした。", vbCritical, "残念"
End If
ans = InputBox("話をすることの大好きな道具は?", "問題2")
If ans = "シャベル" Then
MsgBox "ぴんぽ~ん!", , "当たり!"
Else
MsgBox "シャベルでした。", vbCritical, "残念"
End If
ans = InputBox("やぶれば、やぶるほど、ほめられるものは?", "問題3")
If ans = "記録" Then
MsgBox "ぴんぽ~ん!", , "当たり!"
Else
MsgBox "記録でした。", vbCritical, "残念"
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAユーザーフォームでテキストボックスについて。 1 2022/05/31 12:23
- Visual Basic(VBA) Excel VBA ユーザーフォーム 複数のユーザーフォームの閉じ方。 2 2022/04/27 11:29
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Visual Basic(VBA) モードレスでユーザーフォームが開け(表示)ません。 4 2022/09/09 11:05
- Excel(エクセル) リストBOXの値を取得について 2 2022/05/18 17:51
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ペットボトルの飲み物を 毎日飲...
-
明日好きな女の子と遠出ドライ...
-
モルモン教に入信した場合の禁...
-
電車で飲み物を飲むことについ...
-
冷たい飲み物専用の水筒にぬる...
-
職場に私の動きや話し方を真似...
-
フランス料理、ワインの飲めな...
-
月の飲み物代が7000円位な...
-
オススメのトマトジュース。
-
50歳の女性を 好きになってしま...
-
写真館2
-
100金で買ったプラスチック製の...
-
ディズニーストアで購入したタ...
-
カルボナーラに合う飲み物は何...
-
たらこ×アクエリアス、なんで苦...
-
エクセルのマクロでゲームを作...
-
ポテチと合う飲み物は?
-
回し飲みとか、誰かの食べかけ...
-
クリスマスに合うノンアルコー...
-
友達に往復2時間位の距離の観...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
明日好きな女の子と遠出ドライ...
-
モルモン教に入信した場合の禁...
-
「満腹になる飲み物」ってあり...
-
職場に私の動きや話し方を真似...
-
電車で飲み物を飲むことについ...
-
車を運転してくれる彼に迎えに...
-
飲食店バイト、ドリンクを運ぶ...
-
『昨日は何処かに行きましたか...
-
マルちゃんのうどんとかそば♪
-
新幹線の中でジュースやビール...
-
冷たい飲み物専用の水筒にぬる...
-
たらこ×アクエリアス、なんで苦...
-
飲み物が無いと
-
温かい飲み物
-
写真館2
-
粉末ココアなど1杯分を入れる容器
-
中学生男子ですぐお腹が減りま...
-
空腹時に野菜とか炭酸水を飲ん...
-
甘い物は好きだけど、甘い飲み...
-
温かい水の言い方
おすすめ情報