EXCEL/VBA

IF問題 1

IF問題 1

Q.VBAのプロシージャSimpleIfExample を完成させてください。このプロシージャの目的は、特定の数値が5より大きい場合に “Number is greater than 5” をVBAのデバッグウィンドウに出力することです。ただし、この数値は変数 number に格納されており、初期値は10とします。

Sub SimpleIfExample()
    Dim number As Integer
    number = 10

    ' ここにコードを記述してください

End Sub
答え

Sub SimpleIfExample()
    Dim number As Integer
    number = 10

    ' ここにコードを記述してください

End Sub

IF問題 2

Q.VBAのプロシージャ IfElseExample2 を完成させてください。
このプロシージャの目的は、特定の数値が5より大きいかどうかに応じてVBAのデバッグウィンドウに異なるメッセージを出力することです。数値が5より大きい場合は “Number is greater than 5″、それ以外の場合は “Number is equal to or less than 5” を出力します。この数値は変数 number に格納されており、初期値は3とします。

Sub IfElseExample2()
    Dim number As Integer
    number = 3

    ' ここにコードを記述してください

End Sub
答え

Sub IfElseExample2()

    Dim number As Integer
    number = 3

    If number > 5 Then
        Debug.Print "Number is greater than 5"
    Else
        Debug.Print "Number is equal to or less than 5"
    End If

End Sub

IF問題 3

Q.VBAのプロシージャElseIfExample3 を完成させてください。このプロシージャの目的は、特定の数値に基づいて異なるメッセージをメッセージボックスに表示することです。

  • 数値が15より大きい場合は “Number is greater than 15”
  • 数値が10より大きく、15以下の場合は “Number is greater than 10 but less than or equal to 15”
  • それ以外の場合(つまり、数値が10以下の場合)は “Number is equal to or less than 10”

この数値は変数 number に格納されており、初期値は10とします。

Sub ElseIfExample3()
    Dim number As Integer
    number = 10

    ' ここにコードを記述してください

End Sub
答え

Sub ElseIfExample3()

    Dim number As Integer
    number = 10

    If number > 15 Then
        Debug.Print "Number is greater than 15"
    ElseIf number > 10 Then
        Debug.Print "Number is greater than 10 but less than or equal to 15"
    Else
        Debug.Print "Number is equal to or less than 10"
    End If

End Sub