Note: The other languages of the website are Google-translated. Back to English

Як дозволити лише від’ємні числа в Excel?

Як в Excel дозволити лише введені від’ємні числа? Ця стаття представить кілька корисних та швидких прийомів для вирішення цього завдання.

Дозволити лише від’ємні числа в Excel із перевіркою даних

Дозволити лише від’ємні числа в Excel із кодом VBA


стрілка синя права міхур Дозволити лише від’ємні числа в Excel із перевіркою даних

Як правило, в Перевірка достовірності даних Ця функція може вам допомогти, будь ласка, виконайте наступне:

1. Виділіть клітинки або стовпець, для яких потрібно дозволити вводити лише від’ємні числа, а потім клацніть дані > Перевірка достовірності даних > Перевірка достовірності даних, див. скріншот:

doc допускає лише мінус 1

2, в Перевірка достовірності даних у діалоговому вікні під настройки на вкладці, виконайте такі параметри:

(1.) У дозволяти розділ, вибрати Десятковий зі спадного списку;

(2.) У дані розділ, будь ласка, оберіть менше або дорівнює варіант;

(3.) Нарешті, введіть номер 0 в Максимальний текстове вікно.

doc допускає лише мінус 2

3. Потім натисніть OK, і тепер дозволяється вводити лише від’ємні числа і 0, якщо введено позитивне число, воно відобразить попереджувальне повідомлення, див. знімок екрана:

doc допускає лише мінус 3


стрілка синя права міхур Дозволити лише від’ємні числа в 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

doc допускає лише мінус 4

примітки: У наведеному вище коді, A1: A1000 - це клітинки, які потрібно ввести лише введені від’ємні числа.

2. Потім збережіть і закрийте цей код, поверніться назад до робочого аркуша, і тепер, коли ви введете деякі позитивні числа в клітинки, які ви вказали в коді, позитивні числа будуть автоматично перетворені в негативні.


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (4)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт! Чудова стаття. Одне запитання: якщо замість цілісної групи комірок я хочу застосувати це в різних частинах аркуша (наприклад, A1:A2 AND A6:A8), чи є спосіб зробити це за допомогою рішення VBA? Тобто: як замінити «A1:A1000» кількома наборами комірок?
GB
Цей коментар був мінімізований модератором на сайті
Привіт, ГБ,
Щоб застосувати цей код для кількох діапазонів, використовуйте такий код:

Примітка: при використанні цього коду спершу потрібно клацнути правою кнопкою миші вкладку аркуша, а потім у контекстному меню натиснути «Переглянути код», а потім скопіювати наступний код у модуль.

Приватний допоміжний робочий лист_Change(ByVal Target As Range)
'Оновлення Extendoffice
Const sRg As String = "A1:A10,B1:B10,C1:C20" 'Розділяти діапазони комами
Dim xRg As Range
Dim xSRg As Range
При помилці GoTo err_exit:
Application.EnableEvents = False
Встановити xSRg = діапазон (sRg)
Якщо Not Intersect(Target, xSRg) — це нічого, то
Для кожного xRg In Target
Якщо Left(xRg.Value, 1) <> "-" Тоді
xRg.Value = xRg.Value * -1
End If
Наступний xRg
End If
err_exit:
Application.EnableEvents = True
End Sub

Будь ласка, спробуйте, сподіваюся, це допоможе вам!
скайян
Цей коментар був мінімізований модератором на сайті
Супер, дякую! Дуже корисний.
GB
Цей коментар був мінімізований модератором на сайті
Як змінити автоматичне форматування за допомогою цього коду з валюти на бухгалтерський облік?
FC
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0  Персонажі
Рекомендовані місця