返回列表 上一主題 發帖

[發問] 複選combobox

jackysiu

帖子
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)
收藏 分享

jackysiu

帖子
5 
主題
2 
精華
0 
積分
7 
點名
0  
作業系統
win7 
軟體版本
office2013 
閱讀權限
10 
性別
男 
註冊時間
2015-8-17 
最後登錄
2015-9-6 
2#
發表於 2015-8-19 10:33 | 只看該作者
請各高手抽時間指導，Thahks

TOP

Hsieh

帖子
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


   
學海無涯_不恥下問

TOP

jackysiu

帖子
5 
主題
2 
精華
0 
積分
7 
點名
0  
作業系統
win7 
軟體版本
office2013 
閱讀權限
10 
性別
男 
註冊時間
2015-8-17 
最後登錄
2015-9-6 
4#
發表於 2015-8-20 09:11 | 只看該作者
Thanks Hsieh

TOP

h99949

帖子
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

TOP

jackysiu

帖子
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

TOP

准提部林

帖子
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)　是無法抓到全部資料，這部份也須注意∼∼

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題