Excel VBA ベーシック 模擬問題 模擬試験

Excel VBA ベーシック 模擬問題 第24問  8章-4

次のコードは実行すると指定の値が数値かどうかを判定し、メッセージを表示するマクロである。
空欄に入る適切な語句を解答しなさい。

Sub Exam1()

 Dim N As Variant

  N = Range("A1").Value

  If 【 ①  】(N) = True Then

    MsgBox N & "は数値です"

   Else

   MsgBox N & "は数値以外の値です"

  End If

End Sub

正解

【 ① 】isnumeric

解説

【8章 関数】

指定した値が数値だったかどうかを判定するにはIsNumeric関数を使用します。

値が数値のときは True、値が数値以外の時はFalseを返します。

【IsNumeric関数】

…指定した値が数値かどうかを判定する関数です。

値が数値のときは True、値が数値以外の時はFalseを返します。

構文

IsNumeric(判定する値)

*なお値に("123")のように数値を文字列としてダブルクォーテーションで囲った場合は、 VBAの内部で数値に変換するため Trueを返します。

【コード解説】

Sub Exam1()

 Dim N As Variant

 N = Range("A1").Value

 If IsNumeric (N) = True Then

’Ifステートメント条件分岐、もしNが数値の時は「True」を返し次の処理を行う。

   MsgBox N & "は数値です"

 Else

Nが数値以外時は「False」を返し次の処理を行う。

  MsgBox N & "は数値以外の値です"

 End If

End Sub