如何在删除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. 保存代码。删除所选项后，默认值将出现在下拉单元格中，直到选择了新项。