Hsieh

¦^´_ 1# 317

1. Private Sub Worksheet_Activate()
   
2. ComboBox1.ColumnCount = 2
   
3. ComboBox1.Clear
   
4. With ¤u§@ªí1
   
5.    For Each a In .Range(.[A3], .[A3].End(xlDown))
   
6.    With ComboBox1
   
7.    .AddItem a & "," & a.Offset(, 1)
   
8.    .List(r, 0) = a: .List(r, 1) = a.Offset(, 1)
   
9.    r = r + 1
   
10.    End With
    
11.    Next
    
12. End With
    
13. ComboBox1.TextColumn = 1
    
14. ComboBox1.LinkedCell = "C3"
    
15. End Sub

½Æ»s¥N½X