Hsieh

回復 1# yliu

1. Private Sub ListBox1_Change()
   
2. Dim ar()
   
3. With ListBox1
   
4. For i = 0 To .ListCount - 1
   
5.   If .Selected(i) Then
   
6.   ReDim Preserve ar(s)
   
7.   ar(s) = Array(i + 1, .List(i, 0), .List(i, 1), .List(i, 2), .List(i, 3))
   
8.   s = s + 1
   
9.   End If
   
10. Next
    
11. End With
    
12. [A9:E19] = ""
    
13. If s > 0 Then [A9].Resize(s, 5) = Application.Transpose(Application.Transpose(ar))
    
14. End Sub

複製代碼