質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.48%

  • VBA

    1862questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1595questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

Excel VBA のe-learningに関する質問

解決済

回答 3

投稿

  • 評価
  • クリップ 1
  • VIEW 1,040

Windows7(32ビット) の環境でExcel2010 VBAを使って下記のような
e-learningの問題を作りたいと思っていますので、どなたかお分かりになる方、
ご教示よろしくお願いいたします。
もしくはExcel VBAでe-learning用に作られたプログラムで参考にできる
サイトがあれば教えてください。

例)
問題文の空欄に、選択肢から適切な英単語を選んで英文を完成させなさい。

(問題文)
An artifical intelligence program has defeated its human ( ) ( ) ( )
( ) ( ) in the ancient board game of "go".

(訳)
人口知能のプログラムが人間の対戦相手を、古来のボードゲームである囲碁の5番勝負において破りました。

■選択肢
in, a, opponent, series, five-game

ボタン:[採点]

1)利用者にマウスクリックで英単語を選択させる。
2)英文の空欄に選択された単語が入る。
3)採点ボタンを押すと正解を点数(1~5)で表示する。
このような動作を想定しています。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 3

checkベストアンサー

0

ご自分で「どこまではできた」けれど「どこで詰まった」という情報がまったくなく、「もしくはサイト紹介」の記載がなければある意味丸投げの質問でしたので、本来コード提示はすべきではないのでしょうが。。。

「括弧の穴埋め問題」という部分に興味がわいてしまいましたので、そこだけ簡単なものを作ってみました。

ユーザーフォームにラベル(lblQ)とボタン6個(cmdParts1~6)を配置している前提です。

Option Explicit

'問題番号
Dim piNo As Integer
'正答
Dim psTrue() As String
Dim piTrueCnt As Integer
'回答候補(6個まで)
Dim psParts(6) As String
Dim piPartsCnt As Integer
'回答入力
Dim piAns() As Integer
Dim piAnsCnt As Integer

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    '初期化
    Call Init
    '現在の問題を再表示
    Call LoadQ
End Sub

Private Sub UserForm_Initialize()
    '初期化
    Call Init
    '最初の問題を表示
    piNo = 1
    Call LoadQ

End Sub

Private Sub Init()
    '初期化
    lblQ.Caption = ""
    cmdParts1.Caption = ""
    cmdParts2.Caption = ""
    cmdParts3.Caption = ""
    cmdParts4.Caption = ""
    cmdParts5.Caption = ""
    cmdParts6.Caption = ""

    cmdParts1.Enabled = True
    cmdParts2.Enabled = True
    cmdParts3.Enabled = True
    cmdParts4.Enabled = True
    cmdParts5.Enabled = True
    cmdParts6.Enabled = True

    cmdParts1.Visible = False
    cmdParts2.Visible = False
    cmdParts3.Visible = False
    cmdParts4.Visible = False
    cmdParts5.Visible = False
    cmdParts6.Visible = False

    Dim i As Integer
    For i = 0 To UBound(psParts)
        psParts(i) = ""
    Next
    piPartsCnt = 0

End Sub

Private Sub NextQ()
    '次の問題を表示
    piNo = piNo + 1
    Call LoadQ
End Sub

Private Sub LoadQ()

    If Cells(piNo + 1, 1) = "" Then
        '問題番号がなければ終了
        MsgBox "終了です"
        End
    End If

    Call Init

    '正答取得 (例:"3,1,4,5,2" ⇒ 要素数5この配列を作成)
    psTrue = Split(Cells(piNo + 1, 3), ",")
    piTrueCnt = UBound(psTrue) + 1

    '入力回答の初期化
    ReDim piAns(piTrueCnt)
    Dim i As Integer
    For i = 0 To UBound(piAns)
        piAns(i) = 0
    Next
    piAnsCnt = 0

    '回答候補取得(最大6個)
    Dim iCol As Integer
    piPartsCnt = 0
    For iCol = 4 To 9
        If Cells(piNo + 1, iCol) = "" Then
            Exit For
        End If
        psParts(piPartsCnt) = Cells(piNo + 1, iCol)
        piPartsCnt = piPartsCnt + 1
    Next

    '問題文表示
    Call DispQ

    'ボタンに回答候補を表示
    cmdParts1.Caption = psParts(0)
    cmdParts2.Caption = psParts(1)
    cmdParts3.Caption = psParts(2)
    cmdParts4.Caption = psParts(3)
    cmdParts5.Caption = psParts(4)
    cmdParts6.Caption = psParts(5)

    '使うボタンだけ表示
    If piPartsCnt >= 1 Then cmdParts1.Visible = True
    If piPartsCnt >= 2 Then cmdParts2.Visible = True
    If piPartsCnt >= 3 Then cmdParts3.Visible = True
    If piPartsCnt >= 4 Then cmdParts4.Visible = True
    If piPartsCnt >= 5 Then cmdParts5.Visible = True
    If piPartsCnt >= 6 Then cmdParts6.Visible = True

