もどる

 数値か否か(関数:IsNumeric) その1
HOMEへ
PRODUCTSへ
LEARNING
LINKへ
LOGO
HeadLine
ORDER FORMへ
Image画像
MailTo:

フォーム上に 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に「文字です。」と表示される。

もどる


VBA World
E-Mail:info@vba-world.com