入力する文字型の制限の仕方 (ID:110856)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 数値以外を入れたときに型の不一致エラーとなるのでしょう。 二重のif文にしたほうがスマートですね。 Dim chk_flg as boolean chk_flg = False If IsNumeric(Text.Text) Then IfCint(Text.Text) >= 0 And Cint(Text.Text) <= 100 Then chk_flg = True End if End if こうゆうやり方もありますが(Text1とText2をFormに張り付けて実行) -- On Error GoTo Text1_Change_Err If Trim(Text1.Text) <> "" Then If IsNumeric(Text1.Text) And Text1.Text >= 0 And Text1.Text <= 100 Then Text2.Text = "True" Else Text2.Text = "False" End If End If Text1_Change_Err: If Err.Number = 13 Then Text2.Text = "False" End If