Как установить значение по умолчанию в раскрывающемся списке проверки данных в Excel?
Установка значения по умолчанию в раскрывающемся списке проверки данных помогает другим легко идентифицировать ячейки раскрывающегося списка на листе. В этой статье подробно описан метод VBA для установки значения по умолчанию в раскрывающемся списке проверки данных.
Установите значение по умолчанию в раскрывающемся списке проверки данных с кодом VBA
Установите значение по умолчанию в раскрывающемся списке проверки данных с кодом VBA
Как показано на скриншоте ниже, предположим, что все ячейки в диапазоне B2: C7 содержат раскрывающийся список, и вы хотите установить значение по умолчанию (говорит - Выберите из списка -) в этих раскрывающихся списках, прежде чем выбирать из них значения. Вы можете попробовать следующий код VBA.
1. Щелкните правой кнопкой мыши вкладку листа с раскрывающимися списками, в которых необходимо установить значение по умолчанию, затем щелкните Просмотреть код из меню.
2. в Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код VBA в окно кода.
Код VBA: установите значение по умолчанию в раскрывающемся списке проверки данных
Sub DropDownListToDefault()
Dim xCell As Range
Dim xRg As Range
Dim xAcCell As Range
Dim xScreen As Boolean
On Error Resume Next
Set xAcCell = Application.ActiveCell
Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
If xRg Is Nothing Then
MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
Exit Sub
End If
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell.Validation.Type = 3 Then
If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
End If
Next
xAcCell.Select
Application.ScreenUpdating = xScreen
End Sub
Внимание: вы можете изменить значение по умолчанию в коде VBA на то, которое вам нужно.
6. нажмите F5 ключ для запуска кода. Вы можете видеть, что значения по умолчанию добавляются ко всем ячейкам раскрывающегося списка, как показано ниже.
Заметки:
Статьи по теме:
- Как выполнить автозаполнение при вводе в раскрывающемся списке Excel?
- Как создать календарь с выпадающим списком в Excel?
- Как создать выпадающий список с возможностью поиска в Excel?
- Как создать раскрывающийся список с множественным выбором или значениями в Excel?
- Как автоматически заполнять другие ячейки при выборе значений в раскрывающемся списке Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!