EXCEL vba在哪里填加控件，控件的事件在哪里，打开页面就赋值

Textbox只能输入数字

在网上一查就是好多，看来这个问题，嘿~不懂的人还有点多哦。现在我懂了，有进步了哦。

Private SubTextBox1_Change()
   If TextBox1.Text = "" Then Exit Sub
   With TextBox1
       If IsNumeric(.Text) = False Then
           If .Text = "." Then
               .Text = "0."
           Else
               MsgBox "请输入数字"
               .SetFocus
               .SelStart =Len(.Text) - 1
               .SelLength = 1
           End If
       End If
   End With
End Sub

ALT+F11打开VBA编辑器，贴进去就好，哈哈~