Как разрешить в Excel только отрицательные числа?
Как в Excel разрешить ввод только отрицательных чисел? Эта статья познакомит вас с некоторыми полезными и быстрыми приемами для решения этой задачи.
Разрешить только отрицательные числа в Excel с проверкой данных
Разрешить только отрицательные числа в Excel с кодом VBA
Разрешить только отрицательные числа в Excel с проверкой данных
Как правило, проверка достоверности данных функция может помочь вам, пожалуйста, сделайте следующее:
1. Выделите ячейки или столбцы, в которых нужно разрешить ввод только отрицательных чисел, а затем щелкните Данные > проверка достоверности данных > проверка достоверности данных, см. снимок экрана:
2. В проверка достоверности данных диалоговое окно под Настройки Вкладка, выполните следующие действия:
(1.) В Разрешить раздел, выбрать Десятичная дробь из выпадающего списка;
(2.) В Данные раздел, пожалуйста, выберите меньше или равно вариант;
(3.) Наконец, введите номер 0 в максимальная текстовое окно.
3. Затем нажмите OK, и теперь можно вводить только отрицательные числа и 0, если введено положительное число, отобразится предупреждающее сообщение, см. снимок экрана:
Разрешить только отрицательные числа в Excel с кодом VBA
Вот код 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
Внимание: В приведенном выше коде A1: A1000 - это ячейки, в которые вы хотите вводить только отрицательные числа.
2. Затем сохраните и закройте этот код, вернитесь на рабочий лист, и теперь, когда вы вводите некоторые положительные числа в ячейки, указанные в коде, положительные числа будут автоматически преобразованы в отрицательные.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!