GBKEE

¦^´_ 1# a_nanami

1. Sub ListOfCompany()
   
2.     Dim myTbl As Range, E As Variant, i As Integer
   
3.     Set myTbl = Sheet4.Range("NameOfCompany")
   
4.     UserForm1.Caption = "ªí³æ1"
   
5.     UserForm1.Label1.Caption = "¬ö¿ýªí1"
   
6.     With UserForm1.ListBox1
   
7.         .ColumnCount = myTbl.Columns.Count
   
8.         .ColumnWidths = "1.5cm; 1.5cm ; 3cm;2cm"
   
9.         .Font.Size = 11
   
10.         '.List = myTbl.Value
    
11.         For Each E In myTbl.Rows
    
12.             If E.Cells(1) <> "" Then  '²Ä1­ÓÀx¦s®æ
    
13.                 .AddItem
    
14.                 For i = 1 To myTbl.Columns.Count
    
15.                     .List(.ListCount - 1, i - 1) = E.Cells(i)
    
16.                 Next
    
17.             End If
    
18.         Next
    
19.         
    
20.     End With
    
21.     UserForm1.Show 0
    
22. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# a_nanami
Excel ¤£¤]¬O2003ª©,ªþÀɬݬÝ