c_c_lai

¦^´_ 2# hollou
¦^´_ 3# Hsieh
Hsieh ¤j¤j¡A¤£¦n·N«äµyµy¥[ÂI®Æ¡G

1. Private Sub ListBox1_Change()
   
2.     With ListBox1
   
3.         Sheet1.[D1:E1] = ""
   
4. 
   
5.         For i = 0 To .ListCount - 1
   
6.               ar = Array("¤@", "¤G", "¤T", "¥|", "¤­", "¤»", "¤C", "¤K", "¤E", "¹s")
   
7.              If .Selected(i) = True Then
   
8.                  Sheet1.[D1] = IIf(Sheet1.[D1] = "", i + 1, Sheet1.[D1] & "," & i + 1)
   
9.                  Sheet1.[E1] = IIf(Sheet1.[E1] = "", ar(i), Sheet1.[E1] & "," & ar(i))
   
10.             End If
    
11.         Next
    
12.     End With
    
13. End Sub

½Æ»s¥N½X