返回列表 上一主題 發帖

[發問] 複選combobox

[發問] 複選combobox

如在combobox1選擇A公司,在combobox2顯示A公司的分公司名稱,VBA碼應怎樣寫?
多謝各大大指教! Test.rar (8.06 KB)

請各高手抽時間指導,Thahks

TOP

回復 2# jackysiu


   
未命名.png
2015-8-19 11:46
學海無涯_不恥下問

TOP

Thanks Hsieh

TOP

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

TOP

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

TOP

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) 是無法抓到全部資料,這部份也須注意∼∼
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝,花了許多心血,想盡各式方法要遮擋時間,結果是:浪費了更多時間,且一無所成!
返回列表 上一主題