要让用户在文本框中只能输入数字,可以使用KeyPress事件来检测用户输入的字符是否为数字。以下是一个示例代码:

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

在此示例中,TextBox1为文本框的名称。KeyPress事件会在用户按下键盘上的按键时触发。在事件处理程序中,通过检查输入的字符是否为数字(使用IsNumeric函数),以及Backspace键(ASCII码为8)是否按下,来确定是否允许输入。如果不是数字且不是Backspace键,则将KeyAscii设为0,从而阻止用户输入非数字字符。