VBA学習ツール無料配布！#48 テーマ:Select Case文で場合分けをしよう！

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("読み込み＆書き込みシート")
    Dim question As String: question = ws.Cells(6, 2).Value
    Dim answer As String: answer = ""
    Dim writeCell As Range: Set writeCell = ws.Cells(6, 4)
    ' 「読み込み＆書き込みシート」をアクティベートにする
    ws.Activate
    ' 質問の内容に応じて返答を設定
    Select Case question
        Case "あなたの出身地は？"
            answer = "東京都"
        Case "好きな食べ物は？"
            answer = "寿司"
        Case "あなたの職業は？"
            answer = "エンジニア"
    End Select
    ' 返答を記入
    writeCell.Value = answer
    ' 返答完了メッセージを表示
    MsgBox "返答記入完了！", vbInformation
End Sub