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:让我们看看结果: