[已解决]如何用VBA写一条窗体复合框的二级列表

qinhuan66

如何用VBA写一条窗体复合框的二级列表（例子:在报考类别选择卫生系统，报考职位就对应显示该卫生系统的所有报考职位，那其他不是卫生系统的报考职位就是显示。谢谢

报名登记表.rar (28.61 KB, 下载次数: 43)

2013-6-9 14:35 上传

点击文件名下载附件


数据源在（辅助表工作表）

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-6-9 15:14

302612-VBA-窗体-组合框-自动二级列表-报名登记表.rar (31.61 KB, 下载次数: 564)

2013-6-9 15:14 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

302612-VBA-窗体-组合框-自动二级列表-报名登记表.rar (31.61 KB, 下载次数: 564)

2013-6-9 15:14 上传

点击文件名下载附件

蓝桥玄霜

1. Private Sub ComboBox1_Change()
   
2. Dim xt$, Arr, i&, d
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. xt = Me.ComboBox1.Text
   
5. Set r1 = Sheet5.Rows(1).Find(xt, , , 1)
   
6. c = r1.Column
   
7. Arr = Sheet5.[a1].CurrentRegion
   
8. For i = 2 To UBound(Arr)
   
9.     If Arr(i, c) <> "" Then d(Arr(i, c)) = ""
   
10. Next
    
11. Me.ComboBox2.List = d.keys
    
12. End Sub
    

复制代码