フォーム上に TextBox1、TextBox2 が配置されているとして、以下の内容でプログラムする。
フォーム上のテキストボックスには、テキスト、文字など何でも入力できます。しかし、数値以外のデータを入力しては困る場合があります。例えば、入力したデータを計算に使う場合は、テキストを入力するとエラーになります。
Option Explicit Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If IsNumeric(Me.TextBox1) Then Me.TextBox2 = "数値です。" Else Me.TextBox2 = "文字です。" End If End Sub |
TextBox1に数値を入力して Enter キーを押すと、TextBox2に「数値です。」と表示される。
ここでは、入力したデータが数値かどうかを判断する方法を紹介します。
TextBox1にテキストを入力して Enter キーを押すと、TextBox2に「文字です。」と表示される。
