复合框数据源选择，请永师傅们帮忙指导下

758586

窗体上有两个复合框，表二，表三，表四为数据源，想用窗体上的、控件一给控件二选择，表二否着表三表四的数据源，请各位帮忙写断代码，在这谢谢了！ 列表框数据源选1.zip (11.72 KB, 下载次数: 10)

2018-7-19 21:33 上传

点击文件名下载附件

CC例例

供参考

1. Dim d
   
2. 
   
3. Private Sub CommandButton10_Click() '退出
   
4. Unload Me
   
5. End Sub
   
6. 
   
7. Private Sub ComboBox1_Change()
   
8.     With ComboBox1
   
9.         If d.Exists(.Text) Then ComboBox2.List = d(.Text)
   
10.     End With
    
11. End Sub
    
12. 
    
13. Private Sub UserForm_Initialize()
    
14.     Dim arA, arB, i%
    
15.     Set d = CreateObject("Scripting.Dictionary")
    
16.     arA = Array("表二", "表三", "表四")
    
17.     For i = 0 To UBound(arA)
    
18.         arB = Sheets(arA(i)).Range("b2:b" & Sheets(arA(i)).[b65536].End(3).Row)
    
19.         d(arA(i)) = Application.Transpose(Application.Index(arB, , 1))
    
20.     Next
    
21.     ComboBox1.List = arA
    
22. End Sub

复制代码

CC例例

附件供参考

758586

CC例例 发表于 2018-7-19 22:06
附件供参考

谢谢、EH铁杆、的帮助、
还向您请教、用代码写属性ComboBox2.RowSource = "" 可行不、应该怎样弄请师傅指示、因为控件有点多 都根据控件一选择。还得辛苦师傅下v-v