如何在文本框中只允许输入数字？

在 Excel 中，我们可以使用数据有效性功能来限制单元格只能输入数字，但有时我希望在一个文本框中也只能输入数字，就像在单元格中一样。那么如何在 Excel 的文本框中只接受数字呢？

使用选择性粘贴功能将一个区域的单元格除以某个数字

使用选择性粘贴功能将一个区域的单元格除以某个数字

以下 VBA 代码可以帮助您仅在文本框中输入数字、小数点（.）和负号，请按照以下步骤操作：

1. 点击 开发工具 > 插入 > 文本框（ActiveX 控件）创建一个文本框，然后根据需要绘制一个文本框，参见截图：

2. 然后右键单击该文本框，并从上下文菜单中选择 查看代码 打开 Microsoft Visual Basic for Applications 窗口，接着用以下 VBA 代码替换原始代码并粘贴到空白模块中：

VBA 代码：仅允许在文本框中输入数字：

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
        If KeyAscii = Asc("-") Then
            If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
               Me.TextBox1.SelStart > 0 Then KeyAscii = 0
        ElseIf KeyAscii = Asc(".") Then
            If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
        Else
            KeyAscii = 0
        End If
    End If
End Sub

3. 然后保存并关闭代码窗口，并退出 设计模式，现在，只有数字、小数点符号和负号可以输入到文本框中，参见截图：

相关文章：

如何在文本框中应用拼写检查？

如何基于值更改 Excel 中的文本框颜色？

如何在文本框中插入图片？

如何在文本框中设置默认值？