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

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

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


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

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

excel 如何設置下拉選單的預設值1

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

excel 如何設置下拉選單的預設值2

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

excel 如何設置下拉選單的預設值3

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

excel 如何設置下拉選單的預設值4

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

excel 如何設置下拉選單的預設值5

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

隔行數據移動到新列8

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

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

隔行數據移動到新列9

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

excel 如何設置下拉選單的預設值6


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宏。点击运行按钮。

excel 如何設置下拉選單的預設值7

步骤11让我们看看结果:

excel 如何設置下拉選單的預設值8

Sidebar