タイトルの通りです office2002ですが visual vasic editorに入力しています。
Sub quiz1()
MsgBox "[OK]ボタンを押すと、なぞなぞが始まります"
MsgBox "自分が動物だと言っているような飲み物は?"
MsgBox "サイダー"
MsgBox "話をすることの大好きな道具は?"
MsgBox "シャベル"
MsgBox "やぶれば、やぶるほど、ほめられるものは?"
MsgBox "記録"
End Sub
と入力しましたが メッセージボックスのタイトル部分が Microsoft Excelとなっていますが 例えば "問題1"とかに変えたいのですが
どうすればいいのでしょうか お願いします
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.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.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ランキング
-
「満腹になる飲み物」ってあり...
-
モルモン教に入信した場合の禁...
-
明日好きな女の子と遠出ドライ...
-
飲食店バイト、ドリンクを運ぶ...
-
粉末ココアなど1杯分を入れる容器
-
ペットボトルなどで飲み物を飲...
-
650mlで268円の飲み物と、850ml...
-
職場に私の動きや話し方を真似...
-
飲み物を飲み込むときに[ゴク...
-
中学生男子ですぐお腹が減りま...
-
「飲み物」「ドリンク」「ソフ...
-
給料日まで約3万円…
-
ニューハーフパブ「Bettyのマヨ...
-
腹持ちのいい飲み物
-
暖かくて甘い美味しい飲み物で...
-
車を運転してくれる彼に迎えに...
-
甘い物は好きだけど、甘い飲み...
-
パンに一番合う飲み物は何ですか?
-
飲食店で冬は暖かいお茶が出て...
-
社内盗難で犯人にされそう
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
モルモン教に入信した場合の禁...
-
瓶(びん)に限る飲み物
-
明日好きな女の子と遠出ドライ...
-
車を運転してくれる彼に迎えに...
-
写真館2
-
「満腹になる飲み物」ってあり...
-
粉末ココアなど1杯分を入れる容器
-
650mlで268円の飲み物と、850ml...
-
飲食店バイト、ドリンクを運ぶ...
-
スタバは高いのに
-
新幹線の中でジュースやビール...
-
職場に私の動きや話し方を真似...
-
ポテチと合う飲み物は?
-
食事のそばにドリンクがあるの...
-
バイト中の飲み物について 働く...
-
居酒屋に友達と言った時のこと...
-
謝恩会の飲み物について
-
たらこ×アクエリアス、なんで苦...
-
カルボナーラに合う飲み物は何...
-
レストランで、飲み物絶対頼ま...
おすすめ情報