Как предотвратить пустые или пропущенные записи в ячейках 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?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек