iT邦幫忙

1

(已解決)如何產生可以自動更新的下拉清單

各位大大好,小弟是這方面的初學者
之所以會要用VBA是因為工作的關係需要才開始硬著頭皮學的

目前嘗試做介面表單的部分
其中有打算使用下拉式選單,於是在網路上不斷找相關資訊
其中參考了「吳老師教學部落格」的教學影片

這裡重點從4:40開始
這裡的下拉式選單的資料是來自於其他分頁的資料(縱向的)

如果說我按照吳老師的方式這樣是沒問題
但是我如果資料是橫向的話,似乎就沒辦法了

'此為縱向資料
Private Sub UserForm_Activate()
    For i = 1 To Range("A1").End(xlDown).Row
    SizeCombo.AddItem Cells(i, "A")
    Next
End Sub

由於資料是橫向索取(向右邊)的,小弟是找到End(xlToRight)這個用法

'此為橫向資料
Private Sub UserForm_Activate()
    For i = 1 To Range("A1").End(xlToRight).Row
    SizeCombo.AddItem Cells(i, "A")
    Next
End Sub

可是執行結果出來卻僅只有第一個出現,旁邊B1、C1的資料都沒有進去下拉式選單
還請大大指教!

更新個人修改內容的程式碼部分,供往後的人做為參考

Private Sub UserForm_Activate()
    
    'i = X to Range("Cell"),X代表從左邊數來的第幾個,"Cell"代表以哪一個儲存格開始算,且下方資料需為連續不能為空白否則會出錯
'.End(xlToRight).Column,Column則是代表橫向的格式
    
    For i = 6 To Range("A47").End(xlToRight).Column
    
    '此處的(Y,i),Y代表控制上面數來的第幾個
    SizeCombo.AddItem Cells(47, i)
    
    Next
End Sub
marlin12 iT邦新手 1 級 ‧ 2020-03-01 08:53:23 檢舉
Private Sub UserForm_Activate()
For i = 1 To Range("A1").End(xlToRight).Column
SizeCombo.AddItem Cells(1, i)
Next
End Sub
rucifa iT邦新手 5 級 ‧ 2020-03-01 16:27:53 檢舉
非常感謝!確定已經可以執行了,也同時我也修改為自己可用的格式
marlin12 iT邦新手 1 級 ‧ 2020-03-01 17:38:33 檢舉
\ (•◡•) /

尚未有邦友回答

立即登入回答