- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
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) 是無法抓到全部資料，這部份也須注意∼∼ |
|
發表於 2015-8-22 17:14
| 