GBKEE

¦^´_ 1# prince120101
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh As Worksheet, AR(1 To 2)
   
4.     If ListBox1.Value = "FPR-002" Then
   
5.        Set Sh = Workbooks("¦a´à®w¦s.xlsm").Sheets(ListBox1.Value)
   
6.         With ComboBox2
   
7.             .Clear
   
8.             .ColumnCount = 2
   
9.             AR(1) = Application.Transpose(Sh.Range("j4:j100"))
   
10.             AR(2) = Application.Transpose(Sh.Range("K4:K100"))
    
11.             .List = Application.Transpose(AR)
    
12.         End With
    
13.     End If
    
14. End Sub

½Æ»s¥N½X