[發問] 複選combobox

帖子: 5
主題: 2
精華: 0
積分: 7
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 10
性別: 男
註冊時間: 2015-8-17
最後登錄: 2015-9-6

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-8-18 13:34 | 只看該作者

[發問] 複選combobox

如在combobox1選擇A公司，在combobox2顯示A公司的分公司名稱，VBA碼應怎樣寫？
多謝各大大指教！

Test.rar (8.06 KB)

帖子: 5
主題: 2
精華: 0
積分: 7
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 10
性別: 男
註冊時間: 2015-8-17
最後登錄: 2015-9-6

2^#

發表於 2015-8-19 10:33 | 只看該作者

請各高手抽時間指導，Thahks

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

3^#

發表於 2015-8-19 11:46 | 只看該作者

回復 2# jackysiu

學海無涯_不恥下問

帖子: 5
主題: 2
精華: 0
積分: 7
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 10
性別: 男
註冊時間: 2015-8-17
最後登錄: 2015-9-6

4^#

發表於 2015-8-20 09:11 | 只看該作者

Thanks Hsieh

h99949

中學生 Rank: 2

帖子: 44
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-2-19
最後登錄: 2015-10-30

5^#

發表於 2015-8-20 11:17 | 只看該作者

請問版主,執行後為何會出現執行階段錯誤'1004':,應用程式或物件定義上的錯誤
ComboBox2.ListFillRange = Range(a, a.End(x1Down)).Address

帖子: 5
主題: 2
精華: 0
積分: 7
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 10
性別: 男
註冊時間: 2015-8-17
最後登錄: 2015-9-6

6^#

發表於 2015-8-21 22:25 | 只看該作者

將ComboBox2.ListFillRange = Range(a, a.End(x1Down)).Address更改為
ComboBox2.RowSource = Range(a, a.End(x1Down)).Address

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

7^#

發表於 2015-8-22 17:14 | 只看該作者

Private Sub ComboBox1_Change()
Dim xR As Range, Arr
Set xR = [B5].Cells(1, ComboBox1.ListIndex + 2)
Arr = Range(xR, xR.End(xlDown))
If xR(2) = "" Then Arr = Array(xR.Value)
ComboBox2.List = Arr
End Sub

End(xlDown)　當該欄只有一個元素或全空時，可能有問題，
所以加入If xR(2) = "" Then 判斷，
又單個元素無法形成〔陣列〕，以.List帶入會錯誤，
故以　Arr = Array(xR.Value)　將單一元素轉成陣列，
但資料不連續時，End(xlDown)　是無法抓到全部資料，這部份也須注意～～