提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
注册账户
x

or

如何在Excel中的数据验证下拉列表中设置默认值?

在数据验证下拉列表中设置默认值可帮助其他人轻松识别工作表中的下拉列表单元格。 本文提供了一个VBA方法来详细设置数据验证下拉列表中的默认值。

使用VBA代码在数据验证下拉列表中设置默认值


您可能感兴趣的是:

将多个工作表/工作簿合并到一个工作表/工作簿中:

将多个工作表或工作簿合并到一个工作表或工作簿中可能是您​​日常工作中的一项重大任务。 但是,如果你有 Kutools for Excel,其强大的效用 - 结合 可以帮助您将多个工作表,工作簿快速合并到一个工作表或工作簿中。

Kutools for Excel 包含了比300更方便的Excel工具。 免费试用60天无限制。 更多详情 立即下载免费试用版


使用VBA代码在数据验证下拉列表中设置默认值


如下面的屏幕截图所示,假设范围为B2:C7中的所有单元格都包含下拉列表,并且您要设置一个默认值(表示 - 从列表中选择 -)在从这些下拉列表中选择值之前。 你可以尝试下面的VBA代码。

1。 右键单击工作表选项卡,您需要设置默认值的下拉列表,然后单击 查看代码 从菜单。

2。 在里面 Microsoft Visual Basic for Applications 窗口中,将以下VBA代码复制并粘贴到代码窗口中。

VBA代码:在数据验证下拉列表中设置默认值

Sub DropDownListToDefault()
    Dim xCell As Range
    Dim xRg As Range
    Dim xAcCell As Range
    Dim xScreen As Boolean
    On Error Resume Next
    Set xAcCell = Application.ActiveCell
    Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
    If xRg Is Nothing Then
        MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell.Validation.Type = 3 Then
            If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
        End If
    Next
    xAcCell.Select
    Application.ScreenUpdating = xScreen
End Sub

注意:您可以将VBA代码中的默认值更改为您需要的值。

6。 按 F5 键来运行代码。 您可以看到默认值已添加到所有下拉列表单元格中,如下面的屏幕截图所示。

笔记:

1。 在下拉列表中选择值后,默认值将消失。

2。 如果当前工作表中没有数据验证下拉列表,您将看到下面的提示框。


相关文章:



推荐的Excel生产力工具

Kutools for Excel帮助您提前完成工作,并从人群中脱颖而出

  • 超过300强大的高级功能,专为1500工作场景设计,通过70%提高生产力,让您有更多时间照顾家庭和享受生活。
  • 不再需要记忆公式和VBA代码,从现在起让你的大脑休息一下。
  • 成为3分钟的Excel专家,复杂和重复的操作可以在几秒钟内完成,
  • 每天减少成千上万的键盘和鼠标操作,现在告别职业病。
  • 110,000高效人才和300 +世界知名公司的选择。
  • 60-day full功能免费试用。 60天退款保证。 2多年的免费升级和支持。

将选项卡式浏览和编辑带到Microsoft Office,远比浏览器的选项卡强大

  • Office选项卡专为Word,Excel,PowerPoint和其他Office应用程序设计:Publisher,Access,Visio和Project。
  • 在同一窗口的新选项卡中打开并创建多个文档,而不是在新窗口中。
  • 通过50%提高您的工作效率,每天为您减少数百次鼠标点击!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Martin Goodwin · 7 months ago
    Love the code about 'VBA code: set a default value in data validation drop-down list', how do I use the same code for just one column with one dropdown?