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

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

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