Question

我又来了当我使用数组

时出现错误

从阵列中接纳我的最大尺寸是26 为什么会这样？

错误在于第3单元功能列表框在这一行

Dim mylist1(26) As String
For i = 0 To 26
    mylist1(i) = CStr(Worksheets("Helper").Cells(i + 6, 4).Value)
Next i
With ws.Range("E8:E8").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=Join(mylist1, ",")
End With

我从隐藏的工作表中获取值保存后如果将大小更改为27则有错误如果你改为27保存并再次打开，有错误

这是文件链接

https://drive.google.com/open?id=1Uaop86I2AKpeOwORrKYUafGb67b214Bh

感谢

Answer 1

由于错误很可能被抛出太长的字符串，因此您可以将验证公式转换为引用列表范围并删除mylist1数组：

Dim nElements As Long

nElements = 26
With WS.Range("E8").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="=Helper!$D$6:$D$" & 6 + nElements-1
End With

Size数组VBA出错

1 个答案: