White Tiger

Microsoft Excel VBA - ユーザーフォームのテキストボックスで、数値以外のデータが入力できないようにする方法

◆概要

このページは、Excelのユーザーフォームのテキストボックスで、数値以外のデータが入力できないようにする方法について記載しています。


ユーザーフォームに表示したテキストボックスに、数値以外の文字などを入力できないようにするには、テキストボックスのKeyPressイベントを利用します。

◆Sample code

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
          KeyAscii = 0
          Beep
     End If

End Sub

Link