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指定范圍