標題: 請教關於listbox資料複選,對應資料顯示的問題 [打印本頁]

---

作者: hollou    時間: 2016-4-8 07:25     標題: 請教關於listbox資料複選,對應資料顯示的問題

本帖最後由 hollou 於 2016-4-8 07:28 編輯

小弟不才,請教一下,還請高手協助解答,謝謝!
已設定好複選的listbox, 當我執行複選按鈕,選擇135,於D1顯示
要如何同部於E1顯示"壹

---

作者: hollou    時間: 2016-4-8 07:38

本帖最後由 hollou 於 2016-4-8 07:41 編輯

原文字被砍掉了,在此補充一下,
要如何同部於E1顯示"一三五"(中文字大寫)


另外,listbox複選的資料可以自動加入","逗號區隔嗎?
亦即d1顯示1,3,5  E1同步顯示"一,三,五"(中文字大寫)

有請高手協助,謝謝

---

作者: Hsieh    時間: 2016-4-8 11:17

回復 2# hollou

1. Private Sub ListBox1_Change()
   
2. With ListBox1
   
3. Sheet1.[D1] = ""
   
4. For i = 0 To .ListCount - 1
   
5.   ar = Array("一", "二", "三", "四", "五", "六", "七", "八", "九", "零")
   
6.   If .Selected(i) = True Then Sheet1.[D1] = IIf(Sheet1.[D1] = "", ar(i), Sheet1.[D1] & "," & ar(i))
   
7. Next
   
8. End With
   
9. End Sub

複製代碼

---

作者: c_c_lai    時間: 2016-4-8 11:42

回復 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)