数据验证和强大的构造出错

Question

我正在尝试根据另一个工作表中的一系列单元格向一组单元格添加数据验证。问题是另一个工作表中的单元格范围不是静态的，可以更改。

总体而言，我正在寻找A10中的一组下拉框：A29细胞中含有成分

当我使用= INDIRECT（“Ingredients！A2：A320）时，只需使用excel验证向导即可，但我需要结束单元格是动态的。

我有这个当前的vba代码

Dim endrow As Integer

endrow = Sheets("Ingredients").Range("A" & Rows.Count).End(xlUp).Row

Range("A10:A29").Select
 With Selection.Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
         xlBetween, Formula1:="=INDIRECT(" & Chr(34) & "Ingredients!A2:A" & endrow & Chr(34) & ")"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

我在此代码中收到1004错误。

为了让人们更容易看到这个最终结果，我在公式部分的目标是：

=INDIRECT("Ingredients!A2:A*endrow*)

Answer 1

这里评论的是我对没有VBA的问题的答案：

此演示使用Excel 2010完成：

从功能区中选择Formula Tab

然后选择Name Manager。

选择New 提供命名范围的名称（在我的示例中为MyRange） 然后将以下公式放在Refers To。

中

=OFFSET(Sheet1!$A$2,0,0,COUNTA(Sheet1!$A:$A)-1)

按OK。
请注意，我假设Sheet1为验证列表来源。

您将返回Name Manager对话：
请注意，您已新添加了新创建的名称 按Close

现在，转到Validation 在验证对话框中，选择List字段中的Allow 然后在Source中输入以下公式。

=MyRange

当然，您需要按OK。

重要事项：您可以在此处直接输入命名范围中使用的公式 但是，具有命名范围可提供数据可见性。

假设我们在Sheet1 Cell C1中应用Validation，它将如下所示：

添加其他项目或数据将导致：

请注意，验证列表会自动调整 希望这对你有所帮助。

EDIT1：如果您想坚持自己的逻辑，可以使用以下代码在VBA中完成以上操作：

Sub DynamicValidation()

Dim ws As Worksheet
Dim rng As Range, valrng As Range
Dim valformula As String

Set ws = ThisWorkbook.Sheets("Sheet1")
Set rng = ws.Range("C1") '~~> where you want to put the validation
'~~> check if you have list, exit if none
If ws.Range("A2").Value = "" Then Exit Sub
'~~> Below contains your dynamic range
Set valrng = ws.Range(ws.Range("A2"), ws.Range("A" & ws.Rows.Count).End(xlUp))
'~~> your formula based on your dynamic range
valformula = "=" & valrng.Address
'~~> actual application of validation
With rng.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=valformula '~~> use the variable here
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

End Sub

以上代码经过试用和测试 每次运行宏时，它都会更新验证列表 只需根据您的需要调整参考文献。

Answer 2

说明： 偏移移动范围成分！$ 1 $ 1 1 向下并将范围的高度调整为列中的非空单元格数量！$ A：$ A减去1列表标题

=OFFSET(Ingredients!$A$1,1,0,COUNTA(Ingredients!$A:$A)-1,1)

Answer 3

您获得运行时错误1004的原因是因为chr（34）。你不需要它。一旦你修复了它你将得到一个运行时错误13因为你试图在这里连接一个字符串与整数：

Range("A" & Rows.Count)

您需要将整数转换为字符串：

    Dim endrow As Integer

endrow = Sheets("Ingredients").Range("A" & strings.trim(str(Rows.Count))).End(xlUp).Row

Range("A10:A29").Select
 With Selection.Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
         xlBetween, Formula1:="=INDIRECT("Ingredients!A2:A" & strings.trim(str(endrow)))"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

您还可以看到我撰写的这篇文章Excel VBA, Common Errors When Using Strings