ExcelVBA字典实现窗体二级下拉菜单
    ExcelVBA字典实现窗体二级下拉菜单问题提出:
选择确定ComboBox1中的数值后，ComboBox2的下拉列表自动引用ComboBox1中数值对应的列的内容。如何能做到
我现在想在加一重判断：就是判断ComboBox2中的数值，如果是原来ComboBox1对应列中已有的值，就直接向下进行，如果原来ComboBox1对应列中没有该值，自动添加到该列最下一个非空行之后再向下执行。
字典的引用:窗体代码如下:
Public Arr, Dic As New
Dictionary 
'声明为公共变量,引用“Microsoft Scripting Runtime”
Private Sub UserForm_Initialize() '窗体初始化事件
    Dim
Brr
    Arr =
Sheet1.Range("A1").CurrentRegion.Value 
'A1单元格已用区域
    For i = 1 To
UBound(Arr,
2) 
'循环标题，并添加到字典
     
If Not Dic.Exists(Arr(1, i))
Then 
'字典中不存在关键字
         
Dic.Add Arr(1, i), Dic.Count +
1 
'添加关键字,Item为索引
     
End If
    Next
    Brr =
Dic.Keys
vba做excel窗体录入教程
 
Me.ComboBox1.Clear 
'清除列表框1条目
    For i = 0 To
UBound(Brr) -
1 
'列表框1添加条目
     
Me.ComboBox1.AddItem Brr(i)
    Next
End Sub
Private Sub ComboBox1_DropButtonClick() '列表框1下拉事件
    Dim
Brr
    If
Me.ComboBox1.Text = "" Then Exit

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。