標題: [發問] 複選combobox [打印本頁]

---

作者: jackysiu    時間: 2015-8-18 13:34     標題: 複選combobox

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

---

作者: jackysiu    時間: 2015-8-19 10:33

請各高手抽時間指導，Thahks

---

作者: Hsieh    時間: 2015-8-19 11:46

回復 2# jackysiu


    [attach]21761[/attach]

---

作者: jackysiu    時間: 2015-8-20 09:11

Thanks Hsieh

---

作者: h99949    時間: 2015-8-20 11:17

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

---

作者: jackysiu    時間: 2015-8-21 22:25

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

---

作者: 准提部林    時間: 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)　是無法抓到全部資料，這部份也須注意∼∼

---

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