VBA竖列动态二级下拉菜单

活在理想的世界

点点滴滴2017627 发表于 2017-9-26 12:13
我刚刚直接这么写，好像还是失败了，我再试试你的。

把你搞不定的附件发上来吧。

点点滴滴2017627

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

明白了，愿意是应为刚刚是在Private Sub Worksheet_Change(ByVal Target As Range)里。
现在改成

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Column = 2 Then
   
3. Application.EnableEvents = False
   
4. Dim dic As Object, eic As Object, arr()
   
5. k = Sheet2.Range("a1048576").End(3).Row - 1
   
6. 
   
7. Set eic = CreateObject("Scripting.Dictionary")
   
8. arr = Sheet2.Range("a2").Resize(k, 2)
   
9. 
   
10. 
    
11. For i = 1 To UBound(arr)
    
12.     If arr(i, 1) = "类一" Then
    
13.         eic(arr(i, 2)) = ""
    
14.     End If
    
15. Next
    
16. Sheet1.Range("b" & Target.Row).Validation.Delete
    
17. Sheet1.Range("b" & Target.Row).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(eic.Keys, ",")
    
18. Application.EnableEvents = True
    
19. End If
    
20. 
    
21. End Sub
    

复制代码

这样就可以了，多谢了。

活在理想的世界

点点滴滴2017627 发表于 2017-9-26 12:18
明白了，愿意是应为刚刚是在Private Sub Worksheet_Change(ByVal Target As Range)里。
现在改成

你加入If Target.Column = 2 Then干嘛？

不需要啊？

你还是直接上附件吧，有可能你描述的跟我想的不是一回事。

点点滴滴2017627

活在理想的世界 发表于 2017-9-26 12:20
你加入If Target.Column = 2 Then干嘛？

不需要啊？

我明白你的意思，

• Sheet1.Range("b" & Target.Row).Validation.Delete
• Sheet1.Range("b" & Target.Row).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(eic.Keys, ",")
  

就能把范围控制在B列之中了。
只是想说，加Target.Column = 2是想说如果不是就直接跳过了。
附件 OKKKK.zip (15.55 KB, 下载次数: 81)

2017-9-26 12:24 上传

点击文件名下载附件

活在理想的世界

点点滴滴2017627 发表于 2017-9-26 12:26
我明白你的意思，

Sheet1.Range("b" & Target.Row).Validation.Delete

搞明白就行了。

其实用VBA做有效性关键点不是去重也不是判断，而是在于JOIN函数的运用上。。。。。。

知道吧数组作为区域创建有效性必须用JOIN函数加入","就可以了。

其他的多做就熟悉了。

活在理想的世界

点点滴滴2017627 发表于 2017-9-26 12:26
我明白你的意思，

Sheet1.Range("b" & Target.Row).Validation.Delete

想要把VBA创建有效性彻底搞明白还需要自己多录几次宏看看是什么情况。

一遍打开VBE一遍录，这样才能看的清楚一点。

zuyong2

一张表中有多个类别的下拉菜单呢

tiankongwuy

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

您好，这个例子用有效性+函数如何写？

lmgz007

学到了新东西

Ansun邓

学到东西了，非常感谢大神们