返回列表下一主題上一主題發帖

請教關於listbox資料複選,對應資料顯示的問題

hollou

小學生 Rank: 1

帖子: 5
主題: 3
精華: 0
積分: 8
點名: 0
作業系統: WIN7
軟體版本: X64
閱讀權限: 10
註冊時間: 2015-1-31
最後登錄: 2020-8-4

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-4-8 07:25 | 只看該作者

請教關於listbox資料複選,對應資料顯示的問題

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

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

test.jpg (25.14 KB)

test.zip (9.15 KB)

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2016-4-8 11:42 | 只看該作者

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

Private Sub ListBox1_Change()
With ListBox1
Sheet1.[D1:E1] = ""
For i = 0 To .ListCount - 1
ar = Array("一", "二", "三", "四", "五", "六", "七", "八", "九", "零")
If .Selected(i) = True Then
Sheet1.[D1] = IIf(Sheet1.[D1] = "", i + 1, Sheet1.[D1] & "," & i + 1)
Sheet1.[E1] = IIf(Sheet1.[E1] = "", ar(i), Sheet1.[E1] & "," & ar(i))
End If
Next
End With
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2016-4-8 11:17 | 只看該作者

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

複製代碼

學海無涯_不恥下問

TOP

hollou

小學生 Rank: 1

帖子: 5
主題: 3
精華: 0
積分: 8
點名: 0
作業系統: WIN7
軟體版本: X64
閱讀權限: 10
註冊時間: 2015-1-31
最後登錄: 2020-8-4

2^#

發表於 2016-4-8 07:38 | 只看該作者

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

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

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

有請高手協助,謝謝

TOP

靜思自在 : 看別人不順眼，是自己修養不夠。

返回列表下一主題上一主題