VBAvalidation列表：选项不显示

我目前正在开发一些Excelmacros，我必须使用单元格validation。

我看了很多样品，基本上都显示了相同的情况，但我无法正常工作。

这是我的代码：

Dim val As String: val = "this,is,sparta" With ActiveSheet.Range("C:C").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=val .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With 

但是最终，下拉列表中没有三个选项（“this”，“is”和“sparta”），我只有一个，等于“this，is，sparta”。

我错过了configuration中的任何东西吗？

提前致谢。

Answer 1

这个自我回答就是在这里标记这个问题已经解决了。 有关详细信息，请参阅第一个post的评论。