Как автоматически отображать значение по умолчанию при удалении значения из раскрывающегося списка в Excel?

В Excel, используя проверку данных, вы можете создать раскрывающийся список для выбора значений пользователями. Однако вам может потребоваться, чтобы значение по умолчанию, например «-Выбрать-», автоматически появлялось, когда выбранная запись удаляется из ячейки с раскрывающимся списком. В этой статье представлено пошаговое решение с использованием кода VBA.

Автоматическое отображение значения по умолчанию при удалении значения из раскрывающегося списка

Автоматическое отображение значения по умолчанию при удалении значения из раскрывающегося списка

1. Щелкните правой кнопкой мыши вкладку листа, содержащую раскрывающийся список, затем выберите Изменить код из контекстного меню.

2. В открывшемся окне Microsoft Visual Basic for Applications скопируйте и вставьте приведенный ниже код в редактор скриптов.

VBA: Отображение значения по умолчанию при удалении выбранного элемента из раскрывающегося списка

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xObjV As Validation
On Error Resume Next
Set xObjV = Target.Validation
If xObjV.Type = xlValidateList Then
 If IsEmpty(Target.Value) Then Target.Value = "-Select-"
End If
End Sub

3. Сохраните код. После удаления выбранного элемента значение по умолчанию будет отображаться в ячейке с раскрывающимся списком до тех пор, пока не будет выбран новый элемент.