Question

Excel中VBA提示 发现二义性的名称，Worksheet_Change,怎么办？急 急 ，就20财富币了

如图，我的计算系统里的一个单元格的数据有效性写满了，我想在下方在加一个单元格，但是宏里的单元格编码要修改 ,现在用的是K2单元格，我想在添加一个K3单元格，修改完提示我 发现二义性的名称，Worksheet_Change，怎么办才行呢？





Answer 1

楼主
楼上几位没错，确实二义性 ，第2个private Sub Worksheet_Change.是多余的
至于后面又发生select case的问题也正常，
即使把这改好了，IF还是会出问题，会说没有endif
因为整个逻辑在这出问题了，
第1个select在这应该结束了，
第2个if应该是elseif
感觉像复制的代码进行修改，逻辑没有理清
另外case里面的羡冲语句旅好也不够精炼
靠你自己修改估计还兄镇歼有够呛的。。

提供个思路，直接选择K2/K3
然后case判断K2&K3
这样就可以用原来代码修改了
不过估计也够呛。。

追问

首先谢谢你能在百忙中为我解答，一看就是行家啊，我是小白一个，我的代码还是别人给我指点的呢。能具体给我写下吗，谢谢大神。

企鹅多少啊

Answer 2

If Target.Address="旅芹厅$K$3" Then 的拆隐上一句 Private Sub Worksheet_Change。。。是多余的，首竖
删掉这句Private Sub Worksheet_Change。。。即可

追问

删掉之后提示这个

追答

好在你的代码弄了缩进
要不然真是看到头大。。。
还是 If Target.Address="$K$3" Then 的上一句
漏了以下两行：
end select
end if

-----------------------华丽的分割线-----------------------
VBA里的IF后面必须有END IF ，SELECT CASE 与 end select、FOR 与 NEXT、WITH与END WITH。。。很多都是成对的

Answer 3

If Target.Address="$K$3" Then 的上一局绝句 Private Sub Worksheet_Change。。。桐银姿是搏塌多余的，

追问

你是复制的