GBKEE

¦^´_ 1# mark15jill

­YÀɮצWºÙ«e¬q«á¬qµL³W«h¡A¨º­n«ç°Ï¤À¡H(­Y¥H-¬°¤À¬ÉÂI) ´N¬O¥H - ¬°¤À¬ÉÂI
099¦~«×-01¤ë-x2x4sa1.jpg    099¦~«×-10-x2x4se4.jpg

¸Õ¸Õ¬Ý
ªí³æ ¦³ComboBox1,ComboBox2

1. Option Explicit
   
2. Dim xlpath
   
3. Private Sub ComboBox1_Change()
   
4.     If ComboBox1.ListIndex > -1 Then Combobox2ÀÉ®×
   
5. End Sub
   
6. Private Sub UserForm_Initialize()
   
7.     xlpath = "C:\imagelist_test\"
   
8.     Combobox1ÀÉ®×
   
9. End Sub
   
10. Sub Combobox1ÀÉ®×()
    
11.     Dim xF As String, x, Ar(), xi As Integer
    
12.     xF = Dir(xlpath & "*-*-*.JPG")
    
13.     Do While xF <> ""
    
14.         x = Split(xF, "-")(0) & "-" & Split(xF, "-")(1)
    
15.         If xi = 0 Then
    
16.             ReDim Preserve Ar(xi)
    
17.             Ar(xi) = x
    
18.             xi = xi + 1
    
19.         ElseIf UBound(Filter(Ar, x, True)) Then
    
20.             ReDim Preserve Ar(xi)
    
21.             Ar(xi) = x
    
22.             xi = xi + 1
    
23.         End If
    
24.         xF = Dir
    
25.     Loop
    
26.     If xi > 0 Then Me.ComboBox1.List = Ar
    
27. End Sub
    
28. Sub Combobox2ÀÉ®×()
    
29.     Dim xF As String
    
30.     ComboBox2.Clear
    
31.     xF = Dir(xlpath & ComboBox1 & "*.JPG")
    
32.     Do While xF <> ""
    
33.         ComboBox2.AddItem xF
    
34.         xF = Dir
    
35.     Loop
    
36. End Sub

½Æ»s¥N½X