VBA竖列动态二级下拉菜单

点点滴滴2017627

oppo561314 发表于 2017-9-26 10:23
用有效性+函数就能搞定  还是动态的 何必要用VBA

函数如何写？不是很清楚啊，望指点。

点点滴滴2017627

活在理想的世界 发表于 2017-9-26 10:28
怎么个意思？是不需要数据库直接在内存里创建有效性吗？

这是另一个，就是只有单列的。

活在理想的世界

点点滴滴2017627 发表于 2017-9-26 10:43
这是另一个，就是只有单列的。

当然可以，这样更简单。

知道怎么弄吗？

活在理想的世界

点点滴滴2017627 发表于 2017-9-26 10:43
这是另一个，就是只有单列的。

这个就相当于只把“类一”从B列里筛选出来加入字典，然后用字典的KEYS创建有效性而已，连一层判断都省了。

点点滴滴2017627

活在理想的世界 发表于 2017-9-26 10:49
这个就相当于只把“类一”从B列里筛选出来加入字典，然后用字典的KEYS创建有效性而已，连一层判断都省了 ...

是的，我就在试着改，在想是不是这个， Formula1:=Join(eic.Keys, ",")，于是改了 eic(arr(i, 2)) = ""这个，结果还是出错了。技不如人啊。

活在理想的世界

点点滴滴2017627 发表于 2017-9-26 11:05
是的，我就在试着改，在想是不是这个， Formula1:=Join(eic.Keys, ",")，于是改了 eic(arr(i, 2)) = ""这 ...

eic(arr(i, 2)) = ""没问题的，问题在于判断上面。

你想想应该如何判断？

是不是应该是什么东西“=类一”啊？

什么东西等于“类一”时把ARR(I,2)加入字典？

点点滴滴2017627

活在理想的世界 发表于 2017-9-26 11:23
eic(arr(i, 2)) = ""没问题的，问题在于判断上面。

你想想应该如何判断？

直接eic(arr(i, 2)) = "类一"还真的就实现了，这个怎么判断的我有点没想清楚。为什么留空就是判断前面的，填上就可以了。好像错了，我再试试。

活在理想的世界

点点滴滴2017627 发表于 2017-9-26 11:43
直接eic(arr(i, 2)) = "类一"还真的就实现了，这个怎么判断的我有点没想清楚。为什么留空就是判断前面的 ...

原理是这样的。

你告诉EXCEL当数组第一列等于你选中单元格的值的时候，那么把符合条件的数组元素加入“字典”进行去重处理。  问题是你选中单元格的值是什么东西这个不确定，这时候需要判断？判断的依据就是你选中那个单元格的值和数组第一列的关系。

现在你没了数组第一列，那么字典只需要把符合“类一”条件的元素加入字典去重就得了。

活在理想的世界

点点滴滴2017627 发表于 2017-9-26 11:43
直接eic(arr(i, 2)) = "类一"还真的就实现了，这个怎么判断的我有点没想清楚。为什么留空就是判断前面的 ...

正确的写法应该是
=======================================================
if arr(i,1)=A then
eic(arr(i,2))=""
endif
========================================================
因为A=类一

又因为你要把跟类一有关的第二列数据做成数据有效性

所以

当第一列数组等于类一时（arr(i,1)=a）,那么把第二列数组加入字典（eic(arr(i,2))=""）

明白了吗？

点点滴滴2017627

活在理想的世界 发表于 2017-9-26 11:56
正确的写法应该是
=======================================================
if arr(i,1)=A then

我刚刚直接这么写，好像还是失败了，我再试试你的。