Excel中如何设置下拉列表的默认值

本文将会讲述如何使用Excel中的VBA宏在下拉列表中设置默认值。如何在Excel 2013/2016中创建具有预选值的下拉列表。

使用VBA设置下拉列表的默认值

假设您的工作表中有许多带有下拉列表的数据验证单元格，如果您希望将它们全部设置为默认值。有没有办法快速将所有下拉列表设置为默认值？当然有。我们可以使用一个VBA 宏代码快速完成设置，只需执行以下步骤：

步骤1：选择一个要放置下拉列表的空白单元格。

步骤2：转到Excel功能区中的“数据”选项卡，然后单击“数据工具”组下的“数据验证”命令。数据验证对话框将打开。

步骤3：单击“数据验证”对话框中的“设置”选项卡，然后从“允许”列表框中选择“列表”选项，并选择数据作为下拉列表的源数据。

步骤4：单击“数据验证”对话框中的“错误警报”选项卡，取消选中“输入无效数据后显示错误警报”框。单击确定按钮。

步骤5：您将看到已在所选单元格中创建了下拉列表。

步骤6：打开您的Excel工作簿，然后单击DEVELOPER选项卡下的“Visual Basic”命令，或者只需按“ALT + F11”快捷方式。

步骤7：然后会出现“Visual Basic Editor”窗口。

步骤8：单击“插入” – >“模块”以创建新模块。

步骤9：将以下VBA代码, 粘贴到代码窗口中。然后单击“保存”按钮。

Sub DropDownListToDefault()
Dim oCell As Range

For Each oCell In ActiveSheet.UsedRange.Cells
If HasValidation(oCell) Then
oCell.Value = "'- Choose from the list -"
End If
Next
End Sub

Function HasValidation(cell As Range) As Boolean
Dim t: t = Null

On Error Resume Next
t = cell.Validation.Type
On Error GoTo 0

HasValidation = Not IsNull(t)
End Function

步骤10：返回当前工作表，然后运行上面的excel宏。点击运行按钮。

步骤11：让我们看看结果：