VBA设置数据有效性

presidentkevin

各位大侠，请教一个问题

我通过excel VBA function运算得到了一个数组，如数组为
dim aj(1 to 22) as variant
那么得到这儿数组之后，我怎么这个数组设置成公式所在单元格的数据有效性里面呢

如果可以使用excel相关的引用(如cell range之类的)应该怎么做呢？

如果不想使用excel相关的引用(如cell range之类的), 单纯使用vba可以实现么，因为我想把VBA代码最终封装成一个dll 使用excel引用可以比较麻烦一点

多谢！
在线等~~

grf1973

For i = 0 To UBound(arr)
    str1 = str1 & arr(i) & ","
Next
str1 = Left(str1, Len(str1) - 1)
   

    Range("E4").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=str1
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .IMEMode = xlIMEModeNoControl
        .ShowInput = True
        .ShowError = True
    End With
End Sub