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

我有以下的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

使用上面评论中发布的链接，我能够创build一个超过256/1024个字符的下拉列表。 以下是我经过更多的search和尝试后得到的结果：

 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工作表的行数。 我正在dynamic创build该工作表，并使用我想要在下拉列表中显示的内容填充第一个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代码：在validation中不能给出命名范围到formula1