[求助][求助]

老鬼

不太明白你的意思。用编程得到什么效果？

zhuangyumei

请再看一下附件，这次能否看明白呢？

zhuangyumei

老鬼大哥，请帮忙看一下上面的贴子！

非常的谢谢！

老鬼

你设置的是数据有效性，想用编程的方得到这种结果，你把操作过程录成宏就可以了

sgch1982

你写得太不明白了？不知道什么意思啊？

zhuangyumei

老鬼大哥，我不是很懂，你可不可以做个样本给我看一下

老鬼

Sub Macro1()
    On Error Resume Next
    With Selection.Validation
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="小学,中学"
    End With
End Sub

以上代码可以对选定的单元格设置数据有效性序列

zhuangyumei

不好意思，我将这个代码放拷贝进去，怎么还是不能实现像数据有效性序列的效果

老鬼

进去，你得用个按钮来引用这个宏啊，不然怎么运行？

zhuangyumei

我还是不明白，还麻烦你多加指点