vba - 在数据验证下拉列表中设置默认值

Question

我有许多带有下拉列表的数据验证(DV)单元格，我已通过菜单 Data 设置了这些下拉列表> Data Validation > list 。 VBA中有没有批量方法将它们全部设置为默认值？默认值我的意思是:

1. DV 列表中声明的第一个值
2. 或不在 DV 列表中的值，例如 Choose item from the list .

如果我们希望用户对他的选择负责，第二个选项可能会很有用。一旦用户单击数据验证单元格，他就被迫选择某些内容。没有选项可以保留默认值 Choose item from the list因为这样的值不在验证列表中。所以用户以后不能说“我没有投票”。

Answer 1

要使用当前行中从列 C 到 Z 的偏移量:

• 选择第一行中的任意单元格

• 使用名称创建命名范围(公式 > 名称管理器 > 新建...): 例如validation 和 Refers To: 将是您的公式:

  =OFFSET($C1;0;0;1;COUNTA($C1:$Z1))
  

  • 英语区域用户，请使用 , 而不是 ; 作为列表分隔符

• 选择单元格并应用数据验证 > 允许:List，来源:=validation

当您选择第二行中的单元格并观察名称管理器时，您会注意到公式使用对当前行的相对引用。

<小时/>

要使用默认值填充单元格，您可以使用以下公式(作为单元格内的普通公式，它与数据验证功能没有任何关系):

=INDEX(validation, 1)

当您实际从下拉列表中选择一个值时，公式将被所选值覆盖，因此当您更改列表中的第一项时，明确选择的单元格的值不会更改。