Excel中的最大下拉列表/公式长度

Question

我有以下VBA代码：

myList = "test"

Range("A1:Z1").Validation.Delete
Range("A1:Z1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=myList

如果我的列表超过256个字符，则会被截断。 如果超过1024，则会出现执行错误（我认为这是公式的最大长度）。

我如何克服这些限制？ 我正在使用Excel 2003。

Answer 1

使用上面评论中发布的链接，我能够创建一个包含超过256/1024个字符的下拉列表。 经过几次搜索和尝试，这是我设法得到的：

ActiveWorkbook.Names.Add Name:="List", RefersTo:="=ValidationList!$A$1:$A$" & i
Range("A1:AZ1").Validation.Delete
Range("A1:AZ1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=List"

仅此而已。 i是ValidationList工作表的行数。 我正在动态创建该工作表，并在第一列A列中填充我想在下拉列表中显示的内容。

有用的参考资料：

• http://www.contextures.com/xlDataVal11.html
• http://www.ozgrid.com/forum/showthread.php?t=52916
• http://msdn.microsoft.com/en-us/library/office/ff839847.aspx
• http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/830b42cf-8c97-4aaf-b34b-d860773281f7/
• VBA Excel代码：无法在验证中给Formula1指定范围