投稿日 | : 2004/04/08(Thu) 17:10 |
投稿者 | : 放浪者 |
Eメール | : |
URL | : |
タイトル | : Re^5: Textboxを使用した入力チェックの手段 |
>
> If p > 0 Then
> '整数部チェック
> If Len(Mid(Trim(strChar), 1, p - 1)) > 9 Then
> MsgBox "整数部は9桁以内!!", vbExclamation, "入力エラー"
> Exit Sub
> End If
> '小数部チェック
> If Len(Mid(Trim(strChar), p + 1, l - p)) > 2 Then
> MsgBox "小数部は2桁以内!!", vbExclamation, "入力エラー"
> Exit Sub
> End If
> Else
> '整数部チェック
> If Len(Trim(strChar)) > 9 Then
> MsgBox "整数部は9桁以内!!", vbExclamation, "入力エラー"
> Exit Sub
> End If
> End If
>
この部分を、Select Case で 整理すると見やすくなりそうですね・・・
コードは載せませんけど m(__)m