Як дозволити лише від’ємні числа в 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. Потім збережіть і закрийте цей код, поверніться назад до робочого аркуша, і тепер, коли ви введете деякі позитивні числа в клітинки, які ви вказали в коді, позитивні числа будуть автоматично перетворені в негативні.

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...