如何在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 ExtendofficeConst sRg As String = "A1:A1000"Dim xRg As RangeOn Error GoTo err_exit:Application.EnableEvents = FalseIf Not Intersect(Target, Range(sRg)) Is Nothing ThenFor Each xRg In TargetIf Left(xRg.Value, 1) <> "-" ThenxRg.Value = xRg.Value * -1End IfNext xRgEnd Iferr_exit:Application.EnableEvents = TrueEnd SubCopy

備注：在上面的代碼中， A1：A1000 是您只想輸入負數輸入的單元格。

2. 然后保存并關閉此代碼，返回工作表，現在，當您在代碼中指定的單元格中輸入一些正數時，正數將自動轉換為負數。

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel