[µo°Ý] vba¤¤listbox¦p¦ó·s¼W¤£³sÄò¤§¦hÄæ¸ê®Æ

zming0304

¦U¦ì¦n¡G
                §Úªº¤u§@ªí¸ê®Æ¤j·§¦p¤U¡G(©êºp¦]¸ê®Æ¯A¤Î¤½¥q¾÷±K¡A¸ê®Æ³Q¤½¥q¹q¸£Âê¦í¡A®¤µLªk¤W¶ÇÀÉ®×)
                ¼ÐÃD1             ¼ÐÃD2             ¼ÐÃD3                        ¼ÐÃD4                      ¼ÐÃD5
                1399741      XXXXXXX      YYYYYYYYYYY      ZZZZZZZZZZ      WWWWWWW
                1213994      XXXXXX1      YYYYYYYYYY1      ZZZZZZZZZ1      WWWWWW1
                1234567      XXXXXX2      YYYYYYYYYY2      ZZZZZZZZZ2      WWWWWW2
                2345678      XXXXXX3      YYYYYYYYYY3      ZZZZZZZZZ3      WWWWWW3
                2139901      XXXXXX4      YYYYYYYYYY4      ZZZZZZZZZ4      WWWWWW4

§Ú§Æ±æ°µ¨ìLISTBOXT¥i¥H¨Ì³]©wªº±ø¥ó¦p¼ÐÃD1¤¤¥]§t1399ªº¸ê®Æ¦bLISTBOX ¨Ì§Ç¥[¤J¦p¤U¡G
                  ¼ÐÃD1             ¼ÐÃD2             ¼ÐÃD3                        ¼ÐÃD4                      ¼ÐÃD5
                1399741      XXXXXXX      YYYYYYYYYYY      ZZZZZZZZZZ      WWWWWWW
                1213994      XXXXXX1      YYYYYYYYYY1      ZZZZZZZZZ1      WWWWWW1
                2139901      XXXXXX4      YYYYYYYYYY4      ZZZZZZZZZ4      WWWWWW4
·Q½Ð°Ý°£¤F¥Î¦Û°Ê¿z¿ï¥~¡A¥i¥H¥ÎLISTBOX,ADDITEM©Î¬OLISTBOX.LIST¨Ó§¹¦¨¶Ü¡H
¸Õ¤F«Ü¦h¦¸¡A³£¥u·|Âл\²Ä¤@¦C¸ê®Æ¡A¦ÓµLªk¨Ì§Ç·s¼W¡A½Ð¦U¦ì°ª¤âÀ°À°¦£¡A½¤F¤­¥»¬ÛÃöVBAªº®Ñ³£¼g
±o¤£¬O«Ü²M·¡¡A½Ð¦U¦h¦hÀ°¦£¤F¡AÁÂÁ¡I

oobird

1. Private Sub UserForm_Initialize()
   
2.     Dim arr(), rng, i%, j%, m%
   
3.     Me.ListBox1.ColumnCount = 5
   
4.     Me.ListBox1.ColumnWidths = "60,60,60,60,60"
   
5. 
   
6.     rng = [a1].CurrentRegion
   
7.     For i = 1 To UBound(rng)
   
8.         If i = 1 Or rng(i, 1) Like "*1399*" Then
   
9.             m = m + 1
   
10.             ReDim Preserve arr(1 To 5, 1 To m)
    
11.             For j = 1 To 5
    
12.                 arr(j, m) = rng(i, j)
    
13.             Next
    
14.         End If
    
15.     Next
    
16.     Me.ListBox1.List() = Application.Transpose(arr)
    
17. 
    
18. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 1# zming0304

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E, i
   
4.     With ListBox1
   
5.         .Clear
   
6.         .ColumnCount = 5
   
7.         .ColumnWidths = "60,60,60,60,60"
   
8.         For Each E In Range("a1").CurrentRegion.Columns(1).Cells
   
9.             If InStr(E.Text, "139") Then
   
10.                 '.AddItem  E        '¨t²Î¹w³]¬°ColumnCount = 1Äæ ­n¥[¤J¸ê®Æ¦p¦¹°µ´N¦n
    
11.                 .AddItem            'ListBox1·s¼W¤@¦C : .ListCount -> ListBox1ªº¦C¼Æ
    
12.                 For i = 0 To 4     'ColumnCount >1 ¬G¶·¦b·s¼W¦C¤¤¨C¤@Äæ¨Ì§Ç¥[¤J¼Æ¦r¤å¦r
    
13.                     .List(.ListCount - 1, i) = E(1, i + 1)  'ListBox1ªº¦C±q0¶}©l
    
14.                 Next
    
15.             End If
    
16.         Next
    
17.     End With
    
18. End Sub

½Æ»s¥N½X

zming0304

¦^´_  zming0304
GBKEE µoªí©ó 2011-11-26 10:40

¤Ó¼F®`¤F¡A¯uªº¥i¥H¤F¡AÁÂÁ¤j¤j¡I

zming0304

¦^´_ 3# GBKEE
¤j¤j¡A¥i¤£¥i¥H¦AÀ°§Ú¤@¤U¡A¦pªG§Ú¬O·j´M²Ä¤GÄæ~²Ä¤­Ä檺¸ê®Æ¡A
µ{¦¡½X­n¦p¦ó­×§ï¤~¯àÅý·s¼Wªº¸ê®Æ±q²Ä¤@Äæ¶}©l¼g¤JLISTBOX¤¤¡A
For Each E In MYRNG
            If InStr(E.Text, CN) Then
                '.AddItem  E        '¨t²Î¹w³]¬°ColumnCount = 1Äæ ­n¥[¤J¸ê®Æ¦p¦¹°µ´N¦n
                LBMODEL.AddItem            'ListBox1·s¼W¤@¦C : .ListCount -> ListBox1ªº¦C¼Æ
                For j = -2 To 3
                J1 = (E.Offset(0, j))
                For i = 0 To 4   'ColumnCount >1 ¬G¶·¦b·s¼W¦C¤¤¨C¤@Äæ¨Ì§Ç¥[¤J¼Æ¦r¤å¦r
                LBMODEL.List(LBMODEL.ListCount - 1, i) = E(J1, i + 1) 'ListBox1ªº¦C±q0¶}©l
                Next
                Next
            ElseIf Left(E.Text, 4) > CN Then
                Exit For
            End If
          Next
§Ú³o¼Ë§ï¼g«o¤@ª½¥X²{¿ù»~¡A½Ð°Ý°ÝÃD¥X¦b¨ºÃä¡A¦A³Â·ÐÀ°§Ú°»¿ù¤@¤U¡AÁÂÁ¡I

GBKEE

¦^´_ 5# zming0304

1. For Each E In MYRNG
   
2.             If InStr(E.Text, CN) Then
   
3.                 '.AddItem  E        '¨t²Î¹w³]¬°ColumnCount = 1Äæ ­n¥[¤J¸ê®Æ¦p¦¹°µ´N¦n
   
4.               ''****->§R±¼  LBMODEL.AddItem            'ListBox1·s¼W¤@¦C : .ListCount -> ListBox1ªº¦C¼Æ  *****
   
5.                 For j = -2 To 3
   
6.                          LBMODEL.AddItem            ''¨Ì§Aªº¥Î·N,  À³¬O¦b³o¸Ì ·s¼W¤@¦C
   
7.                        J1 = (E.Offset(0, j))
   
8.                       For i = 0 To 4   'ColumnCount >1 ¬G¶·¦b·s¼W¦C¤¤¨C¤@Äæ¨Ì§Ç¥[¤J¼Æ¦r¤å¦r
   
9.                 LBMODEL.List(LBMODEL.ListCount - 1, i) = E(J1, i + 1) 'ListBox1ªº¦C±q0¶}©l
   
10.                 Next
    
11.                 Next
    
12.             ElseIf Left(E.Text, 4) > CN Then
    
13.                 Exit For
    
14.             End If
    
15.           Next

½Æ»s¥N½X

zming0304

¦^´_ 6# GBKEE
For S = 1 To Workbooks("MODELNUM.xls").Sheets.Count
    Sheets(S).Activate
    Range(Cells(1, 1), Cells(65536, 5).End(xlUp)).Select
    Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlStroke, DataOption1:=xlSortNormal
    Sheets(S).Range(Cells(1, 1), Cells(1, 5)).Select
    CN = TBCHNM.Text
      Set CN1 = Cells.Find(CN, LOOKAT:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
      If Not CN1 Is Nothing Then
          'G = 1
          LBMODEL.ColumnCount = ActiveSheet.Columns.Count
          LBMODEL.ColumnWidths = "2cm;3.5cm;5cm;6.5cm;5cm"
          LBMODEL.Font.Size = 10
          LBMODEL.List = Range("A1:E1").Value
         
          Set MYRNG = Range(CN1, Range("C65536").End(xlUp))
          For Each E In MYRNG
            If InStr(E.Text, CN) Then
                '.AddItem  E        '¨t²Î¹w³]¬°ColumnCount = 1Äæ ­n¥[¤J¸ê®Æ¦p¦¹°µ´N¦n
                LBMODEL.AddItem            'ListBox1·s¼W¤@¦C : .ListCount -> ListBox1ªº¦C¼Æ
               
                For J = -2 To 3
               ' LBMODEL.AddItem
                For i = 0 To 4   'ColumnCount >1 ¬G¶·¦b·s¼W¦C¤¤¨C¤@Äæ¨Ì§Ç¥[¤J¼Æ¦r¤å¦r
                'LBMODEL.AddItem
                J1 = (E.Offset(0, J))
                LBMODEL.List(LT - 1, i) = J1 'ListBox1ªº¦C±q0¶}©l
                J = J + 1
                Next
                Next
             ElseIf Left(E.Text, Len(CN)) <> CN Then
                Exit For
            End If
          Next
      'ElseIf CN1 Is Nothing And G = 0 Then
        ' MsgBox "¬dµL¦¹®Æ¸¹"
      End If
Next
¤j¤j§Ú§â³¡¤À§ï¼g¦¨¬õ¦â³¡¤À´N¥i¥H¤F¡A¦ý¤S¥X²{¥t¥~¤@­Ó°ÝÃD¡A´N¬O§Úªº¸ê®Æªí¦Ü¤Ö¦³¤T­Ó¡A¦ý§Ú¥Ø«e³o¼Ë¼g¡A
µ{¦¡¶]¥X¨Óªºµ²ªGLISTBOX¥u«O¯d³Ì¤@­Ó¸ê®Æªí·j´M¨ìªºµ²ªG¡A«e¤G­Ó¸ê®Æªí§ä¨ìªºµ²ªG²Î²Î³QÂл\¤F¡A³o­n¦p¦ó­×¥¿©O¡H
¦A³Â·Ð§A±Ð§Ú¤@¤U¡AÁÂÁ¡I

GBKEE

¦^´_ 7# zming0304
«e¤G­Ó¸ê®Æªí§ä¨ìªºµ²ªG²Î²Î³QÂл\¤F
LBMODEL.ColumnCount = ActiveSheet.Columns.Count  :  2003-> Columns.Count=256

1. With LBMODEL   '¶}ÀY³o¸Ì­«³]LBMODELªº¤º®e
   
2.         .ColumnCount = ActiveSheet.Columns.Count
   
3.         .ColumnWidths = "2cm;3.5cm;5cm;6.5cm;5cm"
   
4.         .Font.Size = 10
   
5.         .Clear
   
6.     End With
   
7.     For S = 1 To Workbooks("MODELNUM.xls").Sheets.Count
   
8.         Sheets(S).Activate
   
9.         Set CN1 = Cells.Find(CN, LOOKAT:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
   
10.         If Not CN1 Is Nothing Then
    
11.           '
    
12.           'G = 1
    
13.           'LBMODEL.ColumnCount = ActiveSheet.Columns.Count
    
14.           'LBMODEL.ColumnWidths = "2cm;3.5cm;5cm;6.5cm;5cm"
    
15.           'LBMODEL.Font.Size = 10
    
16.           'LBMODEL.List = Range("A1:E1").Value   '<- ³o¸Ì·|­«³]LBMODELªº¤º®e
    
17.          
    
18.           '
    
19.           '
    
20.          
    
21.          'ElseIf CN1 Is Nothing And G = 0 Then
    
22.             ' MsgBox "¬dµL¦¹®Æ¸¹"
    
23.         End If
    
24.     Next
    
25. Next

½Æ»s¥N½X

zming0304

¦^´_ 8# GBKEE

¤F¸Ñ¡AÁÂÁ¡I