テキストボックス内の０を非表示にするには？ (ID:109130)

名前

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

本文 For i = 0 To 9 '式が数値として評価できるかどうか調べます。 If IsNumeric(Text1(i).Text) Then Text1_(i) = CInt(Text1(i).Text) ElseIf Text1(i).Text <> "" Then '数値以外ならメッセージボックスを表示します。 Text1(i).Text = MsgBox("数字のみの入力", vbOKOnly) Text1(i).SetFocus Text1(i) = "" Exit Sub End If Next i ソースはこんな感じです。