如何在 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. 然後保存並關閉此程式碼，返回工作表，現在，當您向程式碼中指定的單元格輸入一些正數時，這些正數將自動轉換為負數。