textに数値以外の入力を制限する方法は何ですか?

テキストボックスに数字のみを入力させたい場合は、KeyPressイベントを使用してユーザーが入力した文字が数字かどうかをチェックすることができます。以下に示すのはサンプルコードです:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
        KeyAscii = 0
    End If
End Sub

この例では、TextBox1はテキストボックスの名前です。KeyPressイベントは、ユーザーがキーボードのキーを押す際にトリガーされます。イベントハンドラでは、入力されたキャラクターが数字かどうか(IsNumeric関数を使用して)、およびBackspaceキー(ASCIIコード8)が押されているかどうかをチェックし、入力を許可するかどうかを確認します。数字でもBackspaceキーでもない場合は、KeyAsciiを0に設定して、ユーザーが数字以外のキャラクターを入力するのを防止します。

コメントを残す 0

Your email address will not be published. Required fields are marked *