Як запобігти порожнім або відсутнім записам у клітинках 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?