ActiveX文本框Sheet1

如何解决ActiveX文本框Sheet1

我在UserForm中运行的宏存在问题 我也想将其应用于textBox活动控件中的sheet1。我有一个问题，如何更改代码以在sheat1中工作？

Option Explicit

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

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value = "" Then
Exit Sub
End If
   If Val(TextBox1.Text) < 100 Or Val(TextBox1.Text) > 999 Then
      MsgBox "Error"
      Cancel = True
   End If
End Sub

Private Sub UserForm_Click()

End Sub