c_c_lai

回復 2# hollou
回復 3# Hsieh
Hsieh 大大，不好意思稍稍加點料：

1. Private Sub ListBox1_Change()
   
2.     With ListBox1
   
3.         Sheet1.[D1:E1] = ""
   
4. 
   
5.         For i = 0 To .ListCount - 1
   
6.               ar = Array("一", "二", "三", "四", "五", "六", "七", "八", "九", "零")
   
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

複製代碼