[說明]
本範例是在工作表4的A欄，輸入預計出現在下拉式選單上的資料，讓VBA內的表單的「下拉式選單」物件，會自行進行增加或減少項目。
輸入三筆資料，下拉式選單也出現三筆選項
輸入五筆資料，下拉式選單也出現五筆選項
公式需寫在表單的「Initialize」 事件中，這樣下拉式選單才不會重複增加相同選項
如何寫入「Initialize」，於任一表單沒有物件的位置點兩下，選取「Initialize」即可
工作表上的方塊，裡面只寫了UF.SHOW的程式碼，就是按了這一顆鈕，表單就會出現
[程式碼]
Private Sub UserForm_Initialize()
工作表4.Range("A1").Select '下拉式選單的資訊來源，「工作表4.Range("A1")」會依你實際的位置有所差異，請自行修改至正確位置
For I = 2 To Range("A1").End(xlDown).Row '判斷最後一筆資料的列號
UF.CB.AddItem Cells(I, 1) '可選取項目透過迴圈將資料進行
Next I
End Sub
[特別說明]
表單的名稱為「UF」
表單內的下拉式選單名稱為「CB」
「Initialize」 事件，即初始化事件也就是表單出現前你想做什麼事，可在「Initialize」事件中輸入你想在表單出現之前執行的事件。
謝謝您閱讀了我的文章，若您喜歡我的文章，希望你幫我按個讚，也幫忙分享給需要的朋友或其他平台，謝謝。
文章標籤
全站熱搜
留言列表
