|
楼主 |
发表于 2019-10-9 11:25
|
显示全部楼层
Dim d1 As Object
Dim d2 As Object
Dim d3 As Object
Private Sub ComboBox1_Click()
ComboBox2.Clear
ComboBox3.Clear
ComboBox2.List = d1(ComboBox1.Text).Items
End Sub
Private Sub ComboBox2_Click()
ComboBox3 = ""
ComboBox3.List = d2(ComboBox1.Text & ComboBox2.Text).Items
End Sub
Private Sub ComboBox3_Click()
If ComboBox3.ListIndex > -1 Then TextBox1 = d3(ComboBox1.Text & ComboBox2.Text & ComboBox3.Text) Else TextBox1 = ""
End Sub
Private Sub UserForm_Initialize()
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
Set d3 = CreateObject("scripting.dictionary")
arr = Sheets("辅助").Range("a1").CurrentRegion
For i = 1 To UBound(arr)
a = arr(i, 1) & "": b = arr(i, 3) & "": c = arr(i, 4) & ""
x = arr(i, 1) & arr(i, 3)
y = arr(i, 1) & arr(i, 3) & arr(i, 4)
If d1.Exists(a) = False Then Set d1(a) = CreateObject("scripting.dictionary")
d1(a)(b) = b
If d2.Exists(x) = False Then Set d2(x) = CreateObject("scripting.dictionary")
d2(x)(c) = c
If d3.Exists(y) = False Then Set d3(y) = CreateObject("scripting.dictionary")
d3(y) = arr(i, 2)
Next
ComboBox1.List = d1.Keys
End Sub
|
|