Как разрешить ввод только даты в определённых ячейках Excel?
Ограничение определённых ячеек для ввода только дат в Excel помогает обеспечить согласованность данных. В этом руководстве описаны два метода: использование проверки данных или простого кода VBA, чтобы разрешить в выбранных ячейках ввод исключительно дат.
Разрешить ввод только Формат даты в определённых ячейках с помощью функции проверки данных
Разрешить ввод только Формат даты в определённых ячейках с помощью кода VBA
Разрешить ввод только Формат даты в определённых ячейках с помощью функции проверки данных
В Excel функция Проверка данных — это мощный инструмент, который позволяет создавать выпадающие списки, предотвращать дублирование записей и многое другое. Она также помогает запретить ввод любого формата данных, кроме даты, в определённые ячейки. Выполните следующие действия:
1. Щёлкните Данные > Проверка данных > Проверка данных, см. снимок экрана:
2. В диалоговом окне Проверка данных перейдите на вкладку Параметры, в раскрывающемся списке Разрешить выберите значение Пользовательский, а затем введите следующую формулу: =AND(ISNUMBER(B2),LEFT(CELL("format",B2),1)=«D») в поле Формула. См. снимок экрана:
Примечание: в приведённой выше формуле B2 — это первая ячейка столбца, для которого вы хотите ограничить формат данных.
3.Далее перейдите на вкладку Предупреждение об ошибкев диалоговом окне и выполните следующие действия:
(1.) Установите флажок Показывать предупреждение об ошибке после ввода недопустимых данных;
(2.) В раскрывающемся списке Стильвыберите Пожалуйста, выберите Остановить;
(3.) Введите Заголовок и Текст сообщения об ошибке, которые должны отображаться в диалоговом окне.
4. После завершения настройки нажмите кнопку OK, и теперь при вводе данных, не соответствующих допустимому формату даты, будет появляться диалоговое окно с уведомлением, как показано на следующем снимке экрана:
Разрешить ввод только Формат даты в определённых ячейках с помощью кода VBA
Второй метод использует код VBA для выполнения этой задачи.
1. Активируйте лист, который хотите использовать.
2. Затем щёлкните правой кнопкой мыши ярлык листа и в контекстном меню выберите пункт Просмотреть код, см. снимок экрана:
3. В открывшемся окне Microsoft Visual Basic для приложений скопируйте и вставьте приведённый ниже код в Модуль, см. снимок экрана:
Код VBA: разрешить ввод только Формат даты в определённых ячейках:
Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice
Set w = ActiveSheet.Range("B2:B12")
For Each c In w
If c.Value <> "" And Not IsDate(c) Then
c.ClearContents
MsgBox "Only a date format is permitted in this cell."
End If
Next c
End Sub
4. Сохраните и закройте код. Теперь при вводе значения, не соответствующего формату даты, в диапазоне B2:B12 появится диалоговое окно с напоминанием, а содержимое ячейки будет автоматически очищено (см. снимок экрана):
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек