Как предотвратить пустые или пропущенные записи в ячейках Excel?

Если вы создаете таблицу в диапазоне A1:B10 листа и хотите убедиться, что в этом диапазоне не останется пустых ячеек, вы можете реализовать решение, которое автоматически отображает подсказку при обнаружении пустой записи во время редактирования. Следуйте этому пошаговому руководству, чтобы предотвратить пустые или пропущенные записи в указанном диапазоне таблицы.

Предотвращение пустых или пропущенных записей в ячейках с помощью кода VBA

Предотвращение пустых или пропущенных записей в ячейках с помощью кода VBA

Диапазон A1:B10 предназначен для вашей таблицы, где A1 и B1 служат заголовками таблицы, как показано на скриншоте ниже. Следуйте указанным шагам, чтобы предотвратить пустые или пропущенные записи в диапазоне A2:B10 при заполнении таблицы.

1. На листе, где вы хотите предотвратить пустые записи в определенном диапазоне, щелкните правой кнопкой мыши вкладку листа, а затем выберите Изменить код из контекстного меню.

2. В окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код 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?