Question

VBA 数据有效性的问题

Range("A1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1,2,3"

请教如何把从SQL查询到的值赋予上面的语句，譬如执行SQL语句之后的结果为 A B C 如何用ABC代替123？

Answer 1

如果是用recordset保存sql查询结果，先要做一些处理将结果赋给一个字符变量，比如：
for i=0 to rs.recordcount
validStr=iif(validStr="", rs(0), validStr & "," & rs(0))
next
然后再赋给数据有效性
Range("A1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=validStr

大致是这个思路，上面的代码没有经过测试

Answer 2

Formula1:=a,b,c

追问

- -！前提是不确定SQL查询出来的结果是什么！就是说我要把SQL查询出来的结果赋到
Range("A1").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1,2,3"
这个语句当中去，如何实现？