ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-11-2 09:50 ½s¿è

¦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.     strNowPath = Range("B1")   '¦pªG¦³³]©w¥H³]©w¬°¥D
  8.    
  9.     strFileExt = Range("b2")   '¬d¸ßÀÉ®×Ãþ«¬
  10.    
  11.     If Trim(strNowPath) = "" Then
  12.        strNowPath = Excel.ActiveWorkbook.Path
  13.     End If
  14.    
  15.    
  16.     n = 0
  17.    
  18.     Sheet3.Cells.Delete  '±N¤§«eªºµ²ªG²M°£
  19.    
  20.     If Right(strNowPath, 1) = "\" Then
  21.         strFileName = Dir(strNowPath & strFileExt, vbDirectory)
  22.         strFileNameTime = strNowPath
  23.     Else
  24.         strFileName = Dir(strNowPath & "\" & strFileExt, vbDirectory)
  25.         strFileNameTime = strNowPath & "\"
  26.     End If
  27.    
  28.     While strFileName <> ""
  29.         If strFileName <> ActiveWorkbook.Name Then '³o­ÓÀɮפ£­nÅã¥Ü
  30.             If strFileName <> "." And strFileName <> ".." Then
  31.                 n = n + 1
  32.                 Sheet3.Cells(n, 1).Value = n
  33.                 Sheet3.Cells(n, 2).Value = strFileName
  34.             End If
  35.         End If
  36.         strFileName = Dir() 'Ū¨ú¤U¤@­ÓÀÉ®×
  37.         'strFileNameTime = FileDateTime()
  38.     Wend
  39.    
  40.    
  41.     Exit Sub

  42. 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

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-11-2 18:05 ½s¿è

¦^´_ 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

TOP

¦^´_ 2# GBKEE

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

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD