小数の入力制限 (ID:106991)

名前

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

本文 数字以外の入力を禁止するのであれば、 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub でどうですか？ ただし、BackSpaceキーだけは入力できるようにしています。 「KeyAscii <> 8 And」この部分を取ってもらえば、数字のみです。