GBKEE

¦^´_ 1# av8d

1. Option Explicit          '«Å§iÅܼƪº²ßºD­n¾i¦¨
   
2. Dim d As Object
   
3. '°O±oDim d As Object ³o­n¸m©ó¼Ò²Õªº³»ºÝ§@¬°³o¼Ò²Õªº¨p¥ÎÅܼÆ
   
4. 'ComboBox2.List = Split(d(Val(ComboBox1.Value)), ",") ¤~·|¦³µª®×
   
5. Private Sub UserForm_Initialize()
   
6.     Dim A, AMonth As String
   
7.     Set d = CreateObject("Scripting.Dictionary")
   
8.     With ActiveSheet
   
9.         For Each A In .Range("a2", .[a2].End(xlDown))
   
10.           If d(Year(A.Value)) = "" Then
    
11.             d(Year(A.Value)) = Month(A.Value)
    
12.           Else
    
13.             AMonth = "," & d(Year(A.Value)) & ","                          '¦r¨åª«¥óªºitem «e«á¥[¤W ,
    
14.             If InStr(AMonth, "," & Month(A.Value) & ",") = 0 Then          '¦r¨åª«¥óªºitem ¤¤¤ñ¹ï¤ë¥÷µL­«´_
    
15.                 d(Year(A.Value)) = d(Year(A.Value)) & "," & Month(A.Value) '¦r¨åª«¥óªºitem ¦A¥[¤W , ¤Î¤ë¥÷
    
16.             End If         
    
17.           End If
    
18.         Next A
    
19.         ComboBox1.List = d.keys
    
20.     End With
    
21. End Sub
    
22. Private Sub ComboBox1_Change()
    
23.     If ComboBox1.ListIndex > -1 Then
    
24.         TextBox9 = ComboBox1.Value
    
25.         ComboBox2.List = Split(d(Val(ComboBox1.Value)), ",")
    
26.         '¦r¨åª«¥óªºitem ¥ÎSplit¥H","Âà´«¦¨°}¦C
    
27.     End If
    
28. End Sub

½Æ»s¥N½X