我在第二个组合框的工作表和项目列表中使用两个组合框,基于在第一个组合框中选择的值,我使用以下代码,但它给出了错误“此键已经关联这个集合的元素“on”oDictionary.Add cel.value,0“代码行。
Set secondItem = Sheet2.Range("b1:b30")
Set oDictionary = CreateObject("Scripting.Dictionary")
Sheet3.ComboBox2.Clear
With Sheet3.ComboBox2
For Each cel In secondItem
If ComboBox1.value = cel.Offset(, -1).value Then
oDictionary.Add cel.value, 0
ComboBox2.AddItem (cel.value)
End If
Next cel
End With
这个问题的解决方案是什么.....
提前感谢......