Как предотвратить пустые или отсутствующие записи в ячейках в 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 for Excel диалоговое окно, как показано на скриншоте ниже.

---

Статьи по теме:

• Как предотвратить ввод данных в определенные ячейки листа в Excel?
• Как предотвратить выбор нескольких листов в Excel?
• Как предотвратить удаление определенного листа в Excel?
• Как предотвратить удаление определенного содержимого ячеек в Excel?