like演算子を使って金額入力項目形式のチェックをするには？ (ID:108347)

名前

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

本文 提示の方法を活かす形なら、下記のような方法でどうでしょうか。 Dim length As Long length = Len(Text1.Text) If Text1.Text Like Right("###,###,###,###", length) = False Then MsgBox "金額の入力方法が正しくありません" end if