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

解決

わかち 2003-08-30 06:09:35 No: 108346

お世話になります。
画面で金額入力するところがあるのですが、ロストフォーカス時、
Format関数にて"###,###,###,###"に変更しています。(３桁区切り)
桁数は１桁から１２桁までです。
でその後、like演算子にて"###,###,###,###"かどうかをチェックしています。

If Text1.Text Like "###,###,###,###" = False Then
MsgBox "金額の入力方法が正しくありません"
end if

としているのですが、3桁や4桁など桁数が違うとき、Falseが返ってしまいます。
1,234や123だとtrue,1234のように区切られてなければfalseというような
チェックにするにはどのようにすればよいでしょうか。

よねＫＥＮ 2003-08-30 11:00:17 No: 108347

提示の方法を活かす形なら、下記のような方法でどうでしょうか。

Dim length As Long
length = Len(Text1.Text)
If Text1.Text Like Right("###,###,###,###", length) = False Then
MsgBox "金額の入力方法が正しくありません"
end if

わかち 2003-08-31 21:35:39 No: 108348

お世話になります。
よねKENさん、ありがとうございます。
おかげさまで、無事解決することができました。
本当にありがとうございました。