| 投稿日 | ： 2004/04/08(Thu) 16:43 |
| 投稿者 | ： 黒影 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^4: Textboxを使用した入力チェックの手段 |
> 1)Instr で小数点の位置を見つける
> 2)Mid と Len で整数部と小数部をそれぞれ切り出して桁数判定
>
>☆この方法だと、小数点が複数含まれていないかのチェックも必要です
これだけでは、アドバイスとしては不親切(不適切)ですね．．．
自分でやってみたら色々とやらなきゃいけない事が．．．(^^;)
>もっと勉強が必要と思いますので今後スキルアップに努めます。
を信じて．．．説明下手なのでコード載せちゃいます。
Private Sub Command1_Click()
Dim l As Integer
Dim p As Integer
Dim strChar As String
'数値チェック
If Not IsNumeric(Text1.Text) Then
MsgBox "正しい値を入力して下さい。", vbExclamation, "入力エラー"
Exit Sub
End If
strChar = Format(Text1.Text, "#.#")
l = Len(strChar)
'小数点位置取得
p = InStr(strChar, ".")
If p > 0 Then
'整数部チェック
If Len(Mid(Trim(strChar), 1, p - 1)) > 9 Then
MsgBox "整数部は９桁以内！！", vbExclamation, "入力エラー"
Exit Sub
End If
'小数部チェック
If Len(Mid(Trim(strChar), p + 1, l - p)) > 2 Then
MsgBox "小数部は２桁以内！！", vbExclamation, "入力エラー"
Exit Sub
End If
Else
'整数部チェック
If Len(Trim(strChar)) > 9 Then
MsgBox "整数部は９桁以内！！", vbExclamation, "入力エラー"
Exit Sub
End If
End If
Label1.Caption = Format(strChar, "#.00")
End Sub