Як запобігти порожнім або відсутнім записам у клітинках Excel?
Припустимо, ви створюєте таблицю в діапазоні A1: B10 робочого аркуша і вам потрібно запобігти появі порожніх комірок у цьому діапазоні таблиць, як цього досягти? У цій статті представлено метод автоматичного спливаючого вікна із запитом, якщо порожній запис з’являється в певному діапазоні таблиці під час редагування. Будь ласка, дотримуйтесь методу покроково в статті.
Запобігання порожнім або відсутнім записам у клітинках за допомогою коду VBA
Запобігання порожнім або відсутнім записам у клітинках за допомогою коду VBA
A1: B10 - це діапазон, де вам потрібно створити таблицю всередині, а A1, B1 містять заголовки таблиці, як показано нижче. Будь ласка, виконайте наступні дії, щоб запобігти появі порожніх або відсутніх записів у діапазоні A2: B10 під час створення таблиці.
1. На аркуші, в якому ви не дозволяєте пусті записи в певному діапазоні, клацніть правою кнопкою миші вкладку аркуша, а потім клацніть Переглянути код з меню, що клацне правою кнопкою миші.
2 В Microsoft Visual Basic для додатків вікно, скопіюйте та вставте наведений нижче код VBA у вікно коду. Дивіться знімок екрана:
Код VBA: запобігання порожнім або відсутнім записам у діапазоні комірок
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Dim isect As Range
On Error Resume Next
Set isect = Application.Intersect(Target, Range("A2:B10"))
If Not (isect Is Nothing) Then
If Target.Column = 1 Then
If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
Target.ClearContents
End If
Else
If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
Target.ClearContents
End If
End If
End If
End Sub
примітки: У коді VBA A2: B10 - це діапазон комірок, в яких ви не хочете залишати порожню комірку всередині. Будь ласка, змініть діапазон, як вам потрібно.
Відтепер, при пропуску порожньої комірки та безпосередньому заповненні наступної комірки у вказаному діапазоні ви отримаєте Kutools для Excel діалогове вікно, як показано нижче.
Статті по темі:
- Як запобігти введенню даних у певні комірки робочого аркуша в Excel?
- Як запобігти виділенню декількох аркушів у Excel?
- Як запобігти видаленню певного робочого аркуша в Excel?
- Як запобігти видаленню певного вмісту комірки в Excel?
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

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