如何在Excel中只允许输入负数？

在Excel中，如何只允许输入负数呢？本文将为您介绍一些实用且快速的技巧来解决此问题。

使用数据有效性在Excel中只允许输入负数

使用VBA代码在Excel中只允许输入负数

使用数据有效性在Excel中只允许输入负数

通常，数据有效性功能可以帮助您，请按照以下步骤操作：

1. 选择要只允许输入负数的单元格或列，然后点击 数据 > 数据有效性 > 数据有效性，见截图：

2. 在数据有效性对话框中，在设置选项卡下，进行以下设置：

(1.) 在允许部分，从下拉列表中选择小数；

(2.) 在 数据部分，请选择 小于或等于选项；

(3.) 最后，在最大值文本框中输入数字 0。

3. 然后点击确定，现在，只允许输入负数和0，如果输入正数，将显示警告消息，见截图：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

使用VBA代码在Excel中只允许输入负数

这里有一个VBA代码也可以帮助您，使用以下代码时，当您输入正数时，它会自动转换为负数，请按以下步骤操作：

1. 右键单击要只允许输入负数的工作表标签，并从上下文菜单中选择查看代码，在弹出的Microsoft Visual Basic for Applications窗口中，请将以下代码复制并粘贴到空白模块中：

VBA代码：在工作表中只允许输入负数：

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Const sRg As String = "A1:A1000"
    Dim xRg As Range
    On Error GoTo err_exit:
    Application.EnableEvents = False
    If Not Intersect(Target, Range(sRg)) Is Nothing Then
        For Each xRg In Target
            If Left(xRg.Value, 1) <> "-" Then
                xRg.Value = xRg.Value * -1
            End If
        Next xRg
    End If
err_exit:
    Application.EnableEvents = True
End Sub

注意：在上述代码中，A1:A1000是您只想输入负数的单元格。

2. 然后保存并关闭此代码，返回工作表，现在，当您在代码中指定的单元格中输入一些正数时，这些正数将自动转换为负数。