GBKEE

¦^´_ 2# user999
UserForm ªºµ{¦¡½X

1. Dim D As Object
   
2. Private Sub UserForm_Initialize()
   
3.     Dim Dx(1 To 3) As Object, i As Integer, ii As Integer
   
4.     Set D = CreateObject("SCRIPTING.DICTIONARY")
   
5.     For ii = 1 To UBound(Dx)
   
6.         Set Dx(ii) = CreateObject("SCRIPTING.DICTIONARY")
   
7.     Next
   
8.     i = 2
   
9.     Do While Sheet1.Cells(i, 1) <> ""
   
10.            For ii = 1 To UBound(Dx)
    
11.                 Dx(ii)(Cells(i, ii).Value) = ""
    
12.             Next
    
13.             D(Cells(i, 1) & Cells(i, 2) & Cells(i, 3)) = Cells(i, "d")
    
14.             i = i + 1
    
15.     Loop
    
16.     For ii = 1 To UBound(Dx)
    
17.         Controls("ComboBox" & ii).List = Dx(ii).keys
    
18.     Next
    
19. End Sub
    
20. Private Sub ComboBox1_Change()
    
21.     ¥­§¡
    
22. End Sub
    
23. Private Sub ComboBox2_Change()
    
24.     ¥­§¡
    
25. End Sub
    
26. Private Sub ComboBox3_Change()
    
27.     ¥­§¡
    
28. End Sub
    
29. Private Sub ¥­§¡()
    
30.     If D.exists(ComboBox1 & ComboBox2 & ComboBox3) Then
    
31.         TextBox1 = D(ComboBox1 & ComboBox2 & ComboBox3)
    
32.     Else
    
33.         TextBox1 = ""
    
34.     End If
    
35. End Sub

½Æ»s¥N½X