Як запобігти порожнім або відсутнім записам у клітинках 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 для Excel діалогове вікно, як показано нижче.
Статті по темі:
- Як запобігти введенню даних у певні комірки робочого аркуша в Excel?
- Як запобігти виділенню декількох аркушів у Excel?
- Як запобігти видаленню певного робочого аркуша в Excel?
- Як запобігти видаленню певного вмісту комірки в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!