Як запобігти порожнім або відсутнім записам у клітинках Excel?

Припустимо, ви створюєте таблицю в діапазоні A1: B10 робочого аркуша і вам потрібно запобігти появі порожніх комірок у цьому діапазоні таблиць, як цього досягти? У цій статті представлено метод автоматичного спливаючого вікна із запитом, якщо порожній запис з’являється в певному діапазоні таблиці під час редагування. Будь ласка, дотримуйтесь методу покроково в статті.

Запобігання порожнім або відсутнім записам у клітинках за допомогою коду VBA

Запобігання порожнім або відсутнім записам у клітинках за допомогою коду VBA

Дивовижний! Використання ефективних вкладок в Excel, як Chrome, Firefox та Safari!

Заощаджуйте 50% свого часу та зменшуйте тисячі клацань миші щодня!

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-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.

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

---

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

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

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