End Sub

Private Sub DispQ()
    '問題文を画面に表示
    Dim strText As String
    Dim i As Integer
    Dim strAns As String
    '問題文取得
    strText = Cells(piNo + 1, 2)    '例:「あい{1}うえ{2}{3}おかき」⇒「あい()うえ()()おかき」
    For i = 1 To piTrueCnt
        strAns = ""
        '回答入力済みの場合は括弧内に記入
        If piAns(i) > 0 Then strAns = psParts(piAns(i) - 1)
        strText = Replace(strText, "{" & CStr(i) & "}", "( " & strAns & " )")
    Next

    lblQ.Caption = strText

End Sub

Private Sub cmdParts1_Click()
    Call subAnsAdd(1)
    cmdParts1.Enabled = False
End Sub
Private Sub cmdParts2_Click()
    Call subAnsAdd(2)
    cmdParts2.Enabled = False
End Sub
Private Sub cmdParts3_Click()
    Call subAnsAdd(3)
    cmdParts3.Enabled = False
End Sub
Private Sub cmdParts4_Click()
    Call subAnsAdd(4)
    cmdParts4.Enabled = False
End Sub
Private Sub cmdParts5_Click()
    Call subAnsAdd(5)
    cmdParts5.Enabled = False
End Sub
Private Sub cmdParts6_Click()
    Call subAnsAdd(6)
    cmdParts6.Enabled = False
End Sub

Private Sub subAnsAdd(iNo As Integer)
    '入力した回答候補番号を格納
    piAnsCnt = piAnsCnt + 1
    piAns(piAnsCnt) = iNo
    '画面再表示
    Call DispQ
End Sub

問題文はシートから取得するようになっています。
どう記載すれば取得できるのかはコード上にヒントも書いてありますので、頑張って解析してみてください。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/03/31 16:31

    コードまで記入して頂きありがとうございました。初めての投稿のため要領がわからず丸投げとなったことをお詫びします。現在、e-learningを問題の出し方に応じてプログラムをいくつか検討しています。質問を具体的に出すことができるようになりましたらまた投稿させて頂きます。

    キャンセル

0

4択問題

探したら出てきましたが、イメージはこんな感じでしょうか。
(ソース自体はあまり参考にならなさそうですが・・)

簡単にこんな仕様だと思います。
・問題データはシートで保持する
・問題データには答え、選択肢が紐づく
・シートにより、問題の種類が異なり、ユーザは問題の種類を選ぶことができる

VBA クイズ
VBA 4択

等で検索するといろいろ出てくると思います。

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/03/31 16:32

    初めての投稿のため要領がわからず丸投げとなったことをお詫びします。現在、e-learningを問題の出し方に応じてプログラムをいくつか検討しています。質問を具体的に出すことができるようになりましたらまた投稿させて頂きます。

    キャンセル

0

全画面表示にしてやると、見た目が良くなると
思います。

http://www.vba-ie.net/sp/operation/windowsfullscreen.html

また、触らないで欲しいところは
保護をかけておくとさらににe-learingみたいになってきます。

http://www.becoolusers.com/excel/lock-cell.html

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/03/31 16:31

    めての投稿のため要領がわからず丸投げとなったことをお詫びします。現在、e-learningを問題の出し方に応じてプログラムをいくつか検討しています。質問を具体的に出すことができるようになりましたらまた投稿させて頂きます。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.48%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • VBA

    1862questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1595questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。