register313

¦^´_ 1# hbjang

1. Private Sub UserForm_Initialize()
   
2. Ar = Array("A", "B")
   
3. For i = 0 To UBound(Ar)
   
4.     ComboBox1.AddItem Ar(i)
   
5. Next i
   
6. For i = 1 To 2
   
7.     Controls("ComboBox" & i) = ""
   
8. Next i
   
9. End Sub
   
10. 
    
11. Private Sub ComboBox1_Change()
    
12. If ComboBox1 <> "" Then
    
13.   Select Case ComboBox1
    
14.     Case "A"
    
15.       Br = Array("A1", "A2", "A3")
    
16.     Case "B"
    
17.       Br = Array("B1", "B2", "B3")
    
18.   End Select
    
19.   With Controls("ComboBox2")
    
20.     .Clear
    
21.     .Value = ""
    
22.   End With
    
23.   For i = 0 To UBound(Br)
    
24.     ComboBox2.AddItem Br(i)
    
25. Next i
    
26. End If
    
27. End Sub

½Æ»s¥N½X