ExcelVBAでテキストボックスに入力制限をする方法

質問

Excelのプログラムで、フォームのテキストボックスに数値のみ入力許可したり、文字のみ入力許可したり、特定の文字のみ入力許可にするなど、入力制限を行う方法はどのようにすればよいでしょうか？

回答よろしくお願いします。

回答No.1

fumufumu_2006

簡単に済ますなら、
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
とかにすれば、数字だけ入力チェックできます。
必要に応じて、"0123456789"を変えるか、変数にして変えるとかで許す文字を指定できます、が・・・
IMEがオンの時に対応できないみたいです。

で、
Private Sub TextBox1_Change()
Dim i As Integer
Dim s As String
For i = 1 To Len(TextBox1.Text)
If InStr("0123456789", Mid(TextBox1.Text, i, 1)) > 0 Then
s = s & Mid(TextBox1.Text, i, 1)
End If
Next
TextBox1.Text = s
End Sub
と、変更があった時に全部チェックすれば、多分OKだと思います。

"0123456789"を変えれば、許可する文字が変わります。

もっとスマートな方法もあるかも知れません。

お礼

今更ですが、お礼の記載が大変遅くなり、申し訳ありません。

ありがとうございました。

補足

回答ありがとうございます。

なるほど。このようにして、数字のみを入力できるようにできるんですね。

ところで、Chr(KeyAscii)はキーが押されたときに返す番号のことでしょうか？

よろしくお願いします。