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

Question

在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內只顯示［化工廠］其它資料不顯示. 

Answer 1

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

Answer 2

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

Answer 3

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