[µo°Ý] ½Ð±Ð Combobox ¦r¦ê§PÂ_

mark15jill

¦pÃD¡C
Q1­Y Combobox1  Åª¨ú ¸ê®Æ§¨¤º¥b¤£³W«h ªºÀɮצWºÙ¡A½Ð°Ý­n«ç¦b Combobox1 §PÂ_¤£­«½Æ¡A¨Ã¥B¦bCombobox2¿z¿ï
¨Ò¦p
C:\imagelist_test\          ¤º¦³¥H¤UÀÉ®×
099¦~«×-01-001.jpg  ~  099¦~«×-01-n.jpg  (n ¬°¤£©w­È¾ã¼Æ¡A¦p 001 002 003 µ¥µ¥¤§Ãþ )
099¦~«×-02-001.jpg  ~  099¦~«×-02-n.jpg  (n ¬°¤£©w­È¾ã¼Æ¡A¦p 001 002 003 µ¥µ¥¤§Ãþ )
099¦~«×-03-001.jpg  ~  099¦~«×-03-n.jpg  (n ¬°¤£©w­È¾ã¼Æ¡A¦p 001 002 003 µ¥µ¥¤§Ãþ )
099¦~«×-04-001.jpg  ~  099¦~«×-04-n.jpg  (n ¬°¤£©w­È¾ã¼Æ¡A¦p 001 002 003 µ¥µ¥¤§Ãþ )

¦bCombobox1 ¤º¤wŪ¨ú ¥H¤WÀɮסG
099¦~«×-01-001.jpg
099¦~«×-01-002.jpg
099¦~«×-01-003.jpg
099¦~«×-01-004.jpg
099¦~«×-02-001.jpg
099¦~«×-02-002.jpg
099¦~«×-02-003.jpg
099¦~«×-02-004.jpg
099¦~«×-03-001.jpg
099¦~«×-03-002.jpg
099¦~«×-03-003.jpg
099¦~«×-03-004.jpg
099¦~«×-04-001.jpg
099¦~«×-04-002.jpg
099¦~«×-04-003.jpg
099¦~«×-04-004.jpg

­n«çÅܦ¨         
Combobox1Ū¨ú                       Combobox2(­Y¿ï¾Ü 099¦~«×-01®É­Ô)
099¦~«×-01                        099¦~«×-01-001.jpg
099¦~«×-02                        099¦~«×-01-002.jpg
099¦~«×-03                        099¦~«×-01-003.jpg
099¦~«×-04                        099¦~«×-01-004.jpg

1. '¬ÛÃöµ{¦¡½X
   
2. Private Sub cmdReadFileName_Click()
   
3.     Dim strNowPath As String   'Àx¦s¥Ø«eÀɮץؿý
   
4.     Dim strFileName As String   'Ū¨ú¨ìªºÀɮצWºÙ
   
5.     Dim strFileExt As String    'ÀÉ®×°ÆÀɦW
   
6.    
   
7. 
   
8.     strNowPath = Range("B1")   '¦pªG¦³³]©w¥H³]©w¬°¥D
   
9.    
   
10.     strFileExt = Range("b2")   '¬d¸ßÀÉ®×Ãþ«¬
    
11.    
    
12.     If Trim(strNowPath) = "" Then
    
13.        strNowPath = Excel.ActiveWorkbook.Path
    
14.     End If
    
15.    
    
16.    
    
17.     n = 0
    
18.    
    
19.     Sheet3.Cells.Delete  '±N¤§«eªºµ²ªG²M°£
    
20.    
    
21.     If Right(strNowPath, 1) = "\" Then
    
22.         strFileName = Dir(strNowPath & strFileExt, vbDirectory)
    
23.         strFileNameTime = strNowPath
    
24.     Else
    
25.         strFileName = Dir(strNowPath & "\" & strFileExt, vbDirectory)
    
26.         strFileNameTime = strNowPath & "\"
    
27.     End If
    
28.    
    
29.     While strFileName <> ""
    
30.         If strFileName <> ActiveWorkbook.Name Then '³o­ÓÀɮפ£­nÅã¥Ü
    
31.             If strFileName <> "." And strFileName <> ".." Then
    
32.                 n = n + 1
    
33.                 Sheet3.Cells(n, 1).Value = n
    
34.                 Sheet3.Cells(n, 2).Value = strFileName
    
35.             End If
    
36.         End If
    
37.         strFileName = Dir() 'Ū¨ú¤U¤@­ÓÀÉ®×
    
38.         'strFileNameTime = FileDateTime()
    
39.     Wend
    
40.    
    
41.    
    
42.     Exit Sub
    
43. 
    
44. End Sub

½Æ»s¥N½X

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

mark15jill

¦^´_ 2# GBKEE

·PÁ¤j¤jªº±Ð¾É¡C
©êºp ³o´X¤Ñ¦b¦£¨S¤W½u ¤µ¤Ñ¤~¬Ý¨ì¡Aµ¥µ¥¨Ó¥h¸ÕÅç ÁÂÁÂ

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