Как разрешить ввод только отрицательных чисел в Excel?

В Excel, как разрешить ввод только отрицательных чисел? В этой статье мы представим несколько полезных и быстрых приемов, которые помогут вам решить эту задачу.

Разрешить только отрицательные числа в Excel с помощью проверки данных

Разрешить только отрицательные числа в Excel с помощью кода VBA

Разрешить только отрицательные числа в Excel с помощью проверки данных

Обычно функция проверки данных может помочь вам, пожалуйста, выполните следующие действия:

1. Выберите ячейки или столбец, куда вы хотите разрешить ввод только отрицательных чисел, а затем нажмите Данные > Проверка данных > Проверка данных, см. скриншот:

2. В диалоговом окне Проверка данных на вкладке Параметры выполните следующие действия:

(1.) В разделе Разрешить выберите Десятичное число из выпадающего списка;

(2.) В разделе Данные выберите опцию Меньше или равно;

(3.) Наконец, введите число 0 в текстовое поле Максимум.

3. Затем нажмите ОК, и теперь можно вводить только отрицательные числа и 0. Если будет введено положительное число, появится предупреждающее сообщение, см. скриншот:

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

Разрешить только отрицательные числа в Excel с помощью кода VBA

Вот код 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. Затем сохраните и закройте этот код, вернитесь в лист, и теперь, когда вы вводите положительные числа в указанные вами ячейки, положительные числа будут автоматически преобразованы в отрицательные.