IsNumeric(値)
対象となる値が数値として評価できるかを調べます。 数値として評価できる場合は true を返します。 数値として評価できない場合は false を返します。
以下のフォームを作成し、ボタンのクリックイベントに下記のコードを貼り付けます。 '---------------------------------------------------------------------- ' 「チェック」ボタンクリックイベントのコード '---------------------------------------------------------------------- Private Sub コマンド0_Click() On Error GoTo Err_コマンド0_Click If IsNumeric(Me.テキスト1) Then MsgBox "数値です。" Else MsgBox "数値以外です。" End If Exit_コマンド0_Click: Exit Sub Err_コマンド0_Click: MsgBox Err.Description Resume Exit_コマンド0_Click End Sub
[動作確認] ①テキストボックスに「12345」を入力します。 ②「チェック」ボタンをクリックすると以下のメッセージが表示されます。 もし「abc123」のように数字以外を含めた値を入力して「チェック」ボタンをクリックすると
以下のメッセージが表示されます。