Question

VB窗体textbox与Excel实时连接输入数据的问题

我用VB做了个窗体，textbox与Excel实时连接输入数据的，而且给Excel加入了宏，从头到尾所有的语句也都写完了，可是运行后发现宏的个别功能没实现，如我在宏里有个功能就是给A列加了数据有效性：
=Countif(A:A,A)=1，这个禁止A列输入重复值的功能我在Excel中实验了是可行的，可是用窗体textbox输入数据时就不行了（可以肯定打开窗体后宏是自动运行的，因为我还加了把A列设置成文本，这个就能成功），好像功能没有开启，这是为什么，哪位大人知道啊！急用的，谢谢啦！

Answer 1

=application.Countif([A:A],"A")=1 改成这样试试。

追问

在VB中吗，太悲催了，我的电脑因为启动VB后老和其它软件冲突，所以刚卸载了，打算明天到公司试试，对了您能给试试吗，看是不是能用，还有输入完这个是不是整个A列都能受控，因为我记得在Excel中做的话得先弄一个单元的有效性，然后把这个单元格往下填充其它单元格才能也被受控的，麻烦您，试试，谢谢

Answer 2

应该是
=Countif(A:A,A1)=1
吧

追问

哦，对，是我提问题的时候写错了，实际在做宏的时候是按照您那样写的

追答

用宏设置有效性应该是成功的，你可以手动输入试一下，只是数据有效性只针对手动输入是有效，用窗体输入就没用了

追问

手动输入确实是成功的；
那怎么办啊，愁死了

追答

你可以把判断数据唯一性的代码加到输入代码里