テキストから含まれている文字をチェックするには？ (ID:78794)

名前

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

本文 質問がわかりにくいのですが、IMEオフのテキストボックスですね？ 数字だけの場合OKと表示されるようにしてみます。 手っ取り早く済ますには If Trim(Str(Val(Text1.Text))) = Text1.Text Then MsgBox "OK" End If で大丈夫そうです。この場合小数点も大丈夫になってしまいますが。 完璧にやるなら、1文字ずつチェックします。 Dim i As Long Dim Flag As Boolean Dim temp As String temp = Text1.Text '文字列をキャッシュする Flag = False For i = 1 To Len(temp) Flag = (InStr(1, "0123456789", Mid$(temp, i, 1)) = 0) If Flag Then Exit For Next i If Flag Then MsgBox "NG" Else MsgBox "OK" End If Like演算子も思いましたが、正規表現とちょっと違う気がするのでわかりません。