請教關於listbox資料複選,對應資料顯示的問題
- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 88
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-4-12
               
|
回復 2# hollou - Private Sub ListBox1_Change()
- With ListBox1
- Sheet1.[D1] = ""
- For i = 0 To .ListCount - 1
- ar = Array("一", "二", "三", "四", "五", "六", "七", "八", "九", "零")
- If .Selected(i) = True Then Sheet1.[D1] = IIf(Sheet1.[D1] = "", ar(i), Sheet1.[D1] & "," & ar(i))
- Next
- End With
- End Sub
|
|
|
學海無涯_不恥下問
|
|
|
|
|
發表於 2016-4-8 11:17
| 