Как предотвратить пустые или отсутствующие записи в ячейках в 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?