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