小数点（ピリオド）を入力規制するには？ (ID:122588)

名前

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

本文 自己解決されているようですが、ちょっと気になったのでひとつ >Private Sub Text1_KeyPress(KeyAscii As Integer) > > Select Case KeyAscii > Case vbKeyA > If KeyAscii = vbKeyA Then > KeyAscii = vbKey0 > Else > KeyAscii = 0 > End If Select Case でKeyAscii がvbKeyAかは聞いているので Caseの中の if文は 聞かずにkeyAscii = vbkey0でいいかと思います。