excel - 命名范围数组不起作用或不可能？

Question

我有一个超过 256 个字符限制的选项列表用于数据验证，所以我尝试使用字符串数组中的命名范围，但它似乎不起作用或不可能？

这是我尝试的代码:

ActiveWorkbook.Names.Add Name:="mylist", RefersTo:="={""one"",""two""}"

With Target.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=mylist"
End With

该列表是从 vba 中的外部数据库查询生成的，我只是在上面展示了一个简单的示例。

谢谢

Answer 1

这就是创建名为 的命名范围的方法。测试 使用 Sheet1.Range(A1:A10) & 在单元格 中导入具有范围值的数据验证Sheet1.Range("B1")

Option Explicit


Sub test()

    With ThisWorkbook

        .Names.Add Name:="rngTEst", RefersToR1C1:=.Worksheets("Sheet1").Range("A1:A10") 'Create the range

        With .Worksheets("Sheet1").Range("B1").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=INDIRECT(""rngTest"")"
        End With

    End With

End Sub