テキストボックスの中に小文字のアスタリスクがあるのを判別する方法

質問

入力したテキストボックスの中に
小文字のアスタリスク（数は不定）が
あるかどうかを判定するには、
どのようにすれば良いでしょうか？

回答No.2

imogasi · ベストアンサー

FormにTextboxを２つ貼り付け、
Private Sub Text1_LostFocus()
MsgBox Text1.Text
p = InStr(Text1.Text, "*")
If p = o Then
MsgBox "アステリスクがありません"
Else
MsgBox "アステリスクがあります"
End If
End Sub
Text1に文字を入れ、Text2にFocusを移すと
*があれば「アステリスクがあります」とメッセージを出します。
VBAならTextBox1がText1になります。

お礼

＞回答者の方へ

ありがとうございました。
解決出来ました！

回答No.1

bugmaru

InStr()関数を使えば特定の文字、文字列が有るか無いか判定できます。