如何使combobox1和combobox2所顯示的資料相對應?

[M_Judy0]

在userform1內設了combobox1和combobox2 二個控件,分別載入表內資料.

姓名 單位 職位
張三 化工廠 主任
李四 化工廠 部長
..........

程序如下:
Private Sub UserForm_Initialize()

With ComboBox1
.AddItem (Sheets("T1").Range("A1").Value)
.AddItem (Sheets("T1").Range("B1").Value)
.AddItem (Sheets("T1").Range("C1").Value)
End With

dim i as integer
for i=2 to 10
With ComboBox2
.AddItem (Sheets("T1").Range("A" & i ).Value)
.AddItem (Sheets("T1").Range("B" & i).Value)
.AddItem (Sheets("T1").Range("C" & i).Value)
End With
End Sub

如何使combobox1和combobox2所顯示的資料相對應?
比如:當在combobox1內點選［姓名］時,combobox2內只顯示［張三,李四］其它資料不顯示.
當點選［單位］時,combobox2內只顯示［化工廠］其它資料不顯示.

[zzyong00]

在combo1的change里添加修改combo2内容的代码

[杨哥儿]

combo1_change()中
combo2.clear
combo2.additem("新资料")

[M_Judy0]

此問題已OK,謝謝樓上朋友指點.並請結貼.

[zzyong00]

结贴是你自己的事儿，你想请谁结贴吗？

[永恒挑战]

With ComboBox1
.AddItem (Sheets("T1").Range("A1").Value)
.AddItem (Sheets("T1").Range("B1").Value)
.AddItem (Sheets("T1").Range("C1").Value)
End With

dim i as integer
for i=2 to 10
With ComboBox2
.AddItem (Sheets("T1").Range("A" & i ).Value)
.AddItem (Sheets("T1").Range("B" & i).Value)
.AddItem (Sheets("T1").Range("C" & i).Value)
End With
End Sub