Hsieh

回復 1# 吳毅謙

1. Private Sub CommandButton1_Click()
   
2. With ListBox1
   
3. If Selection.Count > 1 Then
   
4. .List = Selection.Value
   
5. Else
   
6. .Clear
   
7. .AddItem Selection
   
8. End If
   
9. .ColumnCount = Selection.Columns.Count
   
10. End With
    
11. End Sub

複製代碼

下載 (138.71 KB)

2013-8-20 23:19