如何在Excel中仅允许负数？

网友投稿 368 2024-01-07

如何在Excel中仅允许负数？

在Excel中，如何只允许输入负数？本文将介绍一些有用的快速技巧来帮助您解决此任务。

仅允许在带有数据验证的Excel中使用负数

仅允许在带有VBA代码的Excel中使用负数

仅允许在带有数据验证的Excel中使用负数

通常情况下， 数据验证 功能可以为您提供帮助，请执行以下操作：

1。选择要只允许输入负数的单元格或列，然后单击 Data > 数据验证 > 数据验证，请参见屏幕截图：

2。在 数据验证 对话框中的 个人设置 标签，请执行以下选项：

（1.）在让部分中，选择 十进制 从下拉列表中；

（2.）在 Data 部分，请选择 小于或等于 选项;

（3.）最后输入数字 0 到最大文本框。

3。然后点击 OK，现在只允许输入负数和0，如果输入正数，则会显示警告消息，请参见屏幕截图：

仅允许在带有VBA代码的Excel中使用负数

这是一个VBA代码，它也可以通过以下代码为您提供帮助，当您输入正数时，它将自动转换为负数，请执行以下操作：

1。右键单击要只允许使用负数的工作表选项卡，然后选择 查看代码 从上下文菜单中，弹出 Microsoft Visual Basic应用程序 窗口，请复制以下代码并将其粘贴到空白处模块:

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

Copy

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

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

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。

📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！