如何在Excel中应用数据验证以仅允许输入数字？

为了在一系列单元格中只允许输入数字，本教程提供了一些方法来帮助您轻松实现。

在Excel中应用数据验证以仅允许输入数字
应用VBA代码在Excel中仅允许输入数字
使用一个神奇的工具轻松限制单元格范围仅允许输入数字
更多数据验证教程...

在Excel中应用数据验证以仅允许输入数字

您可以使用带有自定义公式的有效性验证功能，以在Excel的一系列单元格中仅允许输入数字。请按照以下步骤操作：

1. 选择仅允许输入数字的单元格区域。

2. 点击 数据 > 数据验证 > 数据验证。参见截图：

3. 在“数据验证”对话框中，请配置以下操作：

• 3.1 从“允许”下拉列表中选择“自定义”；
• 3.2 将以下公式复制到“公式”框中；
• =ISNUMBER(A2)
• 3.3 点击“确定”按钮。

注意：在公式中，A2是所选区域的第一个单元格。

从现在开始，只能在指定区域内输入数字。

应用VBA代码在Excel中仅允许输入数字

此外，您可以应用以下VBA代码，在一系列单元格中仅允许输入数字。

1. 在您要限制输入的工作表中，右键单击工作表标签并从上下文菜单中点击“查看代码”。

2. 在“Microsoft Visual Basic for Applications”窗口中，将以下VBA代码复制到代码窗口中。

VBA代码：在一系列单元格中仅允许输入数字

Public mBol As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20191120
Dim xStrV As String
Dim xRg As Range
Dim xIRg As Range
Dim xFNum As Integer
On Error Resume Next
If Not mBol Then
Application.ScreenUpdating = False
Set xRg = Range("A2:A12")
If Not Intersect(xRg, Target) Is Nothing Then
    xStrV = Target.Value
    If Not IsNumeric(xStrV) Then
         mBol = True
        Target.Value = vbNullString
        MsgBox "Only numbers are allowed in this range", , "Kutools"
    End If
Application.ScreenUpdating = True
End If
Else
  mBol = False
End If
End Sub

注意：在代码中，A2:A12是您仅允许输入数字的单元格区域。请根据需要进行更改。

3. 按 Alt + Q 键关闭“Microsoft Visual Basic for Applications”窗口。

从现在开始，只能在指定区域内输入数字。

使用一个神奇的工具轻松限制单元格范围仅允许输入数字

如果您想尝试一种更简单的方法，这里推荐您使用Kutools for Excel的“限制输入”功能。

1. 选择仅允许输入数字的单元格区域，点击 Kutools > 限制输入 > 限制输入。

2. 在“限制输入”对话框中，请：

• 2.1 勾选“仅允许输入指定字符”选项；
• 2.2 在文本框中输入 0123456789；
• 2.3 点击“确定”按钮。参见截图：

3. 在弹出的Kutools for Excel对话框中点击“确定”继续。

注意：如果所选范围内已有数据验证，点击“是”将删除它们，或者您可以点击“否”取消操作。

4. 另一个Kutools for Excel对话框弹出，提醒您哪些数字被允许输入到指定区域。点击“确定”完成所有设置。

从现在开始，这些指定区域只允许输入数字。

相关文章