Private Sub UserForm_Initialize()
'①ユーザーフォームが読み込まれた時点でTextBoxのIMEModeを指定
TextBox1.IMEMode = 3
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'②キーが押されたときに発生するイベントKeyPressを使用
'Chr関数で押されたキーを判定
If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
KeyAscii = 0
End If
End Sub
Private Sub TextBox1_Change()
'③ペーストなどで文字列が入力された場合はTextBoxの値を空欄にする
If IsNumeric(TextBox1.Text) = False Then
TextBox1.Text = ""
Exit Sub
End If
End Sub
コメントを残